エクセル オートフィルタで摘出したデータだけをカウントしたい vba

質問

エクセルでオートフィルタして摘出したデータをカウントしたいのですその結果をＶＢＡのメッセージボックスで表示させてたいです。
オートフィルタについては、シート上で自ら条件を出しますので、ただカウントだけしたいです。
カウントさせるセルはＡ列の１０番から１１０番です。
データは数値です
お忙しいところどなたかご教授ください

回答No.2

taocat

こんにちは。

＞A10は変更無いのですが、Ａ１１０の部分はまちまちになります

-----------------------------------------------
Sub Test555()

　　Dim LastRow As Long

　　LastRow = Range("A65536").End(xlUp).Row

　　MsgBox Range("A10:A" & LastRow).SpecialCells(xlCellTypeVisible).Count

End Sub
-----------------------------------------------

Range("A65536").End(xlUp).RowでＡ列の最後の行が取得できます。

以上です。

回答No.1

taocat

こんばんは。

シンプルなのをひとつ。。(--;;

-------------------------------------------
Sub Test()

　MsgBox Range("A10:A110").SpecialCells(xlCellTypeVisible).Count

End Sub
--------------------------------------------

以上です。

補足

ありがとうございます。あわせて　A10は変更無いのですが、Ａ１１０の部分はまちまちになります。お手数おかけしますが、おしえていただけますか？