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

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

PR

前提

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

実行前のシート
PR

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」を使用します。
※上記では絞り込み条件として「佐藤」と「井上」を指定しています。

PR

実行結果

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

実行後のシート
PR

参考

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

【VBA】オートフィルタを利用して、条件に一致した行ではない行を削除する
【VBA】オートフィルタを利用して、条件に一致した行のみを削除する
【VBA】オートフィルタを設定し、複数の列で絞り込む
【VBA】オートフィルタを設定し、日付で絞り込む
【VBA】オートフィルタを設定し、文字色で絞り込む
【VBA】オートフィルタを設定し、ワイルドカードを使用して条件を絞り込む
【VBA】オートフィルタを設定し、セルの背景色で絞り込む
【VBA】オートフィルタの条件をクリアして、全てのデータを表示する
【VBA】オートフィルタを設定し、1つの列に複数の条件で絞り込む
【VBA】オートフィルタを設定し空白で絞り込む
【VBA】オートフィルタを設定し絞り込み(数値)をして、絞り込んだ結果の件数を取得する
【VBA】オートフィルタを設定し絞り込み(文字列)をして、絞り込んだ結果の数値の合計を取得する
【VBA】オートフィルタの設定/解除をする
タイトルとURLをコピーしました