从杂乱的字符串中提取计算公式

有时候我们得到一个表，里面的数据会填的杂乱无章，没多少规律可言，比如下图中J列里面的内容，其实我们想让用户在里在填上：数量X规格，可是有些用户在里面会加上一些备注，有些还只填规格，不填数量，甚至有些数量和规格非要反着填，这个时候，如果我们想把每个单元格里面的各种型号的数量和规格分别相乘后，再相加，是很困难的。


这个时候我们除了手动去一个一个的修正之外，只能用vba自定义函数的方法来解决这个问题了。
请下载附件： 取主备设备.xla (74 KB, 下载次数: 632)

2017-8-7 09:25 上传

点击文件名下载附件

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


按上面的步骤加载完后，如果要获取类似图中AT列中的纯净公式，只需在AT16中输入： =二次修正算式(J16) ，然后下拉即可。
同理，可在AU16中输入：=求和(J16)，获得数量和规格乘积之后的和
可在AV16中输入：=个数(J16)，获得数量相加列表
可在AW16中输入：=求个数(J16)，获得数量之和
可在AX6中输入：=规格(J16)，获得规格相加列表