VBAで最終行の行数を取得する

こんてんつ

VBAで最終行の行数を取得する単純なマクロ。

例題

A列の最終行を取得する

Sub Macro1()

Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

MsgBox LastRow

End Sub

（大体） 全ての列の最終行を取得する

Sub Macro2()

Dim LastRowArray() As Long
ReDim LastRowArray(500)

For i = 0 To 50
LastRowArray(i) = Cells(Rows.Count, i + 1).End(xlUp).Row
Next i

MsgBox WorksheetFunction.Max(LastRowArray)

End Sub