エクセルのマクロで全シート複数条件検索

質問

• エクセルのマクロを使用して、全シートから複数項目で検索を行う方法について教えてください。
• 条件に合う項目の行を抽出し、新しいシートに表示することは可能でしょうか？
• 初心者ながら検索条件が複数ある場合や列ごとの条件指定ができずに困っています。

回答No.1

real beatin（@realbeatin）

こんにちは。

' ' ///

Sub ReW9090316a()
Dim wksDst As Worksheet
Dim rngF As Range, rngK As Range, c As Range
Dim cn As Long
　　With Worksheets
　　　　Set wksDst = .Add(After:=.Item(.Count))　'　新しいシートを追加して変数に格納
　　End With
　　With Worksheets("Sheet3")　'　検索条件が設定されているシート名を正確に。""を忘れずに
　　　　Set rngK = .Range("B2:B" & .Cells(Rows.Count, "B").End(xlUp).Row)
　　End With
　　Worksheets(Array("Sheet1", "Sheet2")).Select　'　検索対象シート名をArray関数内に列挙。""を忘れずに
　　Columns("B").Select
　　For Each c In rngK　'　検索条件範囲を For Each で総当たりループ
' ' 検索
　　　　Set rngF = Selection.Find( _
　　　　　　What:=c, After:=ActiveCell, _
　　　　　　LookIn:=xlValues, LookAt:=xlWhole, _
　　　　　　SearchOrder:=xlByRows, SearchDirection:=xlNext)
　　　　　　cn = cn + 1
　　　　If rngF Is Nothing Then　'　見つからなければ
　　　　　　c.Copy Destination:=wksDst.Cells(cn, 2)
　　　　Else　　　　　　　　　　'　検索にヒットしたら
　　　　　　rngF.EntireRow.Copy Destination:=wksDst.Cells(cn, 1)
　　　　End If
　　Next
　　wksDst.Select
End Sub

' ' ///

検索条件範囲を For Each で総当たりループしてそれぞれのキー毎に検索。
事前に複数の検索対象シートを作業グループにしておいて、
検索対象シートすべてのＢ列　を同時に選択状態にしておく。
検索にヒットしたら、行ごとコピペ、
見つからなければ、検索条件のセルをＢ列にコピペ。

特に指示がありませんでしたので、
重複はない、という扱いをしています。

以上、
色んな方法がありますけれど、
易しいExcel一般機能の組合わせだけで書いています。
手作業の工程をＶＢＡに書き起こしたようなものなので、
処理内容は比較的イメージし易いのではと。
ちなみに、データの統合作業の必要が想定される場合は、
各シートに共通のタイトル行を設けておくのが、データ管理の常道です。
タイトル行があれば、もっと色々な方法が選べますし、
ループしなくてももっと簡単に速く出来ると思いますし、
回答者としても手助けし易くなります。
今後のこととして、もしもシート設計を見直しされるような場合は、
改めて別件の質問としてお訊ねください。

以上です。

お礼

回答が遅れ申し訳ありません。
とても迅速かつ、言葉足らずの質問内容で
私のやりたかった動作を表現してくださり感謝しています。
ありがとうございました。