rangeに変数代入でエラー

VBA初心者です。お願いします。

下記のように最終セルのアドレスを取得し、セル範囲を選択したいのですがたのですが、エラーが出てしまいます。どなたか助けてください。

ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
l = ActiveCell.Column 'アクティブセルの列番号
d = ActiveCell.Row 'アクティブセルの行番号
ad = ActiveCell.Address 'アクティブセルのアドレス

Range("A1:ad").Select

No.2 回答者： imogasi 回答日時： 2008/07/23 09:38

Cells.SpecialCells(xlCellTypeLastCell）を使うことに対し、理解して使ってますか。

色々な場合を考えると危険があるように推測する。
http://www.keep-on.com/excelyou/2001lng4/200101/ …
参照
ーー
ＣＴＲＬ＋ＳＨＩＦＴ＋＊の操作に当たる
Selection.CurrentRegion.Select
などを考えては。
ただＳｅｌｅｃｔｉｏｎするセルを適当に決めないとダメだが。
確実にデータがある、データの塊の中の１セルなどを決められる
ことが必要で、（例えば項目見出しの入ったセル）それをＳｅｌｅｃｔする必要があるが。
--
初心者の場合
Ａ手法を習得ーー＞こりゃいいわ、とＢの場合に飛びついてＡの手法を応用　するのだが
Ｂの場合の最適な手法Ｃは別に無いか？を考えるのも進歩に必要。
Ａの手法を使える、前提になっている事項に気を配ることも
大切。

この回答へのお礼

時間がなかったので、本日試すことが出来ませんでしたが、近日中に確認してみます。
お礼を先に書きたかったので先に記載させていただきます。ありがとうございました。

お礼日時：2008/07/23 22:59

No.1 回答者： redfox63 回答日時： 2008/07/23 01:17

変数を""の中に記述してもその変数が保持する値にはなりません

Range("A1:" & ad ).Select
といった具合に 変数を""の外に追い出して &演算子で連結しましょう

この回答へのお礼

ありがとうございます。
助かりました。

お礼日時：2008/07/23 23:02