Excel VBA 代码：合并所有工作表到一张汇总表

以下是一个用于复制粘贴除了'汇总'表以外的所有工作表的 VBA 代码：

Sub CopySheetsToSummary()
    Dim ws As Worksheet
    Dim summaryWs As Worksheet
    
    ' 创建一个新的工作表作为汇总表
    Set summaryWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    summaryWs.Name = "汇总"
    
    ' 循环遍历每个工作表
    For Each ws In ThisWorkbook.Sheets
        ' 检查工作表的名称是否为"汇总"
        If ws.Name <> "汇总" Then
            ' 复制工作表到汇总表
            ws.Copy After:=summaryWs
            ' 将复制的工作表的名称修改为原工作表的名称
            summaryWs.Name = ws.Name
        End If
    Next ws
    
    ' 删除汇总表中的第一个空白工作表
    Application.DisplayAlerts = False
    summaryWs.Delete
    Application.DisplayAlerts = True
    
    ' 选择第一个工作表
    ThisWorkbook.Sheets(1).Select
End Sub

要使用这个 VBA 代码，请按照以下步骤操作：

1. 打开 Excel 工作薄。
2. 按下 ALT + F11 打开 VBA 编辑器。
3. 在 VBA 编辑器中，插入一个新的模块（如果没有）。
4. 将上述代码复制粘贴到新的模块中。
5. 关闭 VBA 编辑器。
6. 在 Excel 工作薄中，按下 ALT + F8 打开宏对话框。
7. 选择 "CopySheetsToSummary" 宏，并点击 "运行" 按钮。
8. 所有除了 '汇总' 表以外的工作表将会复制粘贴到一个名为 '汇总' 的新工作表中。

请注意，在运行宏之前，最好先保存工作薄的备份，以防万一。