excel - 如何从EXCEL公式中得到真正的公式

Question

      | A   |  B
------|-----|--------
    1 |  x  |   1
    2 |  y  |   2
    3 |  z  |   3
    4 |  a  |   =B1*B2+B3

想象一下上面的内容是 Excel 工作表的一部分，B4 有一个公式 =B1*B2+B3。

是否可以从Excel公式中提取真实的公式？即在上面的例子中，真正的公式是a=x*y+z。

我想做“转换”的原因是我有很多excel表格，里面都是数据和公式，现在我想退出Excel并使用javascript进行计算，所以我想要真正的公式。

Answer 1

在定义了您所追求的目标之后，我认为 VBA 解决方案是最佳选择。既然您指出这是可以接受的，我就为您提供了一个。

以下函数将返回字符串a=x*y+z，并且只要您的所有公式均按照示例中给出的方式完全设置，该函数就可以工作。

Function ListRealFormula(rng As Range, ws As Worksheet) As String

Dim sFormula As String

sFormula = rng.Offset(, -1) & rng.Formula

With rng

    Dim d As Range
    For Each d In .DirectPrecedents

        Dim sValue As String, sAdd As String
        sAdd = d.Address(0, 0)
        sValue = ws.Range(sAdd).Offset(, -1).Value2
        sFormula = Replace(sFormula, sAdd, sValue)

    Next

End With

ListRealFormula = sFormula

End Function

您可以像这样调用该函数:

Sub GrabFormula()

Dim s As String

s = ListRealFormula(Sheet1.Range("B4"), Sheet1)
Debug.Print s

End Sub