Excel VBA去除特殊字符函数故障：无法保留小数，请求修复

原函数的问题出在正则表达式(?:\W|_)上：\W会匹配所有非单词字符，而小数点.属于非单词字符，所以处理小数时会被一并删除，导致"0.002"变成"0002"。

基础修改版本（保留数字和小数点） #

如果只需要保留数字和小数点（允许输入中有多个小数点的情况），可以直接修改正则表达式，匹配除数字和小数点之外的所有字符并替换为空：

Function RemoveSpecialChar(str As String) As String
    With CreateObject("Vbscript.regexp")
        .Global = True
        .Pattern = "[^\d.]" ' 匹配非数字、非小数点的字符
        RemoveSpecialChar = .Replace(str, "")
    End With
End Function

严谨优化版本（仅保留一个合法小数点） #

如果需要确保结果是合法的小数格式（最多仅含一个小数点），可以分两步处理：

1. 先去除所有非数字、非小数点的字符
2. 再清理多余的小数点，只保留第一个

Function RemoveSpecialChar(str As String) As String
    Dim tempStr As String
    With CreateObject("Vbscript.regexp")
        ' 第一步：过滤非数字和非小数点的字符
        .Global = True
        .Pattern = "[^\d.]"
        tempStr = .Replace(str, "")
        
        ' 第二步：移除第一个小数点后的所有重复小数点
        .Pattern = "(?<=\.)\."
        RemoveSpecialChar = .Replace(tempStr, "")
    End With
End Function

测试效果：

• 输入"960" → 输出"960"
• 输入"0.002" → 输出"0.002"
• 输入"12..34.56" → 输出"12.3456"
• 输入"abc123.45def" → 输出"123.45"

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