求助：编写的VBA宏无法删除单元格星号，如何保留指定字符？

你的代码问题出在VBA的Replace函数不支持正则表达式语法——它只会把"[^0-9.,-]"当作普通字符串去匹配替换，而不是识别成"非数字/点/逗号/减号"的正则规则，所以根本没起到过滤效果。

下面给你两种可行的实现方式，选你觉得顺手的用：

方法1：用正则表达式批量处理（效率高） #

这种方式适合处理大量单元格，代码逻辑简洁：

Sub RemoveNonNumeric()
    Dim c As Range
    Dim regEx As Object
    ' 后期绑定正则对象，不用手动引用库
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True ' 全局替换，不是只替换第一个匹配项
        .Pattern = "[^0-9.,-]" ' 匹配所有非数字、点、逗号、减号的字符
    End With
    
    For Each c In Selection
        If Not IsEmpty(c.Value) Then
            c.Value = regEx.Replace(c.Value, "")
        End If
    Next c
    Set regEx = Nothing
End Sub

方法2：逐个字符判断（新手友好，易理解） #

如果你不想用正则，也可以遍历每个字符，只保留允许的内容：

Sub RemoveNonNumeric()
    Dim c As Range
    Dim str As String
    Dim newStr As String
    Dim i As Integer
    
    For Each c In Selection
        str = c.Value
        newStr = ""
        If str <> "" Then
            For i = 1 To Len(str)
                ' 判断当前字符是否是允许保留的
                Select Case Mid(str, i, 1)
                    Case "0" To "9", ".", ",", "-"
                        newStr = newStr & Mid(str, i, 1)
                End Select
            Next i
            c.Value = newStr
        End If
    Next c
End Sub

1. 打开Excel按Alt+F11进入VBA编辑器
2. 插入新模块（右键工程→插入→模块）
3. 把上面任意一段代码粘贴进去
4. 返回Excel，选中需要处理的单元格区域
5. 按Alt+F8调出宏窗口，选择RemoveNonNumeric执行即可

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