VBA で名前の定義をしたいのですが・・・

質問

初心者です。
いろいろ試してみたのですが、だめでした。
ご教授ください。

対象という名前を定義させたいと思っています。
定義の参照範囲は可変です。
定義したい範囲はSheet1のAA3からAAの最終行までです。
それでマクロの自動記録から名前の定義のコードを取ってきて
変数を代入してみましたが、参照範囲を正しく取ってきてくれませんでした。

Sub test()

'対象の名前を定義する
Dim n As Long
n = Sheets("Sheet1").Cells(Rows.Count, 27).End(xlUp).Row
Sheets("Sheet1").Select
Range(Cells(3, 27), Cells(n, 27)).Select
ActiveWorkbook.Names.Add Name:="対象", RefersToLocal:="=Sheet1!R3C27:RnC27"

End Sub

RefersToLocal:="=Sheet1!R3C27:RnC27"の部分を

RefersToLocal:="=Sheet1!R3C27:R&n&C27"
RefersToLocal:="=Sheet1!R3C27:"R"&n&"C27""
にしてもだめでした。

うまく範囲をとってくれる方法を教えてください。
お願いします。

回答No.1

okormazd · ベストアンサー

1.
「範囲はSheet1のAA3からAAの最終行まで」というのだから、nは最終行(Rows.Count)になるようにする。
2.
「RnC27」これが違っている。下記のようにする。
3.
名前の定義だけなら、選択する必要がないし、選択しない方がいい。
4.
R1C1形式とA1形式が混在していいるので、統一したほうがいいかなとも思うが。

Sub test()

'対象の名前を定義する
Dim n As Long
n = Rows.Count
ActiveWorkbook.Names.Add Name:="対象", RefersTo:="=Sheet1!R3C27:R" & n & "C27"

End Sub

お礼

okormazd さん

ありがとうございます。
御礼が遅くなってすみませんでした。

ああああ、そうだったんですね。
"の使い方を間違っていたんですね。

うまくいきました。
本当に助かりました。
ありがとうございました。

私もR1C1形式は使い慣れていないのですが、
マクロの自動記録でこの表示になったので、
A1形式やCell形式にしようと試みたのですが、
認識してくれませんでした。
それで、やむを得ず、この形式を使っています。
ひょっとしてこれも形式の変更の仕方が間違っていたのでしょうか？

vba、初心者には難しすぎます！！