使用宏对Excel单元格内的数学计算式进行结果运算

Public Function waj(ByVal s As String) As Variant
   If Len(s) = 0 Then   
      waj = 0
   Else
      waj = Application.Evaluate((Replace(Replace(s, "【", "ISTEXT(""【"), "】", "】"")*")))
   End If
End Function

Public Function wj(ByVal s As String) As Variant
   If Len(s) = 0 Then
      wj = 0
   Else
      wj = Application.Evaluate(s)
   End If
End Function

if else 判断单元格如果为空，则返回值为0.、

当单元格内包括【大门】等文字描述时，采用waj功能：

           将单元格里的大括号【大门】替换为ISTEXT（"【大门】"），然后运算，注意的是，【】必须放在单元格中数字的前面，即【】不能放在最后面。

定义了2个功能waj和wj，文件保存为xlam格式。

使用时，选择【开发工具】【Excel加载项】【浏览】加载宏。

启用【开发工具】的方法：Excel选项，自定义功能区。

自签名，软件根目录下selfcert