エクセルについて教えて下さい。

質問

エクセルについて教えて下さい。

列のいずれかに、特定の文字列が含まれる行を削除したいと考えています。
1つの文字列であれば、過去のQAからその解決策を見つけることができました↓

Sub test01()
Dim x As String, c As Range
x = InputBox("削除する文字を入力")
With ActiveSheet.UsedRange
Do While (1)
Set c = .Find(What:=x, LookIn:=xlValues, LookAt:=xlPart)
If c Is Nothing Then Exit Do
c.EntireRow.Delete
Loop
End With
End Sub

上記の場合だと、例えば削除対象の文字列は1種類しか記入できません。できたら、半角スペースや半角カンマなどで区切って、複数の文字列を対象に行いたいです。

どなたかご教授下さい。

回答No.1

merlionXX · ベストアンサー

一例です。
半角カンマで区切って入力してください。

Sub test01()
　　Dim x As String, c As Range
　　Dim myAr
　　x = InputBox("削除する文字をカンマ区切りで入力")
　　myAr = Split(x, ",")
　　With ActiveSheet.UsedRange
　　　　For i = LBound(myAr) To UBound(myAr)
　　　　　　Do While (1)
　　　　　　　　Set c = .Find(What:=myAr(i), LookIn:=xlValues, LookAt:=xlPart)
　　　　　　　　If c Is Nothing Then Exit Do
　　　　　　　　c.EntireRow.Delete
　　　　　　Loop
　　　　Next i
　　End With
End Sub

お礼

merlionXXさん、こんにちわ。
希望通りにできました！

お礼が遅くなってしまい申しわけありませんでした。

回答No.2

merlionXX

ANo1 merlionXXです。
atsuya192さんもお気づきになられたとは思いますが、iの変数宣言が抜けてましたね。

　　Dim x As String, c As Range　を
　　Dim x As String, c As Range, i As Integer

としてください。
失礼しました。