VBA｜最終行を取得する

データの最終行を取得する

Sub 最終行の取得()
    Dim endRow As Long
    endRow = Cells(Rows.Count, "A").End(xlUp).Row
    MsgBox endRow
End Sub

A列の11行目が取得できます。

注意！フィルターなどにより最終行が非表示になっていると正しく取得できません。

よくある事なので、フィルター解除と行の表示のコードを入れておきます。

Sub 最終行の取得()
    Dim endRow As Long
    ActiveSheet.AutoFilterMode = False  'フィルター解除
    Cells.EntireRow.Hidden = False      '行の表示
    endRow = Cells(Rows.Count, "A").End(xlUp).Row
    MsgBox endRow
End Sub