Excel VBA 初心者です。 作成中のマクロわからないところ

質問

VBA初心者です。もしセルA1の値がAでセルB1の値がGでセルC1の値にJを含むなら、
セルD1の値を変数i に入れる。
上記を10行目まで繰り返す。
というマクロを作りたいのですが、行き詰ってます。
よろしくお願いします。

回答No.1

OMEGAT · ベストアンサー

こんな感じでどうでしょうか。

For i1 = 1 To 1
If Cells(i1, 1).Value = "A" And Cells(i1, 2).Value = "G" And InStr(Cells(i1, 3), "J") > 0 Then
i=Cells(i1, 4).Value
End If
Next i1

※Sheet名は省略していますので、必要があれば追加してください。
※条件を満たす行が複数あった場合に最初の行で処理をやめたければ、Exit Forを追加してください。

お礼

先ほど回答をもとにマクロを作ったら無事完成しました。
Jを含むというところでずっと悩んでました。
これでお盆休みを満喫できます。
本当にありがとうございました。