選択した範囲の、行数を取得するには？（Excel2000マクロ）

質問

Excel2000でマクロを作っています。

任意の長さのテキストファイルをExcelにコピーした状態で、
そのデータの最後の行No.を知る方法を教えてください。

For文で1行目から最後の行までチェックする関数を作っています。
最初のセルの位置は決まっていますが、最後の行（行数）がバラバラで、
しかもデータの間に空行（改行のみ）も混じっています。

コピー→貼り付けの後マクロを実行するので、全データは選択された状態からスタートします。
選択された範囲の最後の行No.を認識する方法があればいいのですが…

わかりにくい文章で申し訳ありません、必要があれば補足させていただきます。

回答No.1

noname#29107 · ベストアンサー

選択範囲の最終行を求めるサンプルです。
Debug.Print Selection.Rows(Selection.Rows.Count).Row

お礼

rebellionさん、早速の回答ありがとうございました。

試してみたところ、質問に書いたとおりの動作が出来て感激しました！
また何かあればよろしくおねがいします。

回答No.3

imogasi

Sub test01()
r=Selection.SpecialCells(xlCellTypeLastCell).Row
Msgbox r
End Sub
と言うのはどうでしょう。

お礼

imogasiさん、早速の回答ありがとうございました。

一つの処理に対して色々な方法があって、勉強になります。
教えていただいた方法を参考にさせていただきます。
また何かあればよろしくおねがいします。

回答No.2

inte-nori

a = Range("A65535").End(xlUp).Row

などとしてみてはどうでしょう？

データが一件もない場合も「1」となってしまいますが。

お礼

inte-noriさん、早速の回答ありがとうございました。

データが一件もないということは無いように作りますので大丈夫です！
No1の方の回答とは違って、最後に空行があった場合はカウントしないようになっているのですね。
また何かあればよろしくおねがいします。