特定文がある行を削除

質問

特定分がある行を削除しようと思い、以下のように設定いたしました。

Sub DelLines()
Dim R As Range
Do
Set R = ActiveSheet.Range("A:A").Find(What:="指定文", LookAt:=xlWhole)
If R Is Nothing Then Exit Sub
R.EntireRow.Delete
Loop
End Sub

これを、全てのシートに適用するにはどのように書けばよろしいのでしょうか？

回答No.2

keithin · ベストアンサー

Sub DelLines()
　dim w as worksheet
　Dim R As Range

　for each w in worksheets
　　Do
　　　Set R = w.Range("A:A").Find(What:="指定文", LookAt:=xlWhole)
　　　If R Is Nothing Then Exit do
　　　R.EntireRow.Delete
　　Loop
　next
End Sub

みたいな。

回答No.1

bin-chan

１）作成なさったコードに、「対象シート選択」コマンドを追加
ActiveSheetの前でシートをSelect

２）「対象シート名亅を引数で受けとるようにする
DelLine（strシート名 as string)

３）ブック内の全シートについて、１シートずつ選択するループを作成する
※手書き入力はしんどいので自力でがんばって

４）３）で選択されているシート名を引数にして２）をcallする
call DelLine（Selection.Worksheet(i).Name)