上一篇《添加千分位(2/3)》博文讲解了实现添加千分位功能的正则表达式如下:
((\.\d+[\w\W]*?)*?\d)(?=(\d{3})+(\D|$))
如果调整一下测试段落的顺序:
珠穆朗玛峰高度8848.0
光速是300000000米/秒
马里亚纳海沟最大长度: 2550,平均深度: 8000,
最大宽度: 69,最大深度11034
大家背诵圆周率3.1415926535
此时最后一行的小数部分符合表达式的匹配规则,正则替换时将在535
之前添加千分位。
![](https://i-blog.csdnimg.cn/blog_migrate/a0e279a52a0d2f0541024c7799d63e08.png)
需要处理的文字段落可能有各种情况,当然可以用代码去判断段落末尾是否为小数数字。这里提供另一种解决问题的思路,既然已经有了正则可以消耗掉小数部分数字,那么我们就在字符串末尾构造一个符合匹配规则的字符串。
能实现这个目的的字符串可能有很多,例如.8888
,这样就成功的把最后一个匹配组扩展到了添加的后缀字符串中,正则替换完成后,去掉后缀字符串(注意替换后,需要去掉的字符串长度增加一位,因为多了一个千分位)就可以得到完美的结果。
![](https://i-blog.csdnimg.cn/blog_migrate/a79cba1a3252fabd88d2dc3fd9a1790f.png)
VBA代码如下:
Sub RegExpDemo3()
Dim strTxt As String, strPad As String
Dim strRes As String
Dim objRegEx As Object
Set objRegEx = CreateObject("vbscript.regexp")
objRegEx.Pattern = "((\.\d+[\w\W]+?)*?\d)(?=(\d{3})+(\D|$))"
objRegEx.Global = True
'objRegEx.MultiLine = True
strPad = ".8888"
strTxt = "珠穆朗玛峰高度8848.0" & vbNewLine & _
"光速是300000000米/秒" & vbNewLine & _
"马里亚纳海沟最大长度: 2550,平均深度: 8000," & vbNewLine & _
"最大宽度: 69,最大深度11034" & vbNewLine & _
"大家背诵圆周率3.1415926535"
strRes = objRegEx.Replace(strTxt & strPad, "$1,")
MsgBox strTxt & vbNewLine & vbNewLine & _
Left(strRes, Len(strRes) - Len(strPad) - 1)
Set objRegEx = Nothing
End Sub
结果如图所示。
![](https://i-blog.csdnimg.cn/blog_migrate/692de92b54ca303b50c0c55050aabdb4.png)
后记,可能有的人会想到,VBA中也可以调用JS,听说JS的正则很强大,是否可以在VBA调用JS的正则呢?答案是肯定的,VBA调用JS正则没有问题,答案也是否定的,VBA的JS正则也不支持逆序环视,大家可以自己在VBA中测试一下。
相关博文链接:
VBA之正则表达式(1)-- 基础篇
VBA之正则表达式(2)-- 批量修改公式
VBA之正则表达式(3)-- 特殊公式计算
VBA之正则表达式(4)-- 提取日期和金额
VBA之正则表达式(5)-- 中文字符
VBA之正则表达式(6)-- 设置音标格式
VBA之正则表达式(7)-- 乾坤大挪移(数据整理)
VBA之正则表达式(8)-- 重复字符分组
VBA之正则表达式(9)-- 添加千分位(1/3)
VBA之正则表达式(10)-- 添加千分位(2/3)
VBA之正则表达式(11)-- 添加千分位(3/3)