セルの行番号/列番号を取得する|Excel VBA |
RangeオブジェクトのRowプロパティでセル範囲の上端の行番号、Columnプロパティで左端の列番号を取得します。
セル範囲の右端の行番号、下端の列番号は、Rows/Columnsプロパティを一緒に使うことで取得できます。
次のサンプルは、アクティブシートの使用中のセル範囲の行番号、列番号を表示します。
Sub Sample()
Dim myLastRow As Long
Dim myLastCol As Long
With ActiveSheet.UsedRange '対象はアクティブシートの使用中のセル
'最終行の行番号
myLastRow = .Rows(.Rows.Count).Row
'最終列の列番号
myLastCol = .Columns(.Columns.Count).Column
MsgBox "アドレス : " & .Address & vbCrLf & _
"先頭行 - 最終行 : " & .Row & " - " & myLastRow & vbCrLf & _
"先頭列 - 最終列 : " & .Column & " - " & myLastCol, , _
"使用済みセル範囲"
End With
End Sub