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

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

前提

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

VBAコード

ここでは例として、
 ・オートフィルタの設定と1列目「名前」を文字列「佐藤」と「井上」で絞り込み
します

Option Explicit

Sub sample()

    'オートフィルタの設定と1列目「名前」を文字列「佐藤」と「井上」で絞り込み
    Worksheets("sample").Range("B2").AutoFilter field:=1, _
                                                Criteria1:=Array("佐藤", "井上"), _
                                                Operator:=xlFilterValues
End Sub

1列目を絞り込むため、「AutoFilter」の引数「field」に「1」を指定します

絞り込み条件は、「AutoFilter」の引数「Criteria1」に設定します。
複数の条件を指定するために、「Array」を使用します。

実行結果

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

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