WorksheetFunction.Subtotal(3, .Range("A:A"))

A列の行数を取得する。絞り込めている可視行を表示します。
これが1の場合は、何も絞り込めていない(当てはまるものはナシ)
If WorksheetFunction.Subtotal(3, .Range("A:A"))=1 then
  Msgbox "絞り込めなかったよ"
End if

前へ 次へ

この情報が含まれているまとめはこちら

【VBA】 オートフィルターでの抽出作業【Excel】

オートフィルターでの可視セルのコピーや、絞り込みです。可視セルのみコピーしたい場合や、可視セルのみ数式をコピーしたい場合など様々な場合で使いたいことは多いでしょう!ということでまとめます。(取り急ぎ。 追記予定)

このまとめを見る