Ａ列の最終行に合わせて範囲をコピー

Ａ列の最終行に合わせて範囲内をコピーしたいのですが、

Sub 最終行まで選択()
Range(Range("A2"), Range("AF2").End(xlDown)).Copy
End Sub

このコードではA列が20行あって、AF列が30行あったら
A2からAF30まで選択されます。


A列からAF列の範囲で他の列の行数に関係なく
A列の最終行に合わせてコピーしたいです。
今回の場合で言えばA2からAF20の範囲です。

お詳しい方教えてください、宜しくお願いいたします。

No.2 ベストアンサー 回答者： fujillin 回答日時： 2022/09/04 20:12

こんばんは

セル範囲の指定を、範囲の「左上と右下」ではなく、「右上と左下」で指定すれば、ご提示の方法のままで可能です。
Range(Range("AF2"), Range("A2").End(xlDown)).Copy

あるいは、先にA列の範囲を求めて、それをAF列まで広げるとか。
Range(Range("A2"), Range("A2").End(xlDown)).Resize(, 32).Copy

この回答へのお礼

ありがとうございます。解決できました！

お礼日時：2022/09/05 05:43

No.1 回答者： zongai 回答日時： 2022/09/04 19:35

Range(Range("A2"), Range("AF" & Range("A2").End(xlDown).Row)).Copy

ではどうでしょう？

この回答へのお礼

ありがとうございます！

お礼日時：2022/09/05 05:43