Excel多个工作表合并到一个表的方法，如何将多个工作表合并在一个工作表在日常工作中，我们经常需要将Excel中的多个工作表合并到一个表中进行分析处理。我们这篇文章将详细介绍6种常用方法，帮助您根据实际需求选择最适合的合并方式。主要内容包

Excel多个工作表合并到一个表的方法，如何将多个工作表合并在一个工作表

在日常工作中，我们经常需要将Excel中的多个工作表合并到一个表中进行分析处理。我们这篇文章将详细介绍6种常用方法，帮助您根据实际需求选择最适合的合并方式。主要内容包括：手动复制粘贴合并；使用Power Query合并；使用VBA宏自动合并；第三方插件合并；数据透视表多重合并；INDIRECT函数跨表引用，并附上操作注意事项和常见问题解答。

一、手动复制粘贴合并（基础方法）

适用场景：工作表数量少（3-5个），数据结构完全一致的情况。

操作步骤：

1. 新建空白工作表作为汇总表
2. 依次打开每个工作表，选中数据区域（Ctrl+A全选）
3. 复制数据（Ctrl+C），粘贴到汇总表（Ctrl+V）
4. 重复操作直至所有工作表合并完成

优点：操作简单，无需学习新技能。

缺点：效率低，容易出错，不适合大批量工作表合并。

二、Power Query智能合并（Excel 2016及以上推荐）

适用场景：多工作表/多工作簿合并，数据结构相同或相似的情况。

操作步骤：

1. 【数据】选项卡 → 获取数据 → 从文件 → 从工作簿
2. 选择目标Excel文件 → 在导航器中勾选"选择多项"
3. 按住Ctrl键选择需要合并的工作表 → 点击"转换数据"
4. 在Power Query编辑器中，点击"追加查询" → 选择"三个或更多表"
5. 调整列顺序确保一致 → 点击"关闭并上载"完成合并

优势： • 自动识别数据结构差异 • 支持数据清洗和转换 • 数据源更新后可一键刷新 • 处理数千行数据不卡顿

三、VBA宏自动合并（批量处理最佳方案）

适用场景：需要定期执行合并操作，或处理大量工作表（20+）。

示例代码：

Sub MergeSheets()
    Dim ws As Worksheet, SummarySheet As Worksheet
    Dim LastRow As Long, CopyRange As Range
    
    Set SummarySheet = Worksheets.Add(After:=Sheets(Sheets.Count))
    SummarySheet.Name = "合并结果"
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> SummarySheet.Name Then
            LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            Set CopyRange = ws.Range("A1:D" & LastRow) '根据实际列宽调整
            CopyRange.Copy SummarySheet.Cells(SummarySheet.Rows.Count, "A").End(xlUp).Offset(1, 0)
        End If
    Next ws
    
    MsgBox "工作表合并完成！", vbInformation
End Sub

使用提示： 1. 按Alt+F11打开VBA编辑器 2. 插入 → 模块 → 粘贴代码 3. 修改CopyRange中的列范围（如"A1:Z"包含所有列） 4. 按F5运行宏

四、第三方插件合并（小白友好方案）

推荐工具：Kutools for Excel/方方格子/易用宝

操作流程（以Kutools为例）：

1. 安装插件后，点击【Kutools】→【合并工作表】
2. 选择合并模式（逐行/逐列合并）
3. 勾选需要合并的工作表
4. 设置标题行数 → 点击【开始合并】

优势对比： • Kutools：支持200+工作表同时合并，保留原格式 • 方方格子：中文界面友好，提供免费版本 • 易用宝：国产软件，符合中文使用习惯

五、数据透视表多重合并

适用场景：需要合并后立即进行数据分析的情况。

操作要点：

1. 按Alt+D+P调出数据透视表向导
2. 选择"多重合并计算数据区域" → 创建单页字段
3. 逐个添加每个工作表的数据区域
4. 生成透视表后可右键选择"显示明细数据"

注意事项：合并后的数据会丢失原格式，且首列会自动作为分类字段。

六、INDIRECT函数跨表引用

适用场景：需要动态引用多个工作表数据，且工作表有规律命名。

公式示例：

=IFERROR(INDIRECT("'"&A2&"'!B5"),"")

其中A列是工作表名称列表，B5是各表统一位置的数据单元格。

扩展应用：结合SUMIF/COUNTIF等函数实现跨表汇总统计。

七、常见问题解答Q&A

合并后数据错位怎么办？

检查各工作表的：1) 列标题是否完全一致 2) 数据类型是否统一 3) 是否有隐藏行列。建议先用Power Query查看数据结构差异。

如何合并不同工作簿的工作表？

方法1：用Power Query选择"从文件夹"导入多个工作簿 方法2：先将各工作簿中的工作表移动/复制到同一工作簿（右键工作表标签选择"移动或复制"）

合并后如何保留原工作表格式？

VBA代码可添加：CopyRange.Copy Destination:=SummarySheet.Cells(...) 或使用Kutools插件的"保留原格式"选项。注意：Power Query默认不保留格式。