excel - 如何将实际的 Excel 公式(而不是结果)转换为文本字符串

Question

我一直在寻找解决方案，但找不到。

假设我在单元格 A1 中输入:=if(A2>1,1,0)

Excel 将对此进行解释并返回 1 或 0。

但是，我想做的是将该公式字面转换为字符串:'=if(A2>1,1,0)'

如果您在 Excel 中按 Ctrl+~，您将看到所有公式。总之，基本上我想做的就是采用所有这些公式并将它们设为字符串。

(如果您关心的话，目的是将这些字符串与另一个工作簿进行比较，以确保我没有删除任何内容)

Answer 1

您可以为此创建一个用户定义的函数。

将此代码放入模块(不是工作表代码表、类或表单)

Function GetFormula(rng As range, Optional asR1C1 As Boolean = False) As String
    If asR1C1 Then
        getFormula = rng.FormulaR1C1
    Else
        getFormula = rng.Formula
    End If
End Function

并在工作表中这样调用它

=GetFormula(A1)

或者如果您希望结果为R1C1

=GetFormula(A1,TRUE)