オートフィルタの絞り込み結果件数取得

ws.Range("A2").AutoFilter Field:=2, Criteria1:="ピカちゅう"
If WorksheetFunction.Subtotal(3, Range("C:C")) = 1 Then
    '結果が0件の場合の処理。
End If

この処理は、オートフィルタを実施して、C列をCOUNTAした結果、タイトル行の1件しか無かった＝フィルタ絞り込み結果0件だ、てなことをしてます。

自分はA1に表の名前を入れる癖があるので、Range("A:A")で上記処理を行うと表の名前とタイトル行がカウントされて2件になってしまいます。適宜読み変えましょう。

以上。