如何识别多工作表Excel文件的重复公式与冗余计算？

1. 相同文本公式的结果一致性校验 #

• 小范围样本校验可直接使用Excel内置功能：选中待对比的同文本公式单元格，点击「公式」选项卡下的「求值」功能，逐步骤核对引用单元格取值、计算逻辑输出，快速确认结果是否一致。
• 大范围批量校验可通过VBA脚本自动完成，运行以下代码会遍历全表所有同文本公式，把结果不一致的单元格标黄提示：

Sub 同公式结果比对()
    Dim ws As Worksheet, refWs As Worksheet, rng As Range
    Set refWs = ThisWorkbook.Worksheets(1) ' 可修改为你需要的参照工作表
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> refWs.Name Then
            For Each rng In refWs.UsedRange
                If rng.HasFormula And rng.Formula = ws.Range(rng.Address).Formula Then
                    If rng.Value <> ws.Range(rng.Address).Value Then
                        ws.Range(rng.Address).Interior.Color = RGB(255, 255, 0)
                    End If
                End If
            Next rng
        End If
    Next ws
    MsgBox "比对完成，结果不一致的单元格已标黄"
End Sub

注意：如果需要对比的不是相同地址的公式，自行调整代码中的地址匹配规则即可。

2. 冗余计算项排查 #

• 先清理无效公式：点击「查找和选择」-「定位条件」-「公式」，筛选出全表所有带公式的单元格，和模型最终输出的依赖链路做对比，删除不在计算链上的无效公式单元格。
• 清理跨表无效引用：开启「公式」选项卡下的「追踪引用单元格」「追踪从属单元格」，逐一确认跨表引用的数据源是否必要，删除重复引用、过期引用的公式。
• 清理易失性函数：排查所有公式中的NOW()、TODAY()、OFFSET()、INDIRECT()这类易失性函数，这类函数每次打开文件都会触发全局重算，是拖慢计算速度的核心原因之一，能用非易失性函数替代就替换，比如用INDEX()替代OFFSET()。
• 合并重复计算模块：如果多个工作表都存在逻辑完全一致的计算段，把这部分计算统一迁移到单独的「公共计算表」中，其他工作表直接引用公共计算表的结果，避免重复计算。

3. 文件体积压缩优化 #

• 清理工作表空白冗余区域：选中每个工作表最后一个实际使用单元格的下一行/下一列，按Ctrl+Shift+方向键下/右选中所有空白行/列，右键删除后保存文件，多数场景下可缩减30%以上的文件体积。
• 把不需要保留计算逻辑的结果单元格复制粘贴为数值，减少公式存储占用。
• 关闭「保存时合并条件格式」「保存时合并数据验证」设置，减少文件存储的无效信息。

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