没有这样的函数,你可以自己写一个,例如这样
然后比如A1:10,B1:10,C1:=A1*B1,在D1输入=ShowFormulaValue(A1,B1,C1)即可
Option Explicit
Function ShowFormulaValue(r1 As Range, r2 As Range, rResult As Range) As String
Dim r1Address, r2Address As String
r1Address = r1.AddressLocal(False, False)
r2Address = r2.AddressLocal(False, False)
Dim rResultFormula As String
rResultFormula = rResult.FormulaLocal
rResultFormula = Replace(rResultFormula, r1Address, r1.Value2)
rResultFormula = Replace(rResultFormula, r2Address, r2.Value2)
ShowFormulaValue = rResultFormula
End Function
=power(10,2)