如何将工作表或工作簿合并或整合到一个工作表中？

在日常工作中，我们可能会遇到一个问题，即将数百个工作表或工作簿合并到一个工作表中进行数据分析。如果使用Excel中的复制和粘贴命令，这将耗费大量时间。本教程中，我将提供一些快速解决此问题的技巧。

快速导航

> 使用VBA将活动工作簿的所有工作表合并到一个工作表中
> 通过点击将数十个工作表或工作簿合并到一个工作表/工作簿中
> 通过点击将两个表格合并为一个并按列更新
> 下载示例文件

在本节中，我提供了一个VBA代码，运行时它会创建一个新的工作表来收集活动工作簿中的所有工作表。

1. 激活要合并其所有工作表的工作簿，然后按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在弹出窗口中，单击 插入 > 模块 创建一个新的模块脚本。

3. 复制以下代码并将其粘贴到脚本中。

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

4. 按 F5 键，然后所有工作表中的数据都将被合并到一个名为“Combined”的新工作表中，并放置在所有工作表的前面。

使用VBA，您只能合并活动工作簿中的工作表，但如何跨工作簿合并工作表到一个工作表或工作簿呢？

跨工作簿合并工作表到一个工作表中

跨工作簿合并工作表到一个工作簿中

为了完成这项任务并满足其他关于工作表组合的需求，已开发了具有四种组合场景的 汇总 功能：

• 将多个工作表或工作簿合并到一个工作表中
• 将多个工作表或工作簿合并到一个工作簿中
• 将同名工作表合并到一个工作表中
• 跨工作表或工作簿汇总值到一个工作表中

这里以第二个选项为例：

将多个工作表或工作簿合并到一个工作簿中

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 启动Excel，点击 Kutools Plus > 汇总，会弹出一个对话框提醒您需要关闭要合并的工作簿。点击 确定 继续。

2. 在 合并工作表 第一步 对话框中，勾选 复制多个工作簿中的工作表到一个工作簿中 选项。点击 下一步 进入向导的下一步。

3. 点击 添加 > 文件 或 目录 将要合并的工作簿添加到 工作簿列表 窗格中，然后您可以通过勾选 工作表列表 窗格中的名称来指定哪些工作表将被合并在一起。点击 下一步 进入向导的最后一步。

4. 在这一步中，根据需要指定设置。然后点击 完成.

5. 弹出一个窗口供您选择一个文件夹来放置合并后的工作簿，然后点击 保存.

现在这些工作簿已被合并到一个工作簿中。并且在所有工作表的前面，还创建了一个名为 Kutools for Excel 的主工作表，其中列出了一些关于工作表的信息以及每个工作表的链接。

如果您想将两个表格合并为一个并基于某一列更新数据（如下图所示），您可以尝试使用 合并表格 工具，来自 Kutools for Excel.

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 点击 Kutools Plus > 合并表格 启用 合并表格 向导。

2. 在向导的第一步中，您需要分别选择主表格和查找表格的区域。然后点击 下一步.

3. 勾选要在主表格中基于其更新数据的关键列。点击 下一步.

4. 然后勾选主表格中您希望基于查找表格更新数据的列。点击 下一步.

5. 在向导的第四步中，勾选要从查找表格添加到主表格的列。点击 下一步.

6. 在向导的最后一步中，根据需要指定设置选项。然后点击 完成.

现在主表格已根据查找表格更新了数据并添加了新数据。