Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.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
Vba 将单元格范围从一张图纸复制到另一张图纸_Vba_Excel - Fatal编程技术网

Vba 将单元格范围从一张图纸复制到另一张图纸

Vba 将单元格范围从一张图纸复制到另一张图纸,vba,excel,Vba,Excel,我想(通过使用.End(xlDown))将具有不同条目的列复制到另一张工作表向下的C列中 With Sheets("General Text") Range(Range("A2"), Range("A2").End(xlDown)).Copy Destination:=Sheets("Compiler").Range(Range("C2"), Range("C2").End(xlDown)) End With 我不确定这是否是最简单的方法,但我尝试了几次迭代,每次都会出错,首

我想(通过使用.End(xlDown))将具有不同条目的列复制到另一张工作表向下的C列中

With Sheets("General Text")
    Range(Range("A2"), Range("A2").End(xlDown)).Copy 
    Destination:=Sheets("Compiler").Range(Range("C2"), Range("C2").End(xlDown))
End With

我不确定这是否是最简单的方法,但我尝试了几次迭代,每次都会出错,首先使用
Copy
Destination
是一个单行命令(不是2)

其次,您需要在
语句中添加
作为前缀,使用工作表(“常规文本”)
语句完全限定
范围

请尝试以下代码:

With Sheets("General Text")
    .Range(.Range("A2"), .Range("A2").End(xlDown)).Copy Destination:=Sheets("Compiler").Range("C2")
End With

首先,将
Copy
Destination
一起使用是一个单行命令(不是2行)

其次,您需要在
语句中添加
作为前缀,使用工作表(“常规文本”)
语句完全限定
范围

请尝试以下代码:

With Sheets("General Text")
    .Range(.Range("A2"), .Range("A2").End(xlDown)).Copy Destination:=Sheets("Compiler").Range("C2")
End With

谢谢你的回答,现在一切正常。有没有更简单的方法来定义范围?与其使用“.Range(.Range(“A2”),.Range…etc”@MolarBear取决于您试图定义的
范围的类型。如果您想定义连续范围(中间没有空格),那么这种方法已经非常习惯了感谢您的回答-它现在可以按预期工作。有没有更简单的方法来定义范围?而不是使用“.Range(.Range(“A2”),.Range…etc”@MolarBear取决于您试图定义的
范围的类型。如果您想定义连续范围(中间没有空格),那么这种方式非常常见。”