VBA大型任务将来自两个不同工作簿的不同列的数据提取到新工作簿的两列中

Sub ExtractData()
    Dim sourceWorkbook1 As Workbook
    Dim sourceWorkbook2 As Workbook
    Dim destinationWorkbook As Workbook
    Dim sourceWorksheet1 As Worksheet
    Dim sourceWorksheet2 As Worksheet
    Dim destinationWorksheet As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Dim i As Long
    
    ' 打开源工作簿1
    Set sourceWorkbook1 = Workbooks.Open("路径\工作簿1.xlsx")
    ' 打开源工作簿2
    Set sourceWorkbook2 = Workbooks.Open("路径\工作簿2.xlsx")
    ' 创建目标工作簿
    Set destinationWorkbook = Workbooks.Add
    ' 设置源工作表1
    Set sourceWorksheet1 = sourceWorkbook1.Worksheets("工作表1")
    ' 设置源工作表2
    Set sourceWorksheet2 = sourceWorkbook2.Worksheets("工作表2")
    ' 设置目标工作表
    Set destinationWorksheet = destinationWorkbook.Worksheets(1)
    
    ' 获取源工作表1最后一行
    lastRow1 = sourceWorksheet1.Cells(sourceWorksheet1.Rows.Count, 1).End(xlUp).Row
    ' 获取源工作表2最后一行
    lastRow2 = sourceWorksheet2.Cells(sourceWorksheet2.Rows.Count, 1).End(xlUp).Row
    
    ' 将源工作表1的数据提取到目标工作表的第一列
    For i = 1 To lastRow1
        destinationWorksheet.Cells(i, 1).Value = sourceWorksheet1.Cells(i, 1).Value
    Next i
    
    ' 将源工作表2的数据提取到目标工作表的第二列
    For i = 1 To lastRow2
        destinationWorksheet.Cells(i, 2).Value = sourceWorksheet2.Cells(i, 2).Value
    Next i
    
    ' 保存目标工作簿
    destinationWorkbook.SaveAs "路径\目标工作簿.xlsx"
    
    ' 关闭工作簿
    sourceWorkbook1.Close
    sourceWorkbook2.Close
    destinationWorkbook.Close
    
    ' 释放对象
    Set sourceWorksheet1 = Nothing
    Set sourceWorksheet2 = Nothing
    Set destinationWorksheet = Nothing
    Set sourceWorkbook1 = Nothing
    Set sourceWorkbook2 = Nothing
    Set destinationWorkbook = Nothing
    
    MsgBox "数据提取完成！"
End Sub