我正在尝试将数据从一个工作簿复制到另一行中特定范围的数据,其中最后一行会发生变化。
我曾尝试对“ 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
从列范围复制数据,该数据将到达最后一个单元格,然后粘贴到另一个工作簿。