如何复制一系列数据并将其添加到该数据末尾的另一个工作簿中？

Question

Sub copy()
    Range(“A2:E30”).Select
    Application.CutCopyMode =False
    Selection.Copy
    Windows("yGL dcs.xlsx").Activate
    Range("A47").Select
    ActiveSheet.Paste
End sub

第一个范围并不总是29行，并且可以是yGL工作簿中的另一行。如何使其能够将数据复制到yGL工作簿中的最后一行并将其添加到数据的最后一行？谢谢

Answer 1

虽然您不建议使用.Select或.Activate（虽然我认为您可能刚刚录制了一个宏，这是可以的，但还是不建议您这么做）， ），我不会坐在这里重写您的整个解决方案，因为我根本没有时间。

以下内容可以为您提供帮助。

ActiveSheet.Range("A2:" & ActiveSheet.Range("E1").End(xlDown).Address).Select

...，这将帮助您选择动态源工作簿中的所有数据。它将动态选择一个范围，从A2到E列的最后一行。

这一段代码...

ActiveSheet.Range("A" & ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row).Select

...将带您到目标工作簿中A列的最后一行。

我希望能有所帮助，也希望这是有道理的。