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

快速导航

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

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

1.激活要合并其所有工作表的工作簿，然后按 其他 + F11 打开钥匙 Microsoft Visual Basic应用程序 窗口。

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 键，则工作表中的所有数据都已合并到名为“合并”的新工作表中，该新工作表位于所有工作表的前面。

使用VBA，您只能在活动工作簿中合并工作表，但是如何将工作簿中的工作表合并到工作表或工作簿中？

将工作簿中的工作表合并为一张工作表

将工作簿中的工作表合并到一个工作簿中

为了解决这项工作并满足对纸张组合的其他要求， 结合 功能已通过以下四种组合方案开发：

• 将多张工作表或工作簿合并为一张
• 将多个工作表或工作簿合并为一个工作簿
• 将相同的姓名表合并为一张
• 将工作表或工作簿中的值合并为一张工作表

这里以第二个选项为例：

将多个工作表或工作簿合并为一个工作簿

后 免费安装 Kutools for Excel，请执行以下操作：

1.激活Excel，单击 Kutools 加 > 结合，会弹出一个对话框，提醒您要合并的工作簿需要关闭。 请点击 OK 继续。

2.在 合并工作表步骤1 对话框，检查 将工作簿中的多个工作表合并到一个工作簿中 选项。 点击 下一页 转到向导的下一步。

3。 点击 添加 > 文件 or 夹 将您要合并的工作簿添加到 工作簿清单 窗格中，然后您可以通过检查名称来指定将哪些工作表连接在一起 工作表清单 窗格。 请点击 下一页 转到向导的最后一步。

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

5.弹出一个窗口，供您选择一个文件夹以放置组合的工作簿，然后单击 优惠.

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

如果您想将两个表合并为一个表并根据一列更新数据，如下面的屏幕截图所示，则可以尝试 表格合并 实用程序 Kutools for Excel.

后 免费安装 Kutools for Excel，请执行以下操作：

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

2.在向导的步骤1中，您需要分别选择主表和查找表范围。 然后点击 下一页.

3.在主表上检查要更新数据的键列。 请点击 下一页.

4.然后检查您要基于查找表更新数据的主表中的列。 请点击 下一页.

5.在向导的步骤4中，检查要从查找表添加到主表的列。 请点击 下一页.

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

现在，主表已更新数据并基于查找表添加新数据。