如何使用VBA将多个工作簿的第一列合并为不同工作簿的工作表

Sub MergeColumns()
    Dim SourceBook As Workbook
    Dim TargetBook As Workbook
    Dim SourceSheet As Worksheet
    Dim TargetSheet As Worksheet
    Dim LastRow As Long
    Dim i As Integer
    
    ' 设置目标工作簿和工作表
    Set TargetBook = ThisWorkbook
    Set TargetSheet = TargetBook.Sheets(1)
    
    ' 循环遍历每个源工作簿
    For i = 1 To 3 ' 假设有3个源工作簿，可以根据实际情况修改
        ' 打开源工作簿
        Set SourceBook = Workbooks.Open("源工作簿路径" & i & ".xlsx") ' 替换为实际的源工作簿路径
        
        ' 设置源工作表
        Set SourceSheet = SourceBook.Sheets(1) ' 假设源工作表为第一个工作表，可以根据实际情况修改
        
        ' 获取源工作表的最后一行
        LastRow = SourceSheet.Cells(Rows.Count, 1).End(xlUp).Row
        
        ' 将源工作表的第一列数据复制到目标工作表中
        SourceSheet.Range("A1:A" & LastRow).Copy Destination:=TargetSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1)
        
        ' 关闭源工作簿，保存更改
        SourceBook.Close SaveChanges:=False
    Next i
End Sub