EXCEL VBAにてLOOPで特定のキャラクタの入った右横のセルの内容をデリートしたい

Question

VBAの超初心者です
A列に関数で抽出した数字が入って、それをマクロで、C列に値のコピーをしています
B列には、この値のコピーが重複すると1個目は、無印　2個目以降は〇が入ります
この〇が入った右横のCのセルを消たいのですが、うまくいきません。
出来れば、A列に何も入っていなくなったところでループを抜けたいです
駄目な場合は200行目でLOOPを抜けたいです。

B列には重複していないもの、または重複の最初の物は何も入っていないので
””でLOOPを止めるわけにはいきません

まず、Aのセルに文字があるか見て右横のBのセルに〇があるか見て、あった場合その右横のCのセルをデリート、無い場合は無処理で、また１つ下のAのセルに移動これを繰り返して・・・・Aのセルに何も記載されていないところでLOOPから抜けたいです

どうぞよろしくお願いします

Answer 1

Sub sample()
    Dim i
    For i = 1 To 200
        If Range("A" & i) = "" Then Exit For
        If Range("B" & i) = "〇" Then Range("C" & i) = ""
    Next
End Sub

Comments

[TakehikoOho]

ありがとうございます、明日試してみますね、　この場合は200行でLOPが止まる形と考えていいですか？

[TakehikoOho]

すいません、やってみましたが、動作しませんでした。

[TakehikoOho]

動かなかった理由がわかりました、このマクロの手前で、コピー作業があり　コピー範囲が残ったままになっていました。これを解除することで動くようになりました　本当にありがとうございま。これで完成しました