在日常工作中，我们可能会遇到将数百张工作表或工作簿合并为一张工作表以分析数据的问题，如果您在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 键，则工作表中的所有数据都已合并到名为“合并”的新工作表中，该新工作表位于所有工作表的前面。

您想加薪并有很多时间陪伴家人吗？ Office选项卡可将Microsoft Office立即工作的效率提高50％ 令人难以置信的是，处理两个或多个文档比处理一个或多个文档更容易，更快捷。 与知名浏览器相比，Office Tab中的选项卡式工具功能更强大，更高效。 每天为您减少数百次鼠标单击和键盘输入，现在告别鼠标手。 如果您通常处理多个文档，Office Tab将为您节省大量时间。 30-day免费试用，无需信用卡。 了解更多现在免费下载

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

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

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

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

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

这里以第二个选项为例：

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

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

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

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

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

4.在此步骤中，根据需要指定设置。 然后点击 结束通话.

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

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

免费试用 跟老鼠手和颈椎病说再见

Kutools for Excel的300个高级工具可在几秒钟内解决80％的Excel任务，使您摆脱数以千计的鼠标单击。

轻松处理1500个工作场景，无需浪费时间来寻找解决方案，有很多时间可以享受生活。 包括您在内，每天为80多名高效人员提高110000％的生产力。 不再受痛苦的配方和VBA的折磨，让您的大脑得到休息和愉悦的工作氛围。 具有全部功能的30天免费试用，无故退款30天。 更好的身体创造更好的生活。

了解更多 现在下载

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

Kutools for Excel：超过200个方便的Excel加载项，可将复杂的任务简化为在Excel中的几次单击

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

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

Kutools for Excel

30-Day免费试用版 300种高级工具 解决80％的Excel问题 提高80％的工作效率 成为Excel专家，赢得人们的认可

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

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

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

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

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

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

推荐的生产力工具

Office选项卡-Microsoft Office 2019-2003和Office 365中的选项卡式浏览，编辑，文档管理

30天全功能免费试用

一个用于加速Excel 2019-2007的专业加载项，可将小时任务缩减为几秒钟

此外接程序包括数十个专业组，具有300多个选项，可以自动执行Excel中的大多数日常任务，并至少使生产率提高50％。 例如一组一键式opton和批量转换。
现在，您可以使用Kutools for Excel加快自己的速度！

60天全功能免费试用