从一个工作簿复制到另一个工作簿中某个范围的最后一个单元格发生变化的范围

时间:2019-11-06 18:48:40

标签: excel vba

我正在尝试将数据从一个工作簿复制到另一行中特定范围的数据,其中最后一行会发生变化。

我曾尝试对“ 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 :(得分:0)

我不明白您想要Power Query做不到的事情。使用表,查询和连接,应该没问题。