Excel マクロ 最終セルが毎回違う場合

質問

マクロ初心者です。
自動記録でマクロを作りました。
最終行が毎回違うので、「コピー（オートフィル）をA列の最終行にあわせてする」と作りたいです。
自動記録ではJ71までコピーになっていますが、J71をA列の最終行にしたいです。
よろしくお願いします。
Range("G3:J3").Select
Selection.AutoFill Destination:=Range("G3:J71"), Type:=xlFillDefault
Range("G3:J71").Select

回答No.2

n-jun · ベストアンサー

>Range("G3:J71")
Range("G3:J" & Range("A5").End(xlDown).Row)
でしょうか？

お礼

できました！
ありがとうございました。大変助かりました。

回答No.1

popesyu

最終行の取り方は複数あります。
[CTRL]+[↓]や最終行(65536行)から[CTRL]+[↑]を行うのと同じことをマクロ上で行うか、UsedRangeプロパティを使うかなどです。
http://www.happy2-island.com/excelsmile/smile03/capter00702.shtml

そのシートの構成にあわせて向き不向きがありますのでいろいろと試してください。

補足

早速ご回答ありがとうございます。
説明が下手でした。
コピーしたい列はJのままで、行がA列の最終行になります。

Selection.AutoFill Destination:=Range("G3:J71"),
ここの
J71 の71を変数にしたいのです。

たぶん71のところに
Range("A5").End(xlDown).Row
が入ると思うのですが、どう入れたらいいのでしょうか？
よろしくお願いします。