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

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

前提
VBAコード
実行結果
参考

前提

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

VBAコード

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

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

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

絞り込み条件は、「AutoFilter」の引数「Criteria1」に設定します。
複数の条件を指定するために、「Array」を使用します。
※上記では絞り込み条件として「佐藤」と「井上」を指定しています。

実行結果

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

参考

オートフィルタ関連の記事は他にもあります。
あわせてご確認ください。