HOME > 即効テクニック > Excel VBA > セル操作関連のテクニック > セルの行番号/列番号を取得する

セルの行番号/列番号を取得する|Excel VBA

セル操作関連のテクニック

セルの行番号/列番号を取得する

(Excel 97/2000/2002/2003/2007/2010)

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