excel - 删除字符串中的 Unicode 字符

Question

如何在 VBA 中删除所有不属于 ASCII 类别的特殊字符？

这些是出现在我的字符串中的一些符号。

Œ œ Š š Ÿ ƒ

这样的角色还有很多。

这些不属于 ASCII 类别，如您在此处看到的 http://www.ascii.cl/htmlcodes.htm

我尝试过这样的事情

strName = Replace(strName, ChrW(376), " ")

Answer 1

您对 RegEx 解决方案感兴趣吗？

此网站上有大量针对不同语言的示例 - 这是一个 C# 示例:How can you strip non-ASCII characters from a string? (in C#) .

尝试使用 VBA:

Private Function GetStrippedText(txt As String) As String
    Dim regEx As Object

    Set regEx = CreateObject("vbscript.regexp")
    regEx.Pattern = "[^\u0000-\u007F]"
    GetStrippedText = regEx.Replace(txt, "")

End Function