Excel中怎样实现计算带文字注释的计算式

　　自定义函数知道吧?

　　Alt+F11，左上角空白处，右键，添加模块，然后复制下面的代码返回Excel，只要在后面单元格中输入=ZM(前面单元格)就行了Function ZM(x)Dim reg, mhSet reg = CreateObject("vbscript.regexp"

　　)reg.Pattern = "【+\\w+】"reg.Global = TrueZM = Evaluate(reg.Replace(x, ""))End Function