如何在不相等的单元格中计算 3 * 2 * 5 + 6 [重复]

Question

可以计算表达式的函数，例如 (2 * 5 + 6=16 或

10*3*0.75=22.5) 不等同。

我用 execl 做的，但它不兼容

=IFERROR(LEFT(G2170,FIND("*",SUBSTITUTE(UPPER(G2170),"C","*"))-1)*RIGHT(G2170,LEN(G2170)-FIND("*",SUBSTITUTE(UPPER(G2170),"C","*"))),IF(LEN(G2170)=10,LEFT(G2170,1)*MID(G2170,3,2)+MID(G2170,6,2)+MID(G2170,9,2),IF(LEN(G2170)=8,LEFT(G2170,1)*MID(G2170,3,3)+RIGHT(G2170,2),IF(LEN(G2170)=7,LEFT(G2170,1)*MID(G2170,3,2)+RIGHT(G2170,2),IF(LEN(G2170)=9,LEFT(G2170,2)*MID(G2170,4,1)*RIGHT(G2170,4),IF(LEN(G2170)=5,LEFT(G2170,1)*MID(G2170,3,1)*RIGHT(G2170,1)))))))

Answer 1

您可以编写一个简单的用户定义函数来评估这些字符串：

Option Explicit

Public Function EvaluateString(ByVal Formula As String)
    EvaluateString = Application.ThisCell.Parent.Evaluate(Formula)
End Function

代码需要在一个模块中。

它可以用作公式，如EvaluateString(A1) 和A1 可以是 Excel 能够评估的任何公式。如果公式包含其他公式，例如 SUM 包含单词，则无论您的 Excel 使用哪种本地化版本，Evaluate 都必须是英文公式版本，仅处理英文公式。

如果公式包含对其他单元格的引用，您可能需要创建此函数Application.Volatile。如果肯定没有参考，请避免这种情况。可变函数将对您的工作表产生很大的计算影响（每次在工作表上计算任何内容时都会计算得到）。