vba - 如何编写 vba 代码来删除和替换 UTF8 字符

Question

我有这段代码，但我似乎仍然无法用简单的“占位符”替换数据中的非英语字符，例如越南语或泰语。

Sub NonLatin()
Dim cell As Range
    For Each cell In Range("A1", Cells(Rows.Count, "A").End(xlUp))
        s = cell.Value
            For i = 1 To Len(s)
                If Mid(s, i, 1) Like "[!A-Za-z0-9@#$%^&* * ]" Then cell.Value = "placeholder"
            Next
    Next
End Sub

感谢您的帮助

Answer 1

您可以替换 e 之外的任何字符。 G。使用以下代码的带有占位符的 ASCII 范围(前 128 个字符):

Option Explicit

Sub Test()

    Dim oCell As Range

    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^u0000-u00F7]"
        For Each oCell In [A1:C4]
            oCell.Value = .Replace(oCell.Value, "*")
        Next
    End With

End Sub