VBA AdvancedFilter

Sub AdvancedFilterSample()
    Dim dataRng As Range 'データ範囲(見出し要)
    Dim searchRng As Range '抽出条件範囲(見出し要)
    Dim copyToRng As Range '転記先の見出しセル範囲

    Set dataRng = Worksheets("data").Range("A1:CI1000")
    Set searchRng = Worksheets("data").Range("K1:K2")
    Set copyToRng = Worksheets("転記").Range("A1:I1")

    ' 転記先である別シートに転記
    dataRng.AdvancedFilter _
        Action:=xlFilterCopy, _
        criteriaRange:=searchRng, _
        copyToRange:=copyToRng, _
        Unique:=False

    Debug.Print "データを別シートに抽出完了"
End Sub