VBA　フィルターで抽出したデータの件数を取得

フィルターで抽出したデータの件数を取得

Sub test()

’　フィルターで抽出データ件数取得

    Dim myCnt As Long
    myCnt = WorksheetFunction.Subtotal(3, Range("A:A")) - 1
    MsgBox "抽出したデータ件数：" & myCnt

End Sub

実行結果

WorksheetFunction.Subtotalを使って、フィルターで絞り込んだ結果件数を取得することができます。ぜひ試してみてください。