1、打开Excel数据表,如下图所示,C列中的计算式因为带有文字注释无法直接计算。
2、点击“开发工具”中的“Visual Basic”或者按下Alt+F11,如下图所示。
3、在左侧空白处点击右键,选择“插入“,”模块“,如下图所示。
4、输入如下代码:Function 鱼木混猪(x)Set reg = CreateObject("vbscript.regexp")reg.Pattern = "【+\w+】"reg.Global = True鱼木混猪= Evaluate(reg.Replace(x, ""))End Function如下图所示。
5、返回Excel中,就可以使用自定义函数“鱼木混猪”来计算带有文字注释的计算式了,结果如下图所示。