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

VBAから
 ・オートフィルタの設定
 ・複数の列で絞り込み
をする方法を記載します!

PR

前提

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

実行前
実行前
PR

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

複数の列を絞り込みするために、「AutoFilter」を複数回実行します。
※上記は2つの列に対し絞り込みを実施するために、「AutoFilter」を2回実行しています。

複数の列で絞り込んだ場合は、「AND条件」になります。
※「OR条件」ではなく。

PR

実行結果

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

実行後
実行後
PR

参考

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

タイトルとURLをコピーしました