Excel VBA:将多个工作表合并为一个

Sub MergeWorksheets()
    Dim ws As Worksheet
    Dim mergedWs As Worksheet
    Dim lastRow As Long
    
    ' 创建一个新的工作表作为合并后的工作表
    Set mergedWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    mergedWs.Name = "Merged"
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Sheets
        ' 跳过合并后的工作表和其他不需要合并的工作表
        If ws.Name <> mergedWs.Name And ws.Name <> "Sheet1" Then
            ' 找到最后一行的行号
            lastRow = mergedWs.Cells(mergedWs.Rows.Count, 1).End(xlUp).Row
            ' 将当前工作表的数据复制到合并后的工作表中
            ws.UsedRange.Copy Destination:=mergedWs.Cells(lastRow + 1, 1)
        End If
    Next ws
    
    ' 自动调整合并后的工作表的列宽
    mergedWs.Columns.AutoFit
    
    ' 提示合并完成
    MsgBox "工作表已成功合并到""Merged""工作表中。"
End Sub