エクセル マクロ 抽出
教えてください。
○と記入されたセルを参照して、一つ上のセル・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
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/images/related_qa/c205_2_thumbnail_img_sm.png)
お礼
早速ありがとうございました。できないことがわかり納得しました。でもそういうニーズあると思います。