選択した範囲の行列番号を取得 セル番地に変換

Public Sub サンプル()

行番号1 = Selection(1).Row
行番号2 = Selection(Selection.Count).Row
列番号1 = Selection(1).Column
列番号2 = Selection(Selection.Count).Column

セル番地1 = Cells(行番号1, 列番号1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
セル番地2 = Cells(行番号2, 列番号2).Address(RowAbsolute:=False, ColumnAbsolute:=False)

MsgBox ("選択範囲は " & セル番地1 & " : " & セル番地2)
End Sub

目次へ