如何在 Excel 中将多个工作表的数据汇总到一个主工作表中？
有时，您可能需要将多个工作表中的数据汇总到一个主工作表中，以便进行合并或其他操作（如下图所示）。但逐个复制粘贴不仅繁琐，还容易出错——Excel 中是否有高效的方法能快速完成这项任务？
使用“合并计算”功能将多个工作表的数据汇总到一个工作表中
若需将同一工作簿中多个工作表的数据汇总至一张工作表，不妨使用 Excel 的“合并计算”功能。
1. 在要从中收集数据的工作簿的新工作表中，点击合并计算（位于）数据菜单中）。
2. 在 Consolidate 对话框中，执行以下操作：
（1 在）函数下拉列表中选择合并数据后要执行的操作；
（2 单击）
以选择要收集的每个工作表的区域；
(3 单击 ）Add 按钮，将数据区域添加到 All references 列表框中；
(4) 勾选合并数据后使用的标签，并勾选 Create links to source data 选项，即可将合并工作表中的数据与源数据建立链接。
3. 单击确定，数据随即汇总并求和至一个工作表中。
轻松将多个工作表/工作簿合并为单个工作表或工作簿 |
| 合并功能（位于）Kutools for Excel 中），可将数十个工作表或工作簿轻松整合为一个工作表或工作簿，仅需几次点击即可完成！立即点击，畅享功能完整的 30 天免费试用！合并 |
 |
| Kutools for Excel：提供超过 300 个实用的 Excel 加载项，30 天内可无限制免费试用。 |
使用 VBA 代码将多个工作表的数据汇总到一个工作表中
以下 VBA 代码可将当前工作簿中所有工作表的数据汇总至一个全新的工作表中。
1. 按下 Alt + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。
2. 单击 Insert > Module，并将下方代码复制粘贴到 Module 脚本中。
VBA：将所有工作表的数据汇总到一个工作表中。
Sub Combine()
'UpdatebyExtendoffice20180205
Dim I As Long
Dim xRg As Range
On Error Resume Next
Worksheets.Add Sheets(1)
ActiveSheet.Name = "Combined"
For I = 2 To Sheets.Count
Set xRg = Sheets(1).UsedRange
If I > 2 Then
Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
End If
Sheets(I).Activate
ActiveSheet.UsedRange.Copy xRg
Next
End Sub
3. 按 F5 键运行代码后，整个工作簿的所有数据将自动汇总到名为 Combined 的新工作表中。
使用强大的 Combine 功能将多个工作表的数据汇总到一个工作表中
如果您经常需要将多个工作表合并为一个，我向您推荐一个强大的合并功能，即 Kutools for Excel 的合并工具，它具有以下四项主要功能：
将工作簿中的多个工作表合并为一个工作表
合并多个工作簿中同名工作表的数据
复制多个工作簿中的工作表到一个工作簿中
汇总计算多个工作簿中的数据到一个工作表中
在免费安装 Kutools for Excel 后，请按以下步骤操作：
如果您只想合并多个工作表为一个工作表，且无需其他操作，可按以下步骤操作：
1. 启动 Excel，单击 Kutools Plus > Combine，此时将弹出一个或两个对话框提醒您注意相关事项，只需单击确定和是即可继续。参见下图：
2. 单击确定，进入 Combine 窗口，勾选 Combine multiple worksheets from workbook into worksheet 选项。
3. 单击 Next，然后单击 Add>File / Folder，将要用于合并的工作簿添加到 Workbook list 中；随后进入 Worksheet list，勾选每个工作簿中需合并的工作表。
4. 单击 Next 进入最后一步，即可根据需要指定合并结果的相关设置。如无需此步骤，
5. 单击 Finish，并选择一个文件夹，即可保存包含工作表数据的新工作簿。
6. 单击保存，即可将所有工作簿中的工作表数据汇总到一个主工作表中。
如果您想合并多个工作簿中的工作表为一个工作表，请按以下步骤操作：
1. 在 Combine 窗口中，勾选将多个工作表中的数据合并并计算到一个工作表中选项。
2. 单击 Next，即可将文件添加到 Workbook list 中，然后勾选要用于合并和计算的工作表。
3. 单击 Next，然后从 Function 下拉列表中选择所需的计算方式，并根据需要勾选其他选项。
4. 单击文件夹中的 Finish，即可将新工作簿保存到该文件夹中。
现在，多个工作簿中的工作表已合并并计算到一个工作表中。
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱