Excel多个表格如何汇总到一个表

概述

在Excel中，将多个表格汇总到一个表是一种常见的数据处理需求。本文将介绍几种常见的方法，帮助您快速有效地完成表格汇总。

方法一：使用VLOOKUP函数

步骤一： 在汇总表中创建一个辅助列，用于存储每个表格的唯一标识。例如，在汇总表的A列中，输入表格1、表格2等标识。

步骤二： 在汇总表的B列中，使用VLOOKUP函数从各个表格中提取数据。假设您想从表格1中提取数据，可以在B*单元格中输入以下公式：

=VLOOKUP(A2, '表格1'!$A$1:$B$10, 2, FALSE)

其中，’表格1’!\(A\)1:\(B\)10是表格1的数据范围，2表示从表格1的B列提取数据，FALSE表示需要精确匹配。

步骤三： 将公式向下拖动，以填充整个汇总表。

步骤四： 重复步骤二和步骤三，从其他表格中提取数据。

方法二：使用Power Query

步骤一： 将所有表格的数据加载到Power Query。

步骤二： 在Power Query编辑器中，选择“合并查询”功能。

步骤三： 在“合并查询”窗口中，选择要合并的表格，并设置合并的关键列。

步骤四： 点击“确定”，Power Query会自动生成一个合并后的表格。

步骤五： 将合并后的表格加载回Excel工作表。

方法三：使用VBA脚本

步骤一： 打开VBA编辑器。

步骤二： 插入新模块，并编写以下代码：

”`vba Sub MergeSheets() Dim wb As Workbook Dim ws As Worksheet Dim rng As Range Dim i As Integer Dim j As Integer

Sub MergeSheets()    Dim wb As Workbook    Dim ws As Worksheet    Dim rng As Range    Dim i As Integer    Dim j As Long    Dim lastRow As Long        ' 获取当前工作簿    Set wb = ActiveWorkbook        ' 创建或选择汇总表    ' 假设汇总表名为 "汇总表"    On Error Resume Next    Set ws = wb.Sheets("汇总表")    If ws Is Nothing Then        Set ws = wb.Sheets.Add        ws.Name = "汇总表"    End If    On Error GoTo 0        ' 清空汇总表内容（如果已有数据）    ws.Cells.Clear        ' 设置标题    ws.Cells(1, 1).Value = "表名"    ws.Cells(1, 2).Value = "数据"        ' 从第二行开始汇总数据    j = 2        ' 遍历所有工作表    For i = 1 To wb.Sheets.Count        ' 如果当前工作表不是汇总表        If wb.Sheets(i).Name <> ws.Name Then            ' 找到当前工作表最后一行            lastRow = wb.Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row                        ' 复制当前工作表的内容到汇总表中            For Each rng In wb.Sheets(i).Range("A1:A" & lastRow)                ws.Cells(j, 1).Value = wb.Sheets(i).Name ' 表名                ws.Cells(j, 2).Value = rng.Value ' 数据                j = j + 1            Next rng        End If    Next i        ' 格式化汇总表    ws.Columns("A:B").AutoFit    MsgBox "数据已汇总完成！", vbInformationEnd Sub

AI办公助手：WPS灵犀

如果本文未能解决您的问题，或者您在办公领域有更多疑问，我们推荐您尝试 WPS灵犀 —— 一款强大的人工智能办公助手。

WPS灵犀 具备AI搜索、读文档、快速创作、生成PPT、长文写作、网页摘要、截图问答、上传文件等功能快来体验吧