跨工作表引用含相对引用的单元格时，如何让公式适配当前工作表？

嘿，这个问题我太熟悉了！你碰到的其实是Excel引用公式时的「绝对工作表绑定」问题——直接引用其他单元格的公式，Excel默认会把公式里的所有单元格都牢牢绑定在原工作表上。不过别担心，有两个靠谱的办法能搞定，而且完全不用修改Red工作表的内容，完美适配你要做几十个表的需求：

方法1：用 FORMULATEXT + SUBSTITUTE + INDIRECT 组合公式（无需VBA） #

这个方法适合不想碰宏的情况，不过需要你的Excel版本支持FORMULATEXT函数（2013及以上）。

在Blue!A1里输入以下公式：

=INDIRECT(SUBSTITUTE(FORMULATEXT(Red!A1),"Red!",""))

原理拆解： #

• FORMULATEXT(Red!A1)：提取Red!A1里的原始公式文本，也就是"=B1+B2"
• SUBSTITUTE(..., "Red!", "")：把公式里的「Red!」前缀（如果有的话）替换为空，这里原公式里没有前缀，直接得到干净的"=B1+B2"
• INDIRECT(...)：把处理后的文本转换成可执行的公式，此时B1、B2就会自动指向当前工作表（比如Blue）的对应单元格

如果Red!A1的公式以后更新了（比如改成=B1*B2+C1），这个公式会自动同步，而且依然指向当前工作表的单元格。

方法2：自定义VBA函数（更灵活，兼容所有Excel版本） #

如果你需要适配旧版Excel，或者公式逻辑更复杂，写个自定义函数会更靠谱：

1. 按Alt + F11打开VBA编辑器
2. 右键点击你的工作簿，选择「插入」→「模块」
3. 在模块里粘贴以下代码：

Function LocalFormula(sourceCell As Range) As Variant
    ' 获取源单元格的公式文本
    Dim formulaText As String
    formulaText = sourceCell.Formula
    
    ' 移除源工作表的名称前缀（比如"Red!"）
    formulaText = Replace(formulaText, sourceCell.Parent.Name & "!", "")
    
    ' 让当前工作表执行处理后的公式
    LocalFormula = Application.Caller.Parent.Evaluate(formulaText)
End Function

4. 回到Excel，在Blue!A1里输入：

=LocalFormula(Red!A1)

原理拆解： #

这个函数会先提取Red!A1的完整公式，自动去掉里面绑定的Red工作表前缀，然后让当前工作表（比如Blue、Green、Yellow...）来计算这个公式，自然就会引用当前表的B1、B2了。而且不管Red!A1的公式怎么改，这个函数都会自动同步更新。

小提醒 #

• 方法1里，如果Red!A1的公式包含绝对引用（比如$B$1），替换后依然是绝对引用，不过这一般不影响你的需求
• 方法2需要把工作簿保存为「启用宏的工作簿（.xlsm）」格式，否则宏会失效
• 不管用哪种方法，你只需要在每个新工作表的A1单元格复制对应的公式就行，不用逐个修改，完全适配你几十个工作表的场景

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