ExcelVBA利用正则表达式实现取字符串中数字并求和的方法。
工具/原料
Excel
VBA
方法/步骤
1、ALT+F11打开VBE编辑器，单击菜单：工具-引用。
2、弹出引用-VBAProject对话框，勾选MicrosoftVBScriptRe壹执慵驾gularEXpressions1.0，点确定。
3、新建一个模块，输入如下代码：Sub咯悝滩镞tsszstrqh()DimregAsNewRegExpDimstrAsString,t,s,arrstr惺绅寨瞀=Range("a1").ValueWithreg.Global=True.Pattern="[^0-9.]"arr="="&Right(.Replace(str,"+"),Len(.Replace(str,"+"))-1).Pattern="\++"Range("b1")=.Replace(arr,"+")EndWithEndSub
4、按ALT+F8，运行tsszstrqh宏，演示结果如下图：
