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

原创已于 2022-11-02 13:24:10 修改 · 1.1k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#正则表达式 #正则 #剔除数字 #数据清洗 #数字整理

于 2022-11-02 13:22:40 首次发布

数据清洗同时被 3 个专栏收录

99 篇文章

订阅专栏

数据

68 篇文章

订阅专栏

正则

53 篇文章

订阅专栏

本文介绍了一段VBA代码，用于去除Excel表格中产品规格列的无意义数字0，并详细解析了正则表达式的匹配规则及代码实现过程。

实例需求：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行代码设置匹配规则。

正则表达式	说明
`(\d+)\.0+\D`	匹配一个或者多个数字，小数点之后只有零，以非数字字符结尾
`(\.[1-9]+)0+`	匹配小数点之后至少有一个非零数字，之后尾随至少一个零

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