有个函数,但很难用,要定义名称如果你能使用宏功能,加入下面这个函数后就可以实现你要的功能了。如A1单元格填写“2*3*4”,A2单元格写公式“=MyEvaluate(A1)”就能得到结果“24”。Function MyEvaluate(EvaStr As String)
Dim i&, P%, Si&
For i = 1 To Len(EvaStr)
If Mid(EvaStr, i, 1) = "(" Then
P = P + 1
If P = 1 Then Si = i
End If
If Mid(EvaStr,