プロが教える店舗&オフィスのセキュリティ対策術

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

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

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


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

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

A 回答 (2件)

こんばんは



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

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

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

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

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



ではどうでしょう?
    • good
    • 0
この回答へのお礼

ありがとうございます!

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング