Я пытаюсь скопировать данные из одной рабочей книги в другую для определенных диапазонов, в которых изменяется последняя строка.
Я пробовал несколько различных выражений, где 'H', но на данный момент по умолчанию используется в качестве обходного путидо конца указанного столбца до 10000. Я в тупике.
Sub Copy_Workbook1()
Workbooks("Raw Bulk Upload report.xlsx").Worksheets("ETPP Bulk Upload").Range("f4:H10000).Copy _
Workbooks("ETPP Bulk Upload List.xlsm").Worksheets("TCExport").Range("B2")
Workbooks("Raw Bulk Upload report.xlsx").Worksheets("ETPP Bulk Upload").Range("V4:V100000").Copy _
Workbooks("ETPP Bulk Upload List.xlsm").Worksheets("TCExport").Range("e2")
Workbooks("Raw Bulk Upload report.xlsx").Worksheets("ETPP Bulk Upload").Range("AR4:AU100000").Copy _
Workbooks("ETPP Bulk Upload List.xlsm").Worksheets("TCExport").Range("H2")
Workbooks("Raw Bulk Upload report.xlsx").Worksheets("ETPP Bulk Upload").Range("AJ4:AJ100000").Copy _
Workbooks("ETPP Bulk Upload List.xlsm").Worksheets("TCExport").Range("L2")
Workbooks("Raw Bulk Upload report.xlsx").Worksheets("ETPP Bulk Upload").Range("AX4:AX100000").Copy _
Workbooks("ETPP Bulk Upload List.xlsm").Worksheets("TCExport").Range("M2")
End Sub
Скопируйте данные из диапазонов столбцов, в которые они попадут в последнюю ячейку, а затем вставьте в другую книгу.