複製到最後一個非空單元格連續

我想將數據從一個特定的範圍複製到持續活躍cell特定row複製到最後一個非空單元格連續

現在我用這個代碼：

wrkbook1.Sheets("sheet1").Range("A" & Cells.Rows.Count).End(xlUp).Copy

只

它副本最後一個活動cell

來源

2015-09-21 Uppah

你可以顯示一些圖片或解釋更多？因爲不清楚。您想要選擇的範圍...在一行中的列或範圍內。告訴我更多。 –

您複製的範圍只是一個單元格。如果您想先複製範圍，請獲取您需要複製的範圍地址。 – Trimax

@Nicolas，我想從A1複製E.G.到最後一個非空的'cell'在那一行。 – Uppah

這實在是太多了線投入評論，因爲你必須確保該Range內Cells是來自同一個工作表。

'copy from all of sheet1 columns A 
with wrkbook1.Sheets("sheet1") 
    .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy 
end with 

'paste to next blank row in sheet2 column A 
with wrkbook1.Sheets("sheet2") 
    .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial 
end with

來源

2015-09-21 08:45:17 Jeeped

你是我的奧普拉，非常感謝。 – Uppah

也許你也可以幫我解決這個問題。現在我需要在最後一個非空'cell'後面粘貼一些數據。我知道有偏移選項，但我不確定如何正確使用它。 – Uppah

我已經在上面添加了一個合適的'.Paste'單元格。 – Jeeped

複製到最後一個非空單元格連續

回答

相關問題