如何替换特殊字符?

How to replace an special character?

我正在开发一个 excel vba 宏,它可以打开一些文件,但我 运行 遇到了问题,一些文件有特殊字符,我无法复制它以便能够为了进行替换,我什至试图找到 ASCII 码,但它向我抛出与普通 space 相同的代码,我只能在 MS Word 中看到它。

小圆圈是特殊字符:

您可以识别Word中的字符:

Sub PrintASCII()
    s = Selection.Text
    For i = 1 To Len(s)
        Debug.Print Asc(Mid(s, i, 1))
    Next
End Sub

用法:select 符号和 运行 这个子。查看 VBE Immediate window

中的输出

输出

 95 
 95 
 95 
 95 
 160 
 95 
 95 
 95 
 95 
 95 
 13