エクセル マクロ 抽出

質問

教えてください。
○と記入されたセルを参照して、一つ上のセル・A列にある同じ行のセル・
9行目にある同じ列のセルを抽出しようとしています。
下記の通り入力すると　行数＝値.Rowでエラーが出たしまいました。
試行錯誤頑張りましたが解決できそうにありませんのでお力を貸して頂けないでしょうか。

Sub 抽出()
Dim i, 行数, 列数 As Long
Dim 値 As Range
i = 0
行数 = 値.Row
列数 = 値.Column
For Each 値 In Sheets("sheet1").Range("C12:R171")
If 値.Value = "○" Then
i = i + 1
With Sheets("sheet2")
.Cells(i, 3).Value = Sheets("sheet1").Cells(行数, 1).Value
.Cells(i, 4).Value = Sheets("sheet1").Cells(9, 列数).Value
.Cells(i, 5).Value = 値.Offset(-1, 0).Value
End With
End If
Next
End Sub

回答No.1

keithin · ベストアンサー

行数・列数の記入が値ループの「外」にほっぽり出されてます。
またこの程度のセル範囲なら、行・列で二重ループを廻してしまった方が「わかりやすい」かも？しれません。

sub macro1()
　dim n as long
　dim r as long
　dim c as long

　for r = 12 to 171
　　for c = 3 to 18

　　　if worksheets("Sheet1").cells(r, c).value = "○" then
　　　　n = n + 1
　　　　with worksheets("Sheet2")
　　　　.cells(n, 3).value = worksheets("Sheet1").cells(r, 1).value
　　　　.cells(n, 4).value = worksheets("Sheet1").cells(9, c).value
　　　　.cells(n, 5).value = worksheets("Sheet1").cells(r - 1, c).value
　　　　end with
　　　end if
　　next c
　next r
end sub

’○の個数だけしかループを回さない版
sub macro2()
　dim c as range
　dim n as long

　with worksheets("Sheet1")
　　set c = .range("C12:R171").find(what:="○", lookin:=xlvalues, lookat:=xlwhole)
　　for n = 1 to application.countif(.range("C12:R171"), "○")
　　　worksheets("Sheet2").cells(n, 3).value = .cells(c.row, 1).value
　　　worksheets("Sheet2").cells(n, 4).value = .cells(9, c.column).value
　　　worksheets("Sheet2").cells(n, 5).value = c.offset(-1).value
　　　set c = range("C12:R171").findnext(c)
　　next n
　end with
end sub

お礼

ご回答ありがとうございます。
コピペでそのまま使えて助かりました。
勉強させていただきます。
ありがとうございました。