【VBA】オートフィルタを設定し空白で絞り込む

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

PR

前提

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

実行前
実行前
PR

VBAコード

ここでは例として、
 ・オートフィルタの設定と表の3列目「日時」を
 ・「空白」で絞り込み
をします。

Sub sample()
    'オートフィルタの設定と表の3列目「日時」を「空白」で絞り込み
    Worksheets("sample").Range("B2").AutoFilter field:=3, Criteria1:=""
End Sub

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

「空白」で絞り込みをするために、「AutoFilter」の引数「Criteria1」に「””(空文字)」を指定します。

「空白以外」で絞り込みをしたい場合は、「AutoFilter」の引数「Criteria1」に「<>」を指定します。

PR

実行結果

オートフィルタを設定し空白で絞り込むことが出来ました。

空白で絞り込まれた
空白で絞り込まれた
タイトルとURLをコピーしました