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