如何在 Excel 中合并标题相同的多个工作表？
例如，您在多个工作表中拥有标题相同的数据（如下方截图所示），现在需要将这些工作表合并到一个工作表中。与其逐个复制粘贴，不如试试本教程介绍的更高效方法！
通过 Kutools for Excel 合并或整合具有相同标题的 Excel 工作表
通过 VBA 合并具有相同标题的工作表
如果您只想合并标题相同的工作表，且无需进行任何计算，可通过 VBA 代码轻松实现。
1. 激活要合并工作表的工作簿，按 Alt + F11 键即可打开 Microsoft Visual Basic for Applications 窗口。
2. 单击插入> 模块，然后将下方的 VBA 代码粘贴到新打开的模块窗口中。
VBA：合并具有相同标题的工作表
Sub Combine()
'UpdateByKutools20151029
Dim i As Integer
Dim xTCount As Variant
Dim xWs As Worksheet
On Error Resume Next
LInput:
xTCount = Application.InputBox("The number of title rows", "", "1")
If TypeName(xTCount) = "Boolean" Then Exit Sub
If Not IsNumeric(xTCount) Then
MsgBox "Only can enter number", , "Kutools for Excel"
GoTo LInput
End If
Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
xWs.Name = "Combined"
Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
For i = 2 To Worksheets.Count
Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
Next
End Sub3. 按 F5 键运行 VBA，此时将弹出一个对话框，要求您输入标题行的数量。参见截图：
4. 单击确定后，当前工作簿中的所有工作表将自动合并到一个名为 “Combined”的新工作表中。
提示：
（1.） 您的数据必须从 A1 单元格开始，否则代码将无法正常运行。
（2.） 您的数据必须保持结构一致。
（3.） 此代码仅支持合并当前工作簿中的所有工作表；若需合并多个工作簿中的工作表，则无法使用此代码。
通过“合并计算”功能合并具有相同标题的 Excel 工作表
假设您拥有如下方截图所示、行列标题完全一致的数据，并希望在合并具有相同标题的 Excel 工作表后进行某些计算，可使用 Excel 的“合并计算”功能轻松实现。
1. 打开所有需要从中合并工作表的工作簿，将光标置于用于放置合并数据的空白单元格中，然后单击数据> 合并计算。参见截图：
2. 然后在合并计算窗口中，执行以下操作：
1) 从函数列表中选择所需的计算方式；
2) 单击以选择要合并的区域。
3) 单击添加按钮，将该区域添加到“所有引用”列表中。重复步骤 2) 和 3），将所有需要合并的区域添加到此列表中。
4) 在标签位置部分，勾选首行和最左列。
5) 若希望合并后的数据与源数据保持联动，请勾选创建指向源数据的链接。
3. 单击确定，所有具有相同标题的数据区域将立即合并为一个，并按标题汇总。
通过 Kutools for Excel 合并或整合具有相同标题的 Excel 工作表
在某些情况下，您可能只想合并标题相同的数据；而在其他情况下，则希望在合并的同时汇总数据。有没有一种方法能同时应对这两种需求？这里，为您推荐 Kutools for Excel 强大的合并功能！
安装 Kutools for Excel 后，请按以下步骤操作：（免费下载立即获取 Kutools for Excel！）
1. 单击 KUTOOLS PLUS > 合并 以启用合并向导，然后勾选将多个工作簿中的数据复制到一个工作表中。参见截图：
2. 单击下一步>>，进入 汇总工作表 —— 第 2 步（共 3 步） 向导，并执行以下操作：
2) 勾选要合并工作表的工作簿名称，可选择多个工作簿；
3) 勾选要合并的工作表；
4) 单击
以选择要合并的区域；如果各工作表中的区域位置相同，只需从一个工作表中选择一个区域，然后单击相同区域。3. 单击下一步>>进入 合并工作表 – 第 3 步（共 3 步） 向导，勾选按行合并数据选项，并在 1“标题行数”文本框中输入标题行数量；如果您的区域中没有标题，请输入 0.
4. 单击完成后，将弹出对话框提醒您保存此方案；如需保存，请单击是或否。
现在，具有相同行标题的工作表已合并至一个新工作簿中。
安装 Kutools for Excel 后，请按以下步骤操作：（免费下载立即获取 Kutools for Excel！）
1. 单击企业 > 合并 以启动合并向导，并勾选汇总计算多个工作簿中的数据到一个工作表中。参见截图：
2. 单击下一步> >，进入 汇总工作表 —— 第 2 步（共 3 步） 向导，并执行以下操作：
2) 勾选您要合并工作表的工作簿名称，可选择多个工作簿；
3) 勾选您要合并在一起的工作表；
4) 单击
以选择要合并的区域；如果各工作表中的区域位置相同，只需从一个工作表中选择一个区域，然后单击相同区域。3. 继续单击下一步>，选择要在合并区域中应用的汇总函数，并勾选合并区域的标签。参见截图：
4. 单击完成后，将弹出对话框询问是否保存该方案，请单击是以保存，或单击否放弃保存。
随后，这些区域将汇总到一个新工作簿中。
Kutools for Excel 的合并功能优势在于，您可以将已打开或未打开工作簿中的多个工作表合并到一个工作表或一个工作簿中。
在 Excel 中按值轻松合并与汇总数据 |
Kutools for Excel 高级合并行 |
|
Kutools for Excel——通过 300 多个必备工具大幅提升 Excel 能力，让您的工作更快、更轻松，并借助 AI 功能实现更智能的数据处理与高效办公！立即获取 |
相关文章
最佳办公效率工具
| 🤖 | 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 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱