一、用正则表达式移除分数、指数、度符号及非标准字母类特殊字符 #

要清理这类特殊字符，有两种实用思路，你可以根据需求选择：

思路1：反向保留允许的字符（推荐） #

先定义你想保留的字符范围（比如英文字母、数字、常用标点、空格），然后移除所有不在这个范围内的字符。这种方式更通用，能避免遗漏小众的特殊字符。对应的正则表达式示例：

[^a-zA-Z0-9\s.,!?;:()\-_]

• ^ 表示“非”，即匹配不在后续字符集合里的内容
• a-zA-Z0-9 覆盖大小写字母和数字
• \s 匹配空格、制表符等空白字符
• .,!?;:()\-_ 是常用标点符号，你可以根据实际需求增减

思路2：精准匹配目标特殊字符 #

如果只需要移除特定的分数、指数、度符号，也可以直接把这些字符列出来：

[½⅓¼⅕⅙⅐⅛⅑⅒⅔¾⅘⅚⅛⅜⅝⅞°²³⁴⁵⁶⁷⁸⁹⁰¹]

VBA实现示例 #

下面的代码会遍历指定单元格范围，自动移除目标特殊字符：

Sub RemoveSpecialChars()
    Dim strPattern As String
    ' 采用思路1的正则，可根据需求调整保留的字符范围
    strPattern = "[^a-zA-Z0-9\s.,!?;:()\-_]"
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True ' 开启全局替换，匹配所有符合条件的字符
    regEx.Pattern = strPattern
    
    Dim cell As Range
    For Each cell In ActiveSheet.Range("C:C") ' 替换为你的目标范围
        If cell.Value <> "" Then ' 跳过空单元格，提升效率
            cell.Value = regEx.Replace(cell.Value, "")
        End If
    Next
    Set regEx = Nothing
End Sub

二、验证你的VBA代码是否能匹配所有Unicode字符 #

直接给结论：你的代码不能匹配所有Unicode字符，它只会匹配非ASCII的Unicode字符。

代码逻辑分析 #

你的正则表达式 [^�-] 中：

• � 对应ASCII码0（空字符）， 对应ASCII码127（删除控制字符）
• [^�-] 的意思是匹配所有不在ASCII 0-127范围内的字符——这类字符属于非ASCII的Unicode字符（比如中文、度符号°、分数½、指数²等都在此列）

而ASCII字符（比如英文字母a-z、数字0-9、基本标点!@#等）本身也是Unicode的一部分，你的代码不会对这类字符进行匹配，只会标记包含非ASCII字符的单元格。

代码里的小bug #

你代码中的 If strPattern <> "" Then 逻辑有误：这个判断是检查正则模式是否为空，但你已经明确定义了strPattern = "[^�-]"，所以这个条件永远为真，无法跳过空单元格。应该改成判断单元格内容是否为空：

If cell.Value <> "" Then ' 跳过空单元格，避免无意义的检查

修正后的完整代码 #

Dim strPattern As String: strPattern = "[^�-]"
Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True
regEx.IgnoreCase = True ' 这里IgnoreCase其实没用，因为匹配的是非ASCII字符
regEx.Pattern = strPattern
For Each cell In ActiveSheet.Range("C:C") ' 定义你的目标范围
    If cell.Value <> "" Then ' 跳过空单元格
        If regEx.Test(cell.Value) Then ' 检查是否包含非ASCII字符
            cell.Interior.ColorIndex = 6 ' 标记背景色为黄色
        End If
    End If
Next
Set regEx = Nothing

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