[複数シートからデータを抽出]
ブック内の複数シートから、条件に合った検索値Dataを集結したい場合。
※複数シートは同じフォーマット前提です。
※下記コードは、A1～Dataがある場合なので、そうじゃない場合は変更必要です。
＜コード＞
Sub 複数シートからデータを抽出()
Dim i As Long
Dim 検索値 As Range
Worksheets("集約シート").Select
'A4行以降をシートリセット
Range(Range("A4"), Cells.SpecialCells(xlCellTypeLastCell)).EntireRow.Delete
On Error Resume Next
'ブック内のシート数カウント
For i = 2 To Worksheets.Count
For Each 検索値 In Range("1:1").SpecialCells(xlCellTypeConstants)
Worksheets(i).Range("A1").CurrentRegion.AutoFilter field:=検索値.Column, Criteria1:=検索値.Value
'Worksheets(i).UsedRange.AutoFilter field:=検索値.Column, Criteria1:=検索値.Value
Next
Worksheets(i).AutoFilter.Range.Offset(1).Copy Destination:=Range("A65536").End(xlUp).Offset(1)
Worksheets(i).AutoFilterMode = False
Next i
End Sub
＜サンプル＞↓
項目2,項目3,9月の検索したい値 が、検索値1 and 検索値2 and 300 の場合、
※セル A1~I1 に検索したい値を記載します（DataがA～I列の場合）。
検索結果はブック内の複数シートから、下記イメージで検索条件に合ったDataを集結します。
