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