VBA之正则表达式（37）-- 去除无意义的零

实例需求：A列为某产品规格，现需要剔除其中无意义的数字0，具体解释参见C列。

示例代码如下。

Sub RegExpDemo()
    Dim objRegEx As Object
    Set objRegEx = CreateObject("vbscript.regexp")
    objRegEx.Global = True
    objRegEx.Pattern = "(\d+)\.0+\D|(\.\d+)0+"
    Set datarng = Range([a3], Cells(Rows.Count, 1).End(xlUp))
    arr = datarng.Value
    For r = 1 To UBound(arr)
        arr(r, 1) = "'" & objRegEx.Replace(arr(r, 1), "$2$3$4")
    Next
    datarng.Offset(0, 1).Value = arr
    Set objRegEx = Nothing
End Sub

代码解析：
第3行代码创建正则表达式对象。
第4行代码设置全局匹配。
第5行代码设置匹配规则。

第一个规则匹配“24*35*R3.0”末尾的部分，避免匹配“4.5+0.0040”中的“0.00”。
第6行代码获取A列数据单元格范围
第7行代码将数据读取到数组中。
第8~10行代码使用For语句循环处理数据。
第9行代码执行正则替换，由于两个匹配组不可能同时匹配成功，因此替换结果为两个匹配组之一。
第11行代码将数据会写到B列单元格。
第12行代码清空对象变量，释放系统资源。