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

我想从特定范围复制数据到最后一个特定row活动cell

现在我使用这个代码：

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

它只复制最后一个活动cell

Answer 1

这是太多的行要放在注释中，因为您必须确保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