1、ALT+F11打开VBE编辑器，单击菜单：工具-引用。
2、弹出引用-VBAProject对话框，勾选Microsoft VBScript Regular EXpressions 1.0，点确定。
3、新建一个模块，输入如下代码：Sub tsszstrqh()Dim reg As New RegExpDim str As String, t, s, arrstr = Range("a1").ValueWith reg.Global = True.Pattern = "[^0-9.]"arr = "=" & Right(.Replace(str, "+"), Len(.Replace(str, "+")) - 1).Pattern = "\++"Range("b1") = .Replace(arr, "+")End WithEnd Sub
4、按ALT+F8，运行tsszstrqh宏，演示结果如下图：
