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

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

前提

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

VBAコード

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

Option Explicit

Sub sample()

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

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

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

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

実行結果

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

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