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