ＥＸＣＥＬのＶＢＡでデータ範囲の取得方法について

質問

エクセルのＶＢＡで毎回変動するデータの最終行、列の位置を把握する方法について質問します。
現在、CurrentRegion.Rows(Cols).Countを使ってデータの最終行と列位置を出すようにしているのですが、列位置の数値を列記号(Ａ，Ｂ，Ｃ)に直す方法がわかりません。どなたか良い方法をご指導願えないでしょうか。もしくは、データ範囲をA1:Y500のように一度に把握する方法があればご指導下さい。

回答No.4

taocat · ベストアンサー

例えばCurrentRegionが、Ａ１：Ｆ９　の場合。

●列番号Ｆを求めるには

Chr(64 + Range("A1").CurrentRegion.Columns.Count)

Chr(65) が　Ａ
Chr(66) が　Ｂ
Chr(67) が　Ｃ
後続く。

●絶対番地　$A$1:$F$9 を求めるには

Range("A1").CurrentRegion.Address

●相対番地　A1:F9　を求めるには

Range("A1").CurrentRegion.Address(0, 0)

以上。

お礼

お礼がおそくなってすみません。ていねいなご指導ありがとうございました

回答No.3

maruru01

こんにちは。maruru01です。

>データ範囲をA1:Y500のように一度に把握する方法
なら、Addressプロパティでいいのでは？

CurrentRegion.Address(False, False)

>列位置の数値を列記号(Ａ，Ｂ，Ｃ)に直す方法
どういう目的なんでしょうか？
本当に「"A"」というアルファベットを取得したいのでしょうか？

お礼

早速のご指導ありがとうございました。
CurrentRegionの使い方がもう一つわかっていなくて
とんちんかんな質問をしてしまいました。
教えていただいた方法で再度挑戦してみます。
ありがとうございました。

回答No.2

GuruGuru22

なんか遠回りしてるような。
>データ範囲をA1:Y500のように一度に把握する方法があればご指導下さい。

そのデータ範囲がCurrentRegionではないのですか。
アドレス表示したきゃ、
range("A1").CurrentRegion.Address(0,0)
を参照すればよいけど、CurrentRegionを操作すれば
よいんでないの。

お礼

早速のご指導ありがとうございました。
CurrentRegionの使い方がもう一つわかっていなくて
とんちんかんな質問をしてしまいました。
ご指摘の方法は大変参考になりました
ありがとうございました。

回答No.1

GETSTREET

Sub test()

R = Cells(65536, 1).End(xlUp).Address
C = Cells(1, 1).End(xlToRight).Address

MsgBox R & ":" & C

End Sub

お礼

早速のご指導ありがとうございました。
具体的な方法をご指導いただき感謝します
ありがとうございました。