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

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

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

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

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

行動規範の内容に同意します

回答1件

ベストアンサー

vba
1Sub sample()
2    Dim i
3    For i = 1 To 200
4        If Range("A" & i) = "" Then Exit For
5        If Range("B" & i) = "〇" Then Range("C" & i) = ""
6    Next
7End Sub
8