2017-03-05 349 views
0

我想将不同数量的条目(通过使用.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 

我不知道这是最简单的方法,但我已经尝试了几次迭代,它总是错误

回答

3

首先,使用CopyDestination是1行命令(而不是2 )。

其次,您需要在With Sheets("General Text")声明中完全限定您的Range,方法是将addind a .作为前缀。

尝试下面的代码:

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

感谢您的答案 - 它现在按预期工作。有没有更简单的方法来定义范围?而不是使用“.Range(.Range(”A2“),.Range .... etc” –

+0

@MolarBear取决于你想要定义的是什么样的'Range'如果你想要定义连续范围(没有空白在中间),那么这种方式非常习惯 –

相关问题