多个相同的excel怎么汇总成一个

使用Power Query、VBA宏、合并工作簿功能、手动复制粘贴。通过这些方法，可以有效地将多个相同的Excel文件汇总成一个。接下来，我将详细介绍使用Power Query的方法，因为它是目前最为便捷和灵活的方式。

一、使用Power Query

Power Query是Excel中一个强大的数据连接和转换工具，可以轻松地将多个Excel文件合并成一个。以下是具体步骤：

1、准备工作

首先，将所有需要汇总的Excel文件放在同一个文件夹中。确保这些文件的结构相同，即列的名称和顺序一致。

2、加载数据

打开Excel，点击“数据”选项卡，然后选择“获取数据”->“从文件”->“从文件夹”。在弹出的窗口中，选择包含所有Excel文件的文件夹，点击“确定”。

3、合并文件

在Power Query编辑器中，点击“合并”按钮。选择需要合并的表格，Power Query会自动识别并合并这些表格中的数据。你可以在编辑器中预览和编辑数据，例如删除不需要的列或过滤行。

4、加载数据回Excel

完成数据编辑后，点击“关闭并加载”将合并后的数据加载回Excel工作表中。你现在就有了一个包含所有数据的单一Excel文件。

二、使用VBA宏

如果你有一定的编程基础，VBA宏也是一种高效的汇总方法。VBA宏可以自动执行重复的任务，大大提高工作效率。

1、打开VBA编辑器

按下“Alt + F11”打开VBA编辑器，然后点击“插入”->“模块”新建一个模块。

2、编写代码

在新模块中粘贴以下代码，这段代码会遍历指定文件夹中的所有Excel文件，并将数据汇总到一个新的工作表中：

Sub 合并多个Excel文件() Dim 文件夹路径 As String Dim 文件名 As String Dim wb As Workbook Dim ws As Worksheet Dim 主工作表 As Worksheet Dim 最后一行 As Long ' 设置文件夹路径文件夹路径 = "C:你的文件夹路径" ' 创建一个新的工作表来存储汇总数据 Set 主工作表 = ThisWorkbook.Sheets.Add 主工作表.Name = "汇总数据" ' 获取文件夹中的第一个文件文件名 = Dir(文件夹路径 & "*.xlsx") ' 循环遍历文件夹中的所有文件 Do While 文件名 <> "" ' 打开文件 Set wb = Workbooks.Open(文件夹路径 & 文件名) ' 复制数据到主工作表 For Each ws In wb.Sheets ' 计算主工作表的最后一行最后一行 = 主工作表.Cells(Rows.Count, 1).End(xlUp).Row + 1 ws.UsedRange.Copy 主工作表.Cells(最后一行, 1) Next ws ' 关闭文件 wb.Close False ' 获取下一个文件文件名 = Dir Loop End Sub

3、运行宏

关闭VBA编辑器，回到Excel中，按下“Alt + F8”打开宏对话框，选择刚才创建的宏并运行。宏将自动合并指定文件夹中的所有Excel文件。

三、使用合并工作簿功能

Excel还提供了一个直接合并多个工作簿的功能，这对于不熟悉编程或不想使用Power Query的用户来说，是一个不错的选择。

1、打开Excel

打开一个新的Excel文件，点击“数据”选项卡，然后选择“合并工作簿”。

2、选择文件

在弹出的窗口中，点击“添加”按钮，选择需要合并的Excel文件。你可以一次选择多个文件，或者逐个添加。

3、设置合并选项

在“合并工作簿”窗口中，选择合并数据的方式，例如按列名称合并，或者按行合并。根据你的需求进行设置，然后点击“确定”。

4、完成合并

Excel会自动将所有选定文件的数据合并到当前工作簿中，你可以进一步编辑和处理这些数据。

四、手动复制粘贴

最后，如果数据量不大，手动复制粘贴也是一种简单直观的方法。

1、打开文件

依次打开所有需要合并的Excel文件。

2、复制数据

在每个文件中，选择需要复制的数据区域，然后按下“Ctrl + C”复制数据。

3、粘贴数据

回到主文件，选择一个空白区域，按下“Ctrl + V”粘贴数据。重复上述步骤，直到所有数据都被复制到主文件中。

通过以上几种方法，你可以根据自己的需求和习惯，选择最适合的一种方式将多个相同的Excel文件汇总成一个。Power Query和VBA宏是最为推荐的两种方法，因为它们可以大大提高工作效率，同时减少手动操作的错误。