Копировать из одной рабочей книги в другую для диапазона, в котором изменяется последняя ячейка диапазона - PullRequest
0 голосов
/ 06 ноября 2019

Я пытаюсь скопировать данные из одной рабочей книги в другую для определенных диапазонов, в которых изменяется последняя строка.

Я пробовал несколько различных выражений, где '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

Скопируйте данные из диапазонов столбцов, в которые они попадут в последнюю ячейку, а затем вставьте в другую книгу.

1 Ответ

0 голосов
/ 07 ноября 2019

Я не понимаю, чего вы хотите Power Query не может сделать. Используйте таблицы и запросы и соединения, и вы должны быть в порядке.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...