VBA～セルの行番号を取得しよう～Excel

VBAでセルの行番号を取得したい時はRange.Rowプロパティで取得できます。

アクティブセルの行番号の取得

アクティブセルの行番号を取得したい場合はActiveCell.Rowで取得できます。

下のコードを実行するとアクティブセルの行番号がメッセージボックスに表示されます。

Sub test1()

Dim a As Long

a = ActiveCell.Row

MsgBox a

End Sub

最終行の行番号の取得

指定した列のデータの入力された最終行の行番後を取得したい場合はCells(Rows.Count, 列番号).End(xlUp).Rowで取得できます。

下のコードを実行するとA列のデータの入力されている最終行の行番号がメッセージボックスに表示されます。

Sub test2()

Dim a As Long

a = Cells(Rows.Count, 1).End(xlUp).Row

MsgBox a

End Sub