kurukuru-papaのブログ

主に、ソフトウェア開発に関連したメモを書き溜めたいと思います。

最終行の取得サンプル

VBAマクロにて、アクティブシートの最終行を取得するサンプルを以下に示します。
 ただし、行が追加・削除された場合などは誤認識するけど、ファイルを保存して開き直すと正常に戻るそうです。

' 最終行の取得
' 誤認識する場合あり
Dim endRow As Long
endRow = Cells.SpecialCells(xlCellTypeLastCell).Row