如何将多个Excel表格合并成一个，excel表格合并方法在日常办公中，我们经常需要将多个Excel表格合并成一个，以提高数据处理效率。我们这篇文章将详细介绍6种常用的Excel表格合并方法，包括：复制粘贴法；Power Query合并法

如何将多个Excel表格合并成一个，excel表格合并方法

在日常办公中，我们经常需要将多个Excel表格合并成一个，以提高数据处理效率。我们这篇文章将详细介绍6种常用的Excel表格合并方法，包括：复制粘贴法；Power Query合并法；VBA宏代码法；数据透视表法；第三方工具法；Office脚本法。每种方法都附有详细步骤说明和适用场景分析，帮助您选择最适合的解决方案。

一、复制粘贴法（基础操作）

适用场景：少量表格（2-5个）且结构简单的情况。

操作步骤：

1. 打开所有需要合并的Excel文件
2. 选中源表格数据区域（Ctrl+A全选或手动框选）
3. 复制数据（Ctrl+C）
4. 在目标表格中定位粘贴位置
5. 右键选择「保留源格式」粘贴或「匹配目标格式」粘贴

注意事项：合并后需手动调整格式，当表格结构不一致时可能出现错位。

二、Power Query合并法（推荐方案）

适用场景：多文件（10+）或需要定期更新的情况，Excel 2016及以上版本支持。

操作步骤：

1. 【数据】选项卡→【获取数据】→【从文件】→【从工作簿】
2. 选择包含多个表格的Excel文件
3. 在导航器勾选「选择多项」，按住Ctrl键多选表格
4. 点击「转换数据」进入Power Query编辑器
5. 在「主页」选项卡点击「追加查询」→「三个或更多表」
6. 调整列顺序后点击「关闭并上载」

优势：支持自动更新，可处理上万行数据，保留原始数据备份。

三、VBA宏代码法（批量处理）

适用场景：需要合并同一文件夹下的多个Excel文件。

操作步骤：

1. 按Alt+F11打开VBA编辑器
2. 插入新模块，粘贴以下代码：

   
     Sub MergeFiles()
         Dim path As String, filename As String
         path = "C:\YourFolderPath\" '修改为实际文件夹路径
         filename = Dir(path & "*.xlsx")
         Do While filename <> ""
             Workbooks.Open path & filename
             Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)
             Workbooks(filename).Close False
             filename = Dir()
         Loop
     End Sub
     

3. F5运行宏，合并后的数据将出现在当前工作簿

注意：需启用宏（文件→选项→信任中心→宏设置），建议提前备份数据。

四、数据透视表法（结构汇总）

适用场景：需要合并并统计分析的多个表格。

操作步骤：

1. 按【Alt+D+P】调出数据透视表向导
2. 选择「多重合并计算区域」→「创建单页字段」
3. 依次添加每个表格的数据区域
4. 生成透视表后可右键「显示明细数据」获取合并结果

特点：自动去重，支持动态更新，但会丢失部分格式。

五、第三方工具法（小白友好）

推荐工具：Kutools for Excel、方方格子等插件。

操作流程（以Kutools为例）：

1. 安装插件后，在「 Kutools Plus」选项卡选择「合并」
2. 选择「将多个工作簿合并为一个工作簿」
3. 添加需要合并的文件
4. 设置「合并选项」（保留格式/仅值等）
5. 点击「开始合并」自动生成新文件

优势：一键操作，支持200+文件同时处理，自动对齐列标题。

六、Office脚本法（网页版专属）

适用场景：Excel网页版用户（需Microsoft 365商业版）。

操作步骤：

1. 在Excel Online中打开「自动化」选项卡
2. 点击「新建脚本」，粘贴下方代码：

   
     function main(workbook: ExcelScript.Workbook) {
         let newSheet = workbook.addWorksheet("Combined");
         let sheets = workbook.getWorksheets();
         let rowOffset = 0;
         
         sheets.forEach((sheet) => {
             if (sheet.getName() !== "Combined") {
                 let range = sheet.getUsedRange();
                 range.copyTo(newSheet.getRangeByIndexes(rowOffset, 0, range.getRowCount(), range.getColumnCount()));
                 rowOffset += range.getRowCount();
             }
         });
     }
     

3. 运行脚本后自动生成名为"Combined"的新工作表

常见问题解答Q&A

合并后数据错位怎么办？

检查各表格的列顺序是否一致，建议先用Power Query的「标题提升」功能统一字段名，或使用VBA代码匹配列标题。

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

在Power Query中选择「从文件夹」获取数据，筛选所需工作表；或修改VBA代码中的Sheets(1)为具体表名如Sheets("Sheet1")。

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

推荐使用Kutools插件的「精确格式复制」功能，或通过Power Query合并后，用格式刷统一调整样式。