如何在Excel VBA中替换无法识别的特殊空白字符？

你之前查询ASCII码和普通空格一致，是因为Asc()函数仅返回字符编码的低位字节，这类空格类特殊字符的低位刚好和普通空格（编码32）一致，才会出现误判，使用AscW()查询Unicode编码可以得到准确结果。

步骤1：获取特殊字符的准确编码 #

• 把包含特殊字符的文件名粘贴到Excel空白单元格（例如A1），运行如下VBA代码，在立即窗口查看每个字符对应的Unicode编码：

Sub CheckSpecialCharCode()
    Dim rawStr As String, i As Integer
    rawStr = Range("A1").Value
    For i = 1 To Len(rawStr)
        Debug.Print "第" & i & "个字符编码：" & AscW(Mid(rawStr, i, 1))
    Next i
End Sub

• 对比普通空格的编码32，找到你要处理的特殊字符对应的编码值。

步骤2：批量替换特殊字符 #

通用清理函数 #

将你查到的编码填入下方函数的specialCharCodes数组中，调用该函数处理文件路径即可完成替换：

Function CleanFilePath(rawPath As String) As String
    ' 数组内可填入你查到的所有特殊字符编码，示例中为常见的两类空格类特殊字符编码
    Dim specialCharCodes As Variant
    specialCharCodes = Array(160, 12288) ' 160对应不间断空格，12288对应全角空格
    Dim i As Integer
    For i = LBound(specialCharCodes) To UBound(specialCharCodes)
        rawPath = Replace(rawPath, ChrW(specialCharCodes(i)), " ")
    Next i
    ' 自动合并连续空格、去除首尾空格，避免路径识别报错
    CleanFilePath = Application.WorksheetFunction.Trim(rawPath)
End Function

快捷替换方案 #

如果你能在Word中选中该显示为小圆圈的特殊字符，直接复制字符后粘贴到Replace的查找参数中即可，无需查询编码，示例：

rawPath = Replace(rawPath, "此处粘贴你复制的特殊字符", " ")

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