【VBA】オートフィルタを設定し、複数の列で絞り込む

前提

シート「sample」の以下の表に対して、
　・オートフィルタの設定
　・複数の列で絞り込み
をします。

VBAコード

ここでは例として、
　・オートフィルタの設定
　・表の1列目を「エレン」で絞り込み
　・表の3列目を「30以上」で絞り込み
します。

Sub sample()

    With Worksheets("sample").Range("B2")
        '表の1列目「名前」を「エレン」で絞り込み
        .AutoFilter field:=1, Criteria1:="エレン"
        '表の3列目「売上」を「30以上」で絞り込み
        .AutoFilter field:=3, Criteria1:=">30"
    End With
    
End Sub

実行結果

オートフィルタを設定し、複数の列で絞り込むことが出来ました。

参考

「複数の列に条件を指定して絞り込む」ではなく、
「1つの列に複数の条件を指定して絞り込む」こともできます。