程造价相关行业的计算

在一些工程造价相关行业的朋友们，经常会遇到下面这样的情况：

需要把上面单元格中，中括号以及里面的内容删掉后，把剩下的运行式求出结果。

遇到这种问题，很多人是不是一脸的茫然呢？

一个个删除，然后求值？估计想死的心都有了吧😄。

当然也可以用查找替换，通配符查找，一次性把中括号以及其里面的内容全部替换掉，然后用宏表函数Evaluate，或者分列，也可以达到目的。

具体方法见以前写过的一篇文章：

《Excel中文本运算式求值》

今天我们要分享的是用自定义函数的方法来求上面案例的结果，省去很多步骤，简直爽爆了，而且一劳永逸，具体看看效果：

具体代码奉献的大家：

Function gcl(text As String)
 Application.Volatile
  Dim regx As Object, a
   Set regx = CreateObject("vbscript.regexp")
    With regx
       .Global = True
          .Pattern = "\[.+?]"
           gcl = Evaluate(.Replace(text, ""))
        End With
        End Function