用正侧表达式匹配指定数字提取并求和

SCWYZJ

求助:我想用正则表达式匹配来自定义函数快捷的统计处流水账的消费（详见附件），怎奈找网上资料试了N次也不行，又想到来此请大神老师帮忙看看如何写代码。谢谢

cidanji

cnmlgb9998

用PQ 解决，又快，又稳，还能自动更新！！！！！！！！！！！ 不香么？？？？？

cnmlgb9998

PQ 中的函数中，能直接使用正则表达式，很方便。比函数 和 VBA 方便。

cnmlgb9998

改了一下代码。避免 hard codes 导致更新数据后出错。PQ不香？？？？？？？？？

太极拍天雄

练习一下。。。。。。。。。

swl4561255

1. Function FenXiang(st1 As String, st2 As String)
   
2. Set reg = CreateObject("vbscript.regexp")
   
3. With reg
   
4.   .Global = True
   
5.   .Pattern = st2 & "\d+(\.\d+)?"
   
6.   Set ma = .Execute(st1)
   
7.      For Each a In ma
   
8.         s = s + Val(Replace(a, st2, ""))
   
9.      Next
   
10. End With
    
11. FenXiang = s
    
12. End Function

复制代码

SCWYZJ

谢谢各位老师的热心帮助，我下去好好学学。

SCWYZJ

cidanji 发表于 2024-4-18 10:56

老师，这个求总重的函数没写，该如何修改。请指点

cidanji

SCWYZJ 发表于 2024-4-18 14:39
老师，这个求总重的函数没写，该如何修改。请指点