如何替换特殊字符?
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
我正在开发一个 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