У меня есть несколько ежемесячных файлов с января по декабрь, каждый с одним и тем же шаблоном, содержащий данные.Я хочу добавить макрос для каждого месяца, который будет передавать данные в общий файл, который будет содержать всю информацию.Я надеюсь, что данные за каждый месяц будут вставлены в общий файл, добавив к предыдущим данным, не удаляя предыдущие данные.Переданные данные должны начинаться со следующей пустой строки после предыдущих данных.
Каждый месяц содержит разное количество данных, поэтому я скопировал из первой строки в последнюю строку, которая может варьироваться.Затем я открыл файл, в который хочу скопировать.Затем, исходя из того, что я считаю, я вставил следующую пустую строку.
Private Sub()
Dim Lastrow As Long
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("A9:EM" & Lastrow).Copy
Workbooks.Open Filename:="S:\US Div\FileName.xlsx"
Worksheets("Premium Reporting").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWorkbook.Close SaveChanges:=True
ActiveSheet.Range("G2").Value = "Exported"
End Sub()
Данные заменяют предыдущие данные, а не добавляют к ним.