VBA～列番号を取得しよう～Excel

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

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

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

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

Sub test1()

Dim a As Long

a = ActiveCell.Column

MsgBox a

End Sub

最終列の列番号の取得

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

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

Sub test2()

Dim a As Long

a = Cells(1, Columns.Count).End(xlToLeft).Column

MsgBox a

End Sub