如何用正则表达式提取字符串中的数字并加和（含小数）？

作者：绿色风分类：时间：2022-08-17 浏览：113

楼主水星钓鱼	Q：如何用正则表达式提取字符串中的数字并加和（含小数）？ A：如下图所示： Sub Reg() Dim oReg As Object Dim oMatches As Object Dim oMatch As Object Dim i As Integer Dim dSum As Double Set oReg = CreateObject("vbscript.regexp") With oReg .Global = True '设置模式匹配数字（含小数） .Pattern = "\d+\.?\d+\|\d+" For i = 2 To Range("a1").End(xlDown).Row '先判断是否匹配成功，成功则继续 If .test(Cells(i, 1)) Then '获得匹配结果的集合 Set oMatches = .Execute(Cells(i, 1)) '加匹配结果加和 For Each oMatch In oMatches dSum = dSum + oMatch Next Cells(i, 2) = dSum dSum = 0 End If Next End With End Sub 正则表达式_提取数字加和.rar
2楼 XUANSU	很好，学到了。
3楼 wise	学习
4楼 zzmxy	这个非常厉害啊~~~郑重学习一下！ "\d+\.?\d+\|\d+" 嗖~~~深造去
5楼本人号被盗，	佩服的很。学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表