エクセルで特定の行をマクロで削除したい。

質問

Sub DelLines()
Dim R As Range
Do
Set R = ActiveSheet.Range("A:A").Find(What:="ここにキーワード", LookAt:=xlPart)
If R Is Nothing Then Exit Sub
R.EntireRow.Delete
Loop
End Sub

上記のソースだと一つのキーワードだけなのですが、複数のキーワードを追加したいのとブック全体（複数のシートから検索）で実行させたいのですが教えていただけませんか？

回答No.2

n-jun · ベストアンサー

例えば、a,b,cを探すなら

Sub try()
Dim ws As Worksheet
Dim r As Range
Dim v

For Each ws In Worksheets
For Each v In Array("a", "b", "c")

Do
Set r = ws.Range("A:A").Find(What:=v, LookAt:=xlPart)
If r Is Nothing Then Exit Do
r.EntireRow.Delete
Loop

Next
Next

End Sub

とか？

お礼

ありがとうございました。思っていたのと違うかったので、もう一度マクロ勉強しなおします・・・

回答No.5

imogasi

質問のコードでは、そのキーワードが複数出現するデータなら、最初しか削除できないのでは。FindNextお勉強のこと。
ーー
＞ブック全体
１つのブックの全シートの意味か。
フォルダのエクセルブックの全体とかの意味か。
プログラマは表現に敏感であれ。
ーー
＞複数のシート
これもあるブックで、１０有るシートのうちの３つとかの意味か。全シートの意味か。
前者は
Sub test01()
Dim sh As Worksheet
For Each sh In Worksheets(Array("Sheet1", "Sheet3", "Sheet4"))
MsgBox sh.Name '本来は各１シート分の処理のコードを入れる
Next
End Sub
後者は
Sub test02()
Dim sh As Worksheet
For Each sh In Worksheets
MsgBox sh.Name '本来は各１シート分の処理のコードを入れる
Next
End Sub
ーー
フォルダの全ブックは、VBSを使う場合（他にDir関数を使うなどもある）
Sub test03()
infolderName = CurDir
Set objfs = CreateObject("Scripting.FileSystemObject")
Set fsoFolder = objfs.GetFolder(infolderName)
For Each file In fsoFolder.Files 'Foler内のファイルを列挙する
Fname = file.Name
MsgBox file.Name
If objfs.GetExtensionName(Fname) = "xls" Then '拡張子xlsを判定
MsgBox fsoFolder & "\" & Fname
End If
Next
End Sub
ーー
指定ブックを開く場合
CurDirの中のファイル２つとして
Sub test04()
For Each bn In Array("01化.xls", "book1.xls")
MsgBox bn
Workbooks.Open bn
MsgBox Workbooks(bn).Worksheets(1).Range("A1")
Workbooks(bn).Close
Next
End Sub
ーー
それぞれを適当に入れ子にしてコードを作る。

お礼

表現が微妙であったことをお詫びいたします。
一つのブックの全てのシートに適用でした。

回答No.4

marbin

>もちろんもっと簡潔な方法もあるとおもいます。

てn-junさんがすでに提示されてますね。
失礼しました。

回答No.3

marbin

Or検索ですね。

私は、こういう場合はLike演算子を使います。

If A Like "*AA*" Then

で、変数Aに"AA"が含まれていたら、という意味になります。
これを検索キーワードの分だけ繰り返します。
最初はFalseにしておき全て含まれていたら、Trueとすればいいです。

もちろんもっと簡潔な方法もあるとおもいます。

回答No.1

marbin

>複数のキーワード

たとえば、
AA
BB
というキーワードだとしたら、AA、BBとも含まれているのか、
AA、BBいずれかが含まれていたら、なのか不明です。

補足

AA,BBいずれかが含まれていたらです。説明不足ですいませんでした。