快速汇总多个Excel表格的方法

快速汇总多个Excel表格的方法

在处理大量数据时，Excel表格是我们经常使用的工具。有时候，我们需要将多个Excel表格中的数据汇总到一起。手动复制粘贴显然不是最有效的方法，因此，本文将介绍几种快速汇总多个Excel表格的方法。

方法一：使用VBA宏 VBA（Visual Basic for Applications）是一种在Excel中用于自动化任务的语言。使用VBA宏，可以快速汇总多个Excel表格。

1. 打开Excel，按下Alt+F11键打开VBA编辑器。
2. 在VBA编辑器中，创建一个新的模块（在“项目”窗格中右键单击，选择“插入”>“模块”）。
3. 在新模块中，输入以下代码（根据需要修改文件路径和文件名）：

vbaSub汇总多个Excel表格()
    Dim path As String
    Dim filename As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim targetWs As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    
    '设置文件路径和文件名
    path = "C:\Users\Username\Documents\Excel表格\"
    filename = "Data.xlsx"
    
    '打开目标工作簿和工作表
    Set targetWs = ThisWorkbook.Sheets("Sheet1")
    
    '循环遍历指定路径下的所有Excel文件
    For Each wb In ThisWorkbook.Sheets(Array("Sheet1"))
        If wb.Name <> ThisWorkbook.Name Then
            '获取工作表最后一行和最后一列
            lastRow = wb.Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
            lastCol = wb.Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column
            
            '将数据复制到目标工作表
            wb.Sheets("Sheet1").Range(wb.Sheets("Sheet1").Cells(1, 1), wb.Sheets("Sheet1").Cells(lastRow, lastCol)).Copy targetWs.Range("A1")
        End If
    Next wb
End Sub

4. 按下F5键运行宏，即可将指定路径下的所有Excel表格中的数据汇总到目标工作表中。

方法二：使用Power Query Power Query是Excel的一个数据清洗和分析工具，可以帮助我们快速汇总多个Excel表格。

1. 打开Excel，点击“数据”选项卡。
2. 在“获取和转换数据”组中，点击“从文件”>“从文件夹”。
3. 在弹出的对话框中，选择要汇总的Excel文件夹，点击“确定”。
4. 在弹出的对话框中，选择要汇总的工作表，点击“确定”。
5. 在“导航器”窗格中，勾选要汇总的表格，点击“编辑”。
6. 在“查询编辑器”中，使用“合并”功能将多个表格合并到一起。例如，使用“Union”函数可以将多个表格合并为一张表格。
7. 点击“文件”>“关闭并上载”，将汇总的表格加载到Excel中。