Excel教程：将多个工作簿/工作表合并为一个

在工作中，我们会遇到需要将多个工作簿或工作表合并为一个的情况，这时候Excel提供了如下几种方法。

方法一：手动复制粘贴

这是最简单的方法。打开要复制的工作簿/工作表，选中需要复制的内容，右击鼠标，选择“复制”。然后打开要粘贴的工作簿/工作表，右击鼠标，选择“粘贴”。如果需要复制多个工作簿/工作表，重复以上步骤即可。但是这种方法比较耗时，如果复制的内容比较多，不太实用。

方法二：使用Excel自带的合并工具

Excel提供了“合并工作簿”和“合并工作表”两个功能，能够帮助我们快速将多个工作簿或工作表合并为一个。

合并工作簿

打开需要合并的多个工作簿，然后依次选择“数据”->“从其他源”->“从工作簿”。
在“打开”对话框中，选择要合并的工作簿，点击“打开”。
在“合并工作簿向导”窗口中，勾选“将数据添加到现有工作簿”选项，确定位置并点击“下一步”。
选择要合并的工作表，并确认是否合并表头。
点击“下一步”，设置数据格式，然后点击“完成”，即可完成工作簿的合并。

合并工作表

打开需要合并的多个工作表，然后依次选择“数据”->“从其他源”->“从工作簿”。
在“打开”对话框中，选择要合并的工作表，点击“打开”。
在“合并工作表向导”窗口中，选择要合并的工作表，勾选“使用第一行作为列标签”。
设置合并后数据放置的位置，然后点击“完成”，即可完成工作表的合并。

方法三：使用VBA宏

如果需要频繁将多个工作簿或工作表合并为一个，可以使用VBA宏实现自动合并。下面是一个简单的VBA宏代码：

Sub mergeSheets()
    Dim wb As Workbook, ws As Worksheet
    Set wb = Application.Workbooks.Add
    Set ws = wb.Worksheets.Add
    ws.Name = "All Sheets"
    For Each wb In Application.Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            For Each ws In wb.Worksheets
                ws.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
                ActiveSheet.Name = wb.Name & " - " & ws.Name
            Next
        End If
    Next
End Sub

这个宏可以将所有打开的工作簿中的所有工作表合并为一个新的工作簿中的一个工作表，每个工作表都附带原始工作簿和工作表名。