11/10/16 05:07:34.87
●を含む文字列を検索して削除、さらにこの動作を●を含む文字列がなくなるまで繰り返すvbaを作ってます。
以下のプログラムだと実行エラー424となってしまいますが、解決方法は無いでしょうか？どなたか教えてください。
Dim x As Range
Set x = Sheets("test").Cells.Find("●", After:=Range("A1"))
If Not x Is Nothing Then
Do While Not x Is Nothing
x.Delete
Loop
End If