セルに値が入っていた時の処理

Q列のセルに何かしら値が入っていたら同じ行のＬ列とＭ列の値を消去したいです。
範囲はA列の最終行までです。

お詳しい方宜しくお願いいたします。

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/10/22 20:06

ループ行のスタートが不明なので２行目（Ａ２）にしてます。

他の行であれば適宜修正して下さい。
⇒（Ａ１やＡ３など）

Sub megu()
Dim r As Range

For Each r In Range("A2", Cells(Rows.Count, "A").End(xlUp))

If r.Range("Q1").Value <> "" Then r.Range("L1:M1").ClearContents

Next

End Sub

この回答へのお礼

ありがとうございます！
ばっちりです！

お礼日時：2022/10/24 12:07