复制到一行中的最后一个非空单元格

Question

我想将特定范围内的数据复制到特定cell

中的上一个有效row

现在我使用这段代码：

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

它仅复制上一个有效cell

Answer 1

由于您必须确保Cells内的Range来自同一工作表，因此要注释的行太多了。

'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