VBA 選択範囲の任意の列のRange(R1C1)を取得
Debug.Print ConvertToLetter(Selection.Column) & Selection.Row & ":" & _ConvertToLetter(Selection.Column) & Selection.Rows(Selection.Rows.Count).Row Debug.Print Range(Cells(Selection.Row, 2), Cells(Selection.Rows(Selection.Rows.Count).Row, 2)).Address Debug.Print Selection.Columns(2).Address