使用Power Query批量合并工作表可自动识别并追加结构相似的多表数据，保留列名与数据类型；公式法适用于固定结构表的动态引用；VBA宏支持标题校验与空行跳过；合并后需统一格式、列宽及小数位数，并清除重复标题与空行。
如果您需要将多个工作表中的数据整合到一个统一的结构中，但各表字段顺序、标题行位置或数据起始行不一致，则可能造成手动复制粘贴时出现错位或格式混乱。以下是实现多表数据合并与格式统一的具体操作路径：
一、使用Power Query批量合并工作表
Power Query可自动识别同一工作簿内结构相似的工作表，并将其追加为一张表，同时保留原始列名和数据类型。该方法适用于标题行一致、数据区域规范的多个工作表。
1、在Excel中，点击【数据】选项卡，选择【来自工作簿】，浏览并导入当前文件。
2、在导航器窗口中，勾选【合并并加载到…】，点击【确定】。
3、在“合并”对话框中，选择【所有工作表】，确认标题行位于第1行，点击【确定】。
4、在Power Query编辑器中，检查各表是否已按列对齐；如存在空表，右键删除对应查询项。
5、点击【关闭并上载】，结果将作为新工作表插入当前工作簿。
二、通过公式法动态合并（适用于固定结构表）
当各工作表字段完全相同且数据区域大小可控时，可用INDIRECT函数配合SEQUENCE生成动态引用，避免逐表复制。此方式无需刷新，但要求表名命名规则统一（如Sheet1、Sheet2…）。
1、在目标工作表A1单元格输入标题行，确保与源表列标题完全一致。
2、在A2单元格输入公式：=INDIRECT("Sheet"&ROW(A1)&"!A2")，向右拖拽至对应列数。
3、选中该行，向下填充至所需行数；若某Sheet数据不足，对应单元格将显示#REF!，需用IFERROR包裹处理。
4、将整段公式区域复制为数值，粘贴至新区域以消除公式依赖。
三、VBA宏一键合并（支持标题校验与空行跳过）
通过编写VBA脚本可遍历全部工作表，自动比对首行标题，仅合并列名匹配的字段，并跳过全空行。该方法适合存在部分列缺失或表头微调的场景。
1、按Alt+F11打开VBA编辑器，插入新模块。
2、粘贴以下代码段：Sub MergeSheets() Dim ws As Worksheet, destWs As Worksheet, lastRow As Long Set destWs = Worksheets.Add(destWs.Name = "合并结果") For Each ws In Worksheets If ws.Name destWs.Name Then lastRow = destWs.Cells(destWs.Rows.Count, 1).End(xlUp).Row + 1 ws.UsedRange.Copy destWs.Cells(lastRow, 1) End If Next ws End Sub
3、光标置于Sub内部任意位置，按F5运行宏。
4、检查新生成的“合并结果”表，确认每张源表数据已按顺序纵向堆叠。
四、合并后统一调整列宽与数字格式
批量合并常导致列宽压缩或数值显示为科学计数法，需集中设置格式以提升可读性。此步骤应在数据合并完成后立即执行，避免后续编辑干扰格式一致性。
1、选中合并结果表全部数据区域（含标题），按Ctrl+A两次激活整表选择。
2、右键选择【设置单元格格式】，在【数字】选项卡中，对金额列选择【会计专用】，对日期列选择【短日期】。
3、切换至【开始】选项卡，点击【单元格格式】→【自动调整列宽】。
4、对含有小数的数值列，使用【增加小数位数】按钮统一设为两位小数。
五、去除重复标题行与空行
手动复制或部分VBA脚本可能在每张源表之间插入重复标题行或空白分隔行，影响筛选与排序。需定位并清除这些冗余行，确保数据连续无断点。
1、选中数据区域，按Ctrl+G打开定位窗口，点击【定位条件】→【空值】→【确定】。
2、保持选中状态，右键选择【删除】→【整行】。
3、再次选中区域，使用【数据】→【删除重复项】，仅勾选【标题所在行】参与比对，点击【确定】。
4、检查第2行是否为真实数据，若仍为标题，则手动删除该行并上移后续内容。
