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

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

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

(Excel 97/2000)
Rowプロパティでセル範囲の上端の行番号、Columnプロパティで左端の列番号を取得します。
セル範囲に右端の行番号、下端の列番号の取得は、Rows/Columnsプロパティを一緒に使うことで実現できます。次のサンプルは、アクティブシートの使用中のセル範囲の最終行番号、最終列番号を取得します。
●サンプル● 
Sub RowColumnSamp1()

   Dim myLastRow As Long	'最終行を格納する変数
   Dim myLastCol As Integer	'最終列を格納する変数

   With ActiveSheet.UsedRange	'対象はアクティブシートの使用中のセル
      '最終行の行番号
      myLastRow = .Rows(.Rows.Count).Row
      '最終列の列番号	
      myLastCol = .Columns(.Columns.Count).Column
   End With

   MsgBox "使用済みセル範囲の" & Chr(13) & _
      "最終行は" & myLastRow & Chr(13) & _
      "最終列は" & myLastCol

End Sub