如何在VBA中使用正则表达式提取大于或等于100美元以上金额?

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

楼主 wise	Q:如何在VBA中使用正则表达式提取大于或等于100美元以上金额? 如"1001:$1001.10,1002:$23.45,1003:$232.45,1004:$2.45"中提取"1001:$1001.10,"1001:$1001.10" A:ALT+F11→插入模块→在模块中输入以下代码: Sub 提取大于或等于100美元以上金额1() Dim str As String, a, n, arr, i Dim reg As Object str = "1001:$1001.10,1002:$23.45,1003:$232.45,1004:$2.45" Set reg = CreateObject("vbscript.regexp") reg.Global = True arr = Split(str, ",") reg.Pattern = "^\d+:\$([1-9]\d{2,}\.\d{2}\|[1-9]\d{2,})$" '\d+:一次或多次匹配数字字符 For i = LBound(arr) To UBound(arr) If reg.Replace(arr(i), "") = "" Then If str1 = "" Then str1 = arr(i) Else str1 = str1 & "," & arr(i) End If Next MsgBox str1 End Sub
2楼 DJ_Soo	Sub test() Dim RegExp As Object Const Str As String = "1001:$1001.10,1002:$23.45,1003:$232.45,1004:$2.45" Set RegExp = CreateObject("vbScript.regexp") Dim aaa With RegExp .Global = True .Pattern = "(\d+:\$\d{3,}\.\d+)" aaa = .Replace(Str, "($1)") MsgBox aaa End With End Sub 找到了
3楼 bluexuemei	程序有错误!

免责声明

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

评论列表