Excel表格中如何合并不同工作表的相同数据 跨表整合

合并Excel表格中不同工作表的相同数据，核心在于高效定位和汇总分散信息，可通过以下三种方法实现跨表整合：

Power Query是Excel内置的强大工具，能高效处理多表合并及数据清洗。

• 操作步骤：

  打开Excel，选择“数据”选项卡，点击“获取数据”→“来自文件”→“来自工作簿”。

  选择包含多个工作表的Excel文件，在导航器窗口中勾选“选择多项”，选中所有需要合并的工作表。

  点击“转换数据”进入Power Query编辑器。

  若数据结构相同（列名和顺序一致），直接点击“追加查询”→“将查询追加为新查询”，选择“三个或更多表”添加所有工作表。

  若结构不同，需进行数据转换：

  重命名列：统一不同工作表的列名。

  删除列：移除无关列，仅保留需要合并的数据。

  添加自定义列：根据现有列计算新值。

  筛选数据：排除不需要的行。

  转换数据类型：确保相同列的数据类型一致（如文本转数字）。

  完成转换后，点击“关闭并上载”→“关闭并上载至”，选择加载到新工作表或现有工作表。

• 避免重复：在Power Query编辑器中，选择需要去重的列，点击“删除重复项”。
• 优化速度：减少不必要的数据转换步骤，或关闭Excel的自动计算功能（“公式”选项卡→“计算选项”→“手动”）。

VBA宏适合需要精细控制或自动化的场景。

• 操作步骤：

  按下Alt + F11打开VBA编辑器，插入新模块（“插入”→“模块”）。

  编写以下代码（需修改目标工作表名称）：Sub 合并工作表() Dim ws As Worksheet Dim lastRow As Long Dim targetSheet As Worksheet Dim i As Long Set targetSheet = ThisWorkbook.Sheets("汇总表") ' 替换为实际目标工作表名称 ' 确保目标工作表存在 On Error Resume Next Set targetSheet = ThisWorkbook.Sheets("汇总表") If targetSheet Is Nothing Then Set targetSheet = ThisWorkbook.Sheets.Add targetSheet.Name = "汇总表" End If On Error GoTo 0 ' 获取目标工作表的最后一行 lastRow = targetSheet.Cells(Rows.Count, "A").End(xlUp).Row ' 遍历所有工作表 For Each ws In ThisWorkbook.Worksheets If ws.Name <> targetSheet.Name Then ' 排除目标工作表 ' 获取当前工作表的最后一行 Dim currentLastRow As Long currentLastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row ' 复制数据（假设数据从A2开始，到Z列） ws.Range("A2:Z" & currentLastRow).Copy ' 粘贴到目标工作表（仅粘贴值） targetSheet.Cells(lastRow + 1, "A").PasteSpecial Paste:=xlPasteValues ' 更新目标工作表的最后一行 lastRow = targetSheet.Cells(Rows.Count, "A").End(xlUp).Row End If Next ws Application.CutCopyMode = False ' 取消复制模式 MsgBox "合并完成！"End Sub

  运行宏（在VBA编辑器中按下F5）。

• 加速技巧：

  使用数组存储数据，减少对工作表的频繁读写。

  对于超大数据，建议转用数据库（如MySQL、PostgreSQL）。

公式法适用于数据结构规整的小规模合并，但操作复杂且易出错。

• 操作方法：

  使用INDIRECT函数结合ROW函数引用不同工作表的数据。例如：=INDIRECT("工作表1!"&ADDRESS(ROW(A1), COLUMN(A1)))

  通过拖动填充公式实现跨表引用。

• 局限性：

  仅适用于数据结构完全一致的情况。

  大规模数据时性能较差，不推荐使用。

无论使用哪种方法，均需统一数据结构：

• 重命名列：确保不同工作表的列名一致。
• 删除无关列：仅保留需要合并的列。
• 数据类型转换：统一相同列的数据类型（如日期、数字、文本）。

若数据量极大（如超过100万行），Excel可能无法高效处理，建议：

• 使用Power Query优化查询步骤。
• 关闭自动计算功能。
• 转用专业数据库（如MySQL、PostgreSQL）或数据分析工具（如Power BI）。

通过以上方法，可高效完成Excel跨表数据合并，并根据数据规模和需求选择最适合的方案。