Excel VBA将数据从活动单元复制到另一个工作簿中

Question

我是这里的初学者。我在网上看到了这个示例，可以将数据从固定范围的工作簿复制到另一个工作簿。

有人可以指导我如何从A2单元向前复制到具有数据的最后一个活动单元吗？。

在这个给定的示例中，我想将那些以蓝色突出显示的单元格复制到另一个工作簿中。数据每次都会变化，因此固定范围对我不起作用。我尝试使用“ .UsedRange”，但它也会复制页脚，这是我不需要的。

Sub Copy_Method()
  Workbooks("New-Data.xlsx").Worksheets("Export").Range("A2:D9").Copy _
    Workbooks("Reports.xlsm").Worksheets("Data").Range("A2")

 End Sub

参考：https://www.excelcampus.com/vba/copy-paste-another-workbook/

Answer 1

Sub Copy_Method()
   With Workbooks("New-Data.xlsx").Worksheets("Export")
       .Range("A2", .Cells(.Rows.Count, 2).End(xlUp)).Copy _
       Workbooks("Reports.xlsm").Worksheets("Data").Range("A2")
   End With
 End Sub