Excel Power Query追加同名列不同列序表时如何保留公式

Power Query 加载数据到工作表时会直接覆盖目标区域的内容，天生无法保留区域内的原有公式，要实现追加时保留公式、后续新增行自动填充公式，直接用以下方案即可：

方案1：原生超级表（结构化表）手动追加 #

这是最稳定、不需要写代码的方案：

• 先把表1、表2都转为超级表：选中任意表的有效数据区域，按Ctrl+T，勾选「表包含标题」后确定，两个表会自动开启结构化表特性
• 确认表1中手动新增的自定义字段公式已经正常生效：超级表中只要在某列第一行输入公式，会自动填充整列，不需要手动下拉
• 追加时选中表2的所有数据行（不要选中表2的表头），直接复制后粘贴到表1最后一行的下方：
  • 粘贴后表1会自动扩展区域范围，原有自定义列的公式会自动应用到所有新粘贴的行，不会转为静态值
  • 表2不存在的新增列，粘贴后会自动匹配留空，公式自动补全，不需要提前对齐两表列顺序
• 后续新增数据时，只要在表1最后一行按回车输入内容，所有带公式的列都会自动向下填充公式，不需要手动复制粘贴公式

方案2：VBA宏一键追加（适合频繁合并场景） #

如果需要定期重复合并两个表，可以用简单宏固定操作逻辑，全程不会破坏原有公式：

Sub 保留公式追加表()
    Dim mainTable As ListObject, appendTable As ListObject
    ' 可根据自己的实际表位置、表名修改以下参数
    Set mainTable = ThisWorkbook.Worksheets("存放表1的工作表名").ListObjects("表1")
    Set appendTable = ThisWorkbook.Worksheets("存放表2的工作表名").ListObjects("表2")
    
    ' 批量追加数据
    appendTable.DataBodyRange.Copy
    mainTable.ListRows.Add.Range.PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
End Sub

运行宏后，主表的公式列会自动识别新增行完成公式填充，和手动粘贴的效果完全一致，效率更高。

注意事项 #

不要把带公式的区域放在Power Query的加载输出范围内，PQ每次刷新都会覆盖区域内的所有内容，公式必然丢失。如果要保留公式计算逻辑，要么把公式放在PQ加载区域之外，要么直接用超级表的原生计算列替代PQ里的计算步骤。

• 如果两表列顺序不一致，不需要手动调整，超级表会按照表头文本自动匹配对应列的数据，不会出现错列问题
• 不要在超级表的数据区域中间插入整行空行，会破坏表的自动扩展、公式自动填充特性

内容的提问来源于stack exchange，提问作者Talha Siddiqui