Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/arduino/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA:我可以简单地将范围扩展一个吗?_Vba_Excel - Fatal编程技术网

Excel VBA:我可以简单地将范围扩展一个吗?

Excel VBA:我可以简单地将范围扩展一个吗?,vba,excel,Vba,Excel,我在VBA中有一条语句来创建一个范围,然后选择并复制该范围。然后我把它贴到别的地方。但是最后一行是粘贴的,没有换行符,所以我想将我的范围扩大一行。我目前的发言是: Set twoRange = Range("A2", Range("A2").End(xlDown)) twoRange.Select twoRange.Copy 将此范围向下扩展一行的最简单方法是什么?是: Set twoRange = Range("A2", Range("A2").End(xlDown).Offset(1))

我在VBA中有一条语句来创建一个范围,然后选择并复制该范围。然后我把它贴到别的地方。但是最后一行是粘贴的,没有换行符,所以我想将我的范围扩大一行。我目前的发言是:

Set twoRange = Range("A2", Range("A2").End(xlDown))
twoRange.Select
twoRange.Copy
将此范围向下扩展一行的最简单方法是什么?

是:

Set twoRange = Range("A2", Range("A2").End(xlDown).Offset(1))
twoRange.Copy
可以使用“偏移”再向下移动一个单元格。偏移量使用以下格式:`Offset(行,[列])

您也不需要选择范围来复制范围。

您可以这样做

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

这将向使用
xlDown
方法找到的行中添加一个。

您甚至不需要设置范围并转到:
range(“A2”,range(“A2”)。End(xlDown)。Offset(1))。Copy