|
AdvancedFilterで抽出する例です。
データがシート1にあるとして、
Z列を作業列に使います。
項目数は6あると仮定しています。
シート2に書き出します。
Sub test()
Application.ScreenUpdating = False
With Sheets("Sheet1")
'抽出する項目名と抽出文字をセット
.Range("Z1:Z4").Value = Application.Transpose(Array(.Range("B1").Value, "A", "C", "E"))
.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
.Range("Z1", .Range("Z65536").End(xlUp)), Unique:=False
.Range("A2", .Range("A65536").End(xlUp)).Resize(, 6).Copy Sheets("Sheet2").Range("A1") '↑項目数
.ShowAllData
.Range("Z:Z").ClearContents
End With
Application.ScreenUpdating = True
End Sub
|
|