マクロでオートフィルタを掛ける

オートフィルタ

Sub Macro1()
    Worksheets("book1").activate

    'オートフィルタを設定 
    'Field:=2  番号によりフィルタ項目を指定 
    '絞り込みオプションが複数ある場合、配列を用意
    ActiveSheet.Range("$A$1:$BA$137934").AutoFilter Field:=2, Criteria1:=Array( _
        "オプション1", "オプション2", "オプション3", _
        Operator:=xlFilterValues

    '複数フィルタ項目を指定したい場合
     Worksheets("book1").Range("A8").AutoFilter Field:=4, Criteria1:="=単語1"
     Worksheets("book1").Range("A8").AutoFilter Field:=7, Criteria1:="単語2"

    'フィルタ結果をコピーし、book2のセルH1に貼り付け
    Worksheets("book1").Range("AE8").CurrentRegion.Copy _
    Worksheets("book2").Range("H1")

    'オートフィルタを解除
    Worksheets("book1").AutoFilterMode = False
End Sub