エクセルについて

質問

ある表より特定の文字が入力されている行を削除したいと考えております。過去を参照し下記のようなマクロを取り入れたいと思いました。

Sub macro1()

Dim R As Range
Do
Set R = ActiveSheet.Range("F:F").Find(What:="削除したい文字列", LookAt:=xlPart)
If R Is Nothing Then Exit Sub
R.EntireRow.Delete
Loop

End Sub

ここで質問です。Ｆ列に削除したい文字列がいくつかある場合上記をどのように改良すればよいでしょうか。ご教示の程よろしくお願い致します。

回答No.2

rukuku

はじめまして

単純にDo～Loopまでを文字列の数だけ作ればＯＫです。
しかし、スマートではありません。
この場合には、繰り返し命令の「For Each　～　Next」が便利だと思います。

以下は、「For Each　～　Next」の使用例です。

Sub test()
Dim a
For Each a In Array("A", "B", "C")
MsgBox a
Next
End Sub

お礼

ありがとうございました。

回答No.1

n-jun

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_find.html
FindNext メソッド　

ＰＳ．
Ｆ列にオートフィルタをかけて・・・と言うのでは無理でしたか？

お礼

ありがとうございました。