Excel C＆Pmacros

我有一个我创build的订单。 表格的细节是手动input的。 我想创build一个macros来获取单元格/数据，并将它们复制到另一个工作表中，以保存信息logging并释放订单表单以供再次使用。

我已经logging了这样做的macros，但是每次运行macros时都会覆盖最后复制的表单。 我怎样才能让Excel将数据粘贴到空闲单元格下面而不是覆盖以前复制的数据？

' CP Macro ' ' Sheets("Sheet3").Select Range("B2:E19").Select Selection.Copy Sheets("Sheet7").Select ActiveSheet.Paste Columns("A:A").EntireColumn.AutoFit End Sub 

Answer 1

下面的代码findsheet7最低的填充行，不pipe它在哪一列，然后向下一行。 它在内容最下面一行下面一行的A列开始粘贴。

 Sub test() dim lastrow as integer lastrow = Sheets("sheet7").UsedRange.Rows(Sheets("sheet7").UsedRange.Rows.Count).Row + 1 Sheets("sheet3").Select Range("B2:E19").Select Selection.Copy Sheets("sheet7").Select Cells(lastrow, 1).Activate ActiveSheet.Paste Columns("A:A").EntireColumn.AutoFit End Sub 

一个更清洁，更高效的方式来实现相同的目标是使用这个代码：

 Sub test() dim lastrow as integer lastrow = Sheets("sheet7").UsedRange.Rows(Sheets("sheet7").UsedRange.Rows.Count).Row + 1 Worksheets("Sheet3").Range("B2:E19").Copy Destination:=Worksheets("Sheet7").Cells(lastrow, "A") end sub