Excel VBA实现取字符串中数字并求和

1、ALT+F11打开VBE编辑器，单击菜单：工具-引用。

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