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

2025-03-12 23:22:54

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

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

2、弹出引用-VBAProject对话框,勾选Microsoft VBScript Regular EXpressions 1.0,点确定。

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

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

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

4、按ALT+F8,运行tsszstrqh宏,演示结果如下图:

Excel VBA实现取字符串中数字并求和
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢