Excel VBA：単純に範囲を1つ拡張できますか？

Question

VBAで範囲を作成するステートメントがあり、これを選択してコピーします。その後、私はそれをどこかに貼り付けます。しかし最後の行は改行なしで貼り付けられているので、範囲を1つ拡張したいと思います。私の現在の文は次のとおりです。

Set twoRange = Range("A2", Range("A2").End(xlDown)) 
twoRange.Select 
twoRange.Copy 

この範囲1行下に拡張するための最も簡単な方法は何ですか？

Answer 1

はい：1つの以上のセルを下に移動するオフセットあなたが使用

Set twoRange = Range("A2", Range("A2").End(xlDown).Offset(1)) 
twoRange.Copy 

。オフセットは次の形式を使用します。オフセット（行、[列]）

範囲をコピーする範囲を選択する必要もありません。

Answer 2

あなたはxlDownアプローチを使用していた行に1を加算

Set twoRange = Range("A2:A" & Range("A2").End(xlDown).Row + 1) 

を行うことができます。