请问如何将多张格式相同的excel表格合并一张

更新日期：2026-11-12 20:18:11

标题

内容

在日常工作中，我们常常需要将多个格式相同的Excel表格合并成一个文件，以便于统一查看、分析和处理数据。以下是几种常见的方法，适用于不同版本的Excel软件（如Excel 2010、2016、2019及Office 365等）。

方法一：使用Power Query（推荐）

适用版本：Excel 2010及以上

步骤如下：

步骤	操作说明
1	打开任意一个Excel文件，点击“数据”选项卡，选择“获取数据” > “从文件” > “从工作簿”。
2	选择要合并的第一个Excel文件，点击“导入”。
3	在导航器中选择需要合并的工作表，点击“加载”或“转换数据”。
4	在Power Query编辑器中，点击“主页” > “追加查询” > “将查询追加为新查询”。
5	选择其他Excel文件，重复上述操作，直到所有文件都添加到查询中。
6	最后点击“关闭并上载”，数据会自动合并到当前工作表中。

方法二：使用VBA宏（适合高级用户）

适用版本：所有Excel版本

步骤如下：

1. 按 `Alt + F11` 打开VBA编辑器。

2. 插入一个新模块（右键项目 > 插入 > 模块）。

3. 粘贴以下代码：

```vba

Sub MergeSheets()

Dim wb As Workbook, ws As Worksheet

Dim targetWs As Worksheet

Dim folderPath As String

Dim fileName As String

Dim i As Integer

Set targetWs = ThisWorkbook.Sheets(1)

targetWs.Cells.Clear

folderPath = "C:\YourFolderPath\" ' 修改为你的文件夹路径

fileName = Dir(folderPath & ".xlsx")

Do While fileName <> ""

Set wb = Workbooks.Open(folderPath & fileName)

For Each ws In wb.Sheets

ws.UsedRange.Copy Destination:=targetWs.Cells(targetWs.Rows.Count, 1).End(xlUp).Offset(1)

Next ws

wb.Close SaveChanges:=False

fileName = Dir

Loop

End Sub

```

4. 修改代码中的路径为实际路径，运行宏即可完成合并。

方法三：手动复制粘贴（适用于少量文件）

适用场景：只有几份表格需要合并

步骤如下：

1. 打开第一个Excel文件，选中所有数据，复制（Ctrl+C）。

2. 打开目标工作表，粘贴（Ctrl+V）。

3. 依次打开其他Excel文件，复制数据并粘贴到目标工作表中。

方法四：使用第三方工具（如“Excel合并助手”）

对于不熟悉编程或Power Query的用户，可以使用一些免费的Excel插件或在线工具来简化操作。这些工具通常支持批量导入、自动识别格式并合并数据。

总结表格

方法名称	适用场景	难度	是否需要编程知识	是否支持批量处理
Power Query	多个格式相同文件	中	否	是
VBA宏	高级用户	高	是	是
手动复制粘贴	少量文件	低	否	否
第三方工具	不熟悉技术用户	低	否	是

通过以上方法，你可以根据自身需求选择合适的方式来合并Excel表格。如果经常需要处理类似任务，建议使用Power Query或VBA宏，这样效率更高且更易维护。

随便看