Rangeオブジェクトに格納できない

Ａ１からD5までデータが入っているのですが、
そのデータの情報をRangeオブジェクトに格納する事は出来ないのでしょうか？

vbaで
Sub Sampsle()
Dim r As Range
r = ActiveSheet.UsedRange

End Sub
をやろうとしてるのですが、
実行時エラー_91「オブジェクト変数またはWithブロック変数が設定されていません」になります。

r に格納しちゃえば、最終列が何列目か最終行が何行目か、A1の値は何か、などしゅとくできるんじゃないかなー
と思ったのですが、できないのでしょうか？

No.1 ベストアンサー 回答者： DexMachina 回答日時： 2013/03/08 00:04

VBAでオブジェクトを変数に格納する場合は、

　　Set r = ActiveSheet.UsedRange

といったように、「Set」が必要です。

Sub Sample()
　　Dim r As Range
　　Set r = ActiveSheet.UsedRange
　　MsgBox "使用範囲の総セル数は " & r.Count " です"
　　Set r = Nothing
End Sub


※Setで格納した変数は、使用後はNothingをしておいた方が無難です。

この回答へのお礼

あ！！！！
set忘れてました！
無事解決しました。ありがとうございました。

お礼日時：2013/03/08 20:31