2017-03-05 346 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'如果你想要定義連續範圍(沒有空白在中間),那麼這種方式非常習慣 –

相關問題