エクセルで今あるセルからデータのある最終列までの範囲を選択するには

セルが、あるセルにあり、そのセルから右へデータのある最後の列までの範囲を選択するコードを教えていただけないでしょうか。

No.1 回答者： xls88 回答日時： 2008/10/04 18:41

例えば

MsgBox Range(ActiveCell, ActiveCell.End(xlToRight)).Address
とか
MsgBox Range(ActiveCell, Cells(ActiveCell.row, Columns.Count).End(xlToLeft)).Address

No.2 回答者： gyouda1114 回答日時： 2008/10/04 18:46

＞範囲を選択するコードを教えていただけないでしょうか

コードではありませんがそのセルから右へデータのある最後の列までの範囲を選択する方法です
ノートパソコンで確認してます
多分デスクトップでも同じだと思います
Ctrl＋Shift＋→キー（end）

No.3 ベストアンサー 回答者： imogasi 回答日時： 2008/10/04 22:45

質問が良くわからない。

＞セルが、あるセルにあり
なんて何のこと？
例えばD3を今選択されていて、I3が、データのあるセルとしては一番右の列の場合、
SHIFTキーを押しつつ、ENDキーを押し、続いて横矢印きーでよいのかな。
コードってVBAの話ですか。
それをマクロの記録をとればわかることですよ。
D5の例
Range("D5").Select
Range(Selection, Selection.End(xlToRight)).Select

No.4 回答者： okormazd 回答日時： 2008/10/05 01:03

マクロ記録。

途中に空白セルがあってもこれでいくでしょう。

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select