在VBA中创建具有多个源的Excel合并工作表

Sub MergeWorksheets()
    Dim ws As Worksheet
    Dim combinedWs As Worksheet
    Dim lastRow As Long
    
    ' 创建一个新的工作表，用于合并数据
    Set combinedWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    combinedWs.Name = "合并工作表"
    
    ' 循环遍历所有源工作表
    For Each ws In ThisWorkbook.Sheets
        ' 排除合并工作表本身
        If ws.Name <> combinedWs.Name Then
            ' 找到源工作表的最后一行
            lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
            
            ' 将源工作表的数据复制到合并工作表
            ws.Range("A1").Resize(lastRow, ws.UsedRange.Columns.Count).Copy combinedWs.Cells(combinedWs.Cells(combinedWs.Rows.Count, 1).End(xlUp).Row + 1, 1)
        End If
    Next ws
End Sub