删除来自Sharepoint列表的无效字符

Question

我通过在MS Excel中插入表来链接Sharepoint列表。该表中的某些单元格值包含我在VBA调试器中看到的无效字符，或者如果我将单元格值复制到Notepad ++，则使用问号进行可视化。我尝试过使用正则表达式，如下面的表达式，但没有成功。 任何有关这个问题的见解将不胜感激 亲切的问候

Function SpecialReplace(ByVal Txt As String) As String
    Dim Rg As Object     
    Set Rg = CreateObject("vbscript.RegExp")
    With Rg
        .Pattern = "[0-9a-zA-Z]"
        .Global = True
        SpecialReplace = "A" & .Replace(Txt, "")
    End With
    Set Rg = Nothing
End Function

Answer 1

解决方案很简单：

.Pattern = "[^0-9a-zA-Z]"

GL与VBA斗争！