マクロ ActiveCellの番地を数字で知る

質問

マクロで　ActiveCellの番地を数字で知りたいのですが
どうすればよいのか、又、CurrentRegionの左端、右端の列番号、最上段、最下段の行番号を知るにはどうすればよいのでしょうか？

回答No.1

hana-hana3

セル情報の取得

http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page7.htm

Sub a()

MsgBox ActiveCell.Address

MsgBox ActiveCell.Row
MsgBox ActiveCell.Column

End Sub

Sub b()

'CurrentRegionの左端、右端の列番号、最上段、最下段の行番号
'最上段
MsgBox Range("A1").CurrentRegion.Row

'最下段
Range("A1").CurrentRegion.Select
MsgBox Selection.Rows.Count + Selection.Row - 1

'左端
MsgBox Range("A1").CurrentRegion.Column

'右端
Range("A1").CurrentRegion.Select
MsgBox Selection.Columns.Count + Selection.Column - 1

End Sub

お礼

ありがとうございます。早速やってみます。