Excel VBA：我可以简单地扩展一个范围吗？

我在VBA中有一个声明来创build一个Range，然后被选中并复制。 之后我粘贴到别的地方。 但是最后一行没有换行符，所以我想把范围扩大一个。 我目前的发言是：

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

将此范围向下延伸的最简单方法是什么？

Answer 1

是：

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

您使用“偏移量”向下移动一个单元格。 偏移量使用以下格式：“偏移量（行，[列]）

您也不需要select范围来复制范围。

Answer 2

你可以做

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

它通过使用xlDown方法添加到行中。