Как мне скопировать диапазон данных и добавить их в другую книгу в конце этих данных?

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.

Я надеюсь, что это помогает, и я надеюсь, что это имеет смысл.