作者：绿色风
分类：
时间：2022-08-17
浏览：193
楼主
wise |
Q:如何使用正则表达式括号里面的数值进行求和？
A：ALT+F11→插入模块→输入以下代码：
- Sub test()
- For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
- str1 = Cells(i, 1)
- str1 = RegExpTest("（[0-9]{1,2}）", str1)
- '找出符合的字符
- str1 = Replace(str1, "（", "")
- '把（替换为空值
- For n = 0 To UBound(Split(str1, "）")) - 1
- '通过) 进行分割
- s2 = s2 + Val(Split(str1, "）")(n))
- '对数值进行累计
- Next
- Cells(i, 2) = s2
- s2 = 0
- Next
- End Sub
- Function RegExpTest(patrn, strng)
- Dim regEx, Match, Matches
- Set regEx = CreateObject("VBSCRIPT.REGEXP")
- With regEx
- .Pattern = patrn
- .ignorecase = True
- .Global = True
- End With
- Set Matches = regEx.Execute(strng)
- For Each Match In Matches
- retstr = retstr & Match.Value
- Next
- RegExpTest = retstr
- End Function
 test.rar
|
2楼
bluexuemei |
学习! |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一