从字符串提取数字时遇问题：小数点被意外移除

你的问题出在正则表达式的模式设计上：原模式(\d{1,3},?)+(\.\d{2})?强制要求匹配以至少一组1-3位数字开头的内容，完全忽略了小数点前没有整数的情况（比如.25）。当输入.25MP时，正则会跳过小数点，只匹配后面的25，转换后自然丢失了小数点。

修正方案 #

把正则模式调整为允许小数点前没有整数，同时保留对千分位逗号和小数部分的支持。修改后的模式可以匹配以下场景：

• 纯整数：123、123,456
• 常规小数：123.45、123,456.78
• 开头为小数点的小数：.25、.99

修正后的完整函数代码：

Public Function ExtractNumber(inValue As String) As Variant
    With New RegExp
        .Pattern = "(?:\d{1,3}(?:,\d{3})*)?\.?\d+" ' 调整后的正则模式
        .Global = True
        If .Test(inValue) Then
            ' 匹配到内容后，先替换掉千分位逗号再转换
            Dim matchedText As String
            matchedText = .Execute(inValue)(0)
            matchedText = Replace(matchedText, ",", "")
            ExtractNumber = CDec(matchedText)
        Else
            ExtractNumber = Null ' 无匹配时返回Null，避免空值问题
        End If
    End With
End Function

关键修改点说明 #

1. 正则模式调整：
   • (?:\d{1,3}(?:,\d{3})*)?：可选的整数部分，支持千分位逗号（比如123,456），?表示这部分可以不存在（对应.25的场景）
   • \.?：可选的小数点
   • \d+：至少一位数字（确保不会匹配空的小数点）
2. 千分位逗号处理：原代码没有处理逗号，直接转换会报错，新增Replace(matchedText, ",", "")先移除逗号再转换为数值类型。
3. 空匹配处理：新增Else分支返回Null，避免函数无匹配时返回空变体的潜在问题。

测试验证 #

输入.25MP时，函数会匹配到.25，移除逗号（这里没有逗号）后转换为0.25，符合预期。输入123,456.78MP时，会提取123,456.78，移除逗号后转换为123456.78，同样正常工作。

内容的提问来源于stack exchange，提问作者MvG