excel VBA

タイトル通り、フィルタ確認し、ついていたら取って付け直すのは、
以下のコードになります。

Sub test()    
    With ActiveSheet
        If .AutoFilterMode Then
           .AutoFilterMode = False
        End If        
        .UsedRange.AutoFilter
    End With    
End Sub

下記サイトさんを参考にさせていただきました。ありがとうござました!
オートフィルタの状況を調べる
ワークシートで使用されているセル範囲

また、検索結果で0件の場合を知りたかったのですが、
「WorksheetFunction.Subtotal(3, Range("B:B"))」で、
1だとタイトルだけなのでなし、ということになるようです。

参考サイトさん
オートフィルタの結果を集計する
いつもありがとうございます(ぺこぺこ)

おすすめの記事