VBA～セルのアドレスを取得しよう～Excel

VBAでセルのアドレスを取得したい時はRange.Addressプロパティで取得できます。

アクティブセルのアドレスの取得

アクティブセルのアドレスを取得したい場合はActiveCell.Addressで取得できます。下のコードを実行するとアクティブセルのアドレスが絶対参照でメッセージボックスに表示されます。

Sub test1()

Dim a As Variant

a = ActiveCell.Address

MsgBox a

End Sub

最終行のアドレスの取得

指定した列のデータの入力された最終行のアドレスを取得したい場合はCells(Rows.Count, 列番号).End(xlUp).Addressで取得できます。下のコードを実行するとA列のデータの入力されている最終行のアドレスが絶対参照でメッセージボックスに表示されます。

Sub test2()

Dim a As Variant

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

MsgBox a

End Sub

最終列のアドレスの取得

指定した行のデータの入力された最終列のアドレスを取得したい場合はCells(行番号, Columns.Count).End(xlToLeft).Addressで取得できます。下のコードを実行すると行1のデータの入力されている最終行のアドレスが絶対参照でメッセージボックスに表示されます。

Sub test2()

Dim a As Long

a = Cells(Rows.Adressnt, 1).End(xlUp).Address

MsgBox a

End Sub