如何把多个同格式excel表格合并成一个

【如何把多个同格式excel表格合并成一个】在日常工作中，我们经常会遇到需要将多个格式相同的Excel表格合并成一个的情况。比如，多个部门的销售数据、不同日期的统计报表等。手动复制粘贴不仅效率低，还容易出错。本文将介绍一种高效、准确的方法，帮助你快速完成多个同格式Excel表格的合并。

一、方法概述

要将多个同格式的Excel表格合并成一个，可以使用以下两种主要方式：

1. 使用Power Query（Excel内置工具）

2. 使用VBA宏（适用于高级用户）

下面我们将分别介绍这两种方法，并附上操作步骤和示例表格。

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

步骤如下：

优点：

- 操作简单，无需编程

- 支持自动更新数据

- 可以处理大量数据

三、方法二：使用VBA宏（适合批量处理）

示例代码：

```vba

Sub MergeSheets()

Dim wb As Workbook

Dim ws As Worksheet

Dim targetWs As Worksheet

Dim folderPath As String

Dim fileName As String

Dim lastRow As Long

Set targetWs = ThisWorkbook.Sheets("合并结果")

targetWs.Cells.Clear

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

fileName = Dir(folderPath & ".xlsx")

Do While fileName <> ""

Set wb = Workbooks.Open(folderPath & fileName)

For Each ws In wb.Sheets

If ws.Name <> "合并结果" Then

lastRow = targetWs.Cells(targetWs.Rows.Count, 1).End(xlUp).Row + 1

ws.UsedRange.Copy Destination:=targetWs.Range("A" & lastRow)

End If

Next ws

wb.Close SaveChanges:=False

fileName = Dir

Loop

End Sub

```

使用说明：

- 将上述代码复制到VBA编辑器中（按 `Alt + F11`）

- 创建一个名为“合并结果”的工作表

- 修改路径后运行宏

优点：

- 可自动化处理多个文件

- 适合技术用户

四、合并前后对比示例表格

原始表格1：

原始表格2：

合并后表格：

五、总结

根据你的需求和技能水平，可以选择合适的方法进行操作。无论是哪种方式，都可以大大提高工作效率，减少重复劳动。

如需进一步优化或定制，请根据具体需求调整脚本或设置。