EXCELのオートフィルターで抽出されたレコード件数をVBAで参照する方法は？

質問

EXCELのオートフィルターで抽出されたデータの件数が、左下のステータスバーに表示されますが、その抽出件数をVBAで取得する方法を教えてください。

回答No.1

hakone · ベストアンサー

こんにちは。

Sub Macro1()
　MsgBox Application.Evaluate("SUBTOTAL(3,A:A)") - 1
End Sub

関数でsubtotalが使えることから、A列の個数を数えて
1（タイトル行の部分）を引いています。

Application.Evaluate("SUBTOTAL(3,A2:A65536)")
や
Application.WorksheetFunction.Subtotal(3, Range("A2:A65536"))
でも計算できると思います。