自定义函数去掉计算表达式中的不需要的内容，然后求值

在excel中插入一个模块，然后复制下面的内容加到这个模块中

1. Function 公式求和(Rg As Range)
   
2.     Dim Reg
   
3.     Set Reg = CreateObject("Vbscript.RegExp")
   
4.     With Reg
   
5.         .Global = True
   
6.         .Pattern = "<.*?>"                         '这是不需要的字符，也就是说尖括号和其中的内容不要。
   
7.     End With
   
8.     公式求和 = Application.Evaluate(Reg.Replace(Rg, ""))
   
9. End Function
   

复制代码

用的时候，只要在单元格里面输入 =公式求和（要求和的公式所在的单元格）  即可


此自定义函数可以求解如下表中A2到A9中的公式表达式的计算结果。也就是先除去公式表达式中尖括号及其中的内容，然后对剩下的只含有数字和运算符号的表达式进行运算，得出结果。






也可以直接用下面的附件，下载后，放到 C:\Documents and Settings\Administrator\Application Data\Microsoft\AddIns这个文件夹里面，可能不同的系统不太一样，这个地址是office加载项文件存放的默认位置。可以在c盘搜索AddIns，得到该文件夹位置。
放在那儿后，直接在任何一个excel中把该文件加载上就可以了，具体步骤是 在菜单栏选择  文件——选项——加载项——转到(G) ，然后就弹出了加载宏的对话框，然后把里面的 “去除尖括号后公式求和”前面打上勾，就可以了。

这样就可以在任何一个excel文件中只要用公式 =公式求和（要求和的公式所在的单元格）    即可。

需要加载的宏： 去除尖括号后公式求和.xla (31.5 KB, 下载次数: 125)

2016-9-5 15:59 上传

点击文件名下载附件