Excel看不见的问号

Question

我已将系统中的信息提取到 Excel 文件中。名称“Leone”看起来相同，但 Excel 识别它的方式不同。

莱昂内

​莱昂内

字符串的长度不一样，如果我用VBA检查该值是不可见的？是第一个字符。

你能帮我如何摆脱隐形字符吗？

Answer 1

要摆脱所有不可见的？你可以尝试这个。

Sub CleanUnicode()
    Dim n As Long, strClean As String, strChr As String
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet3")  'change Sheet3 to data sheet
    For Each cel In ws.Range("A1:A10")      'change A1:A10 to working range
        strClean = cel.Value
        For n = Len(strClean) To 1 Step -1
            strChr = Mid(strClean, n, 1)
            If AscW(strChr) = 8203 Then     '? is unicode character 8203
                strClean = Replace(strClean, strChr, "")
            End If
        Next
        cel.Value = WorksheetFunction.Trim(strClean)
    Next cel
End Sub

除了 If AscW(strChr) = 8203 Then，您还可以使用 If AscW(strChr) > 255 Then。

编辑1:根据@YowE3K的建议。假设要替换的单元格中只有 Unicode 8203。

Sub CleanUnicode()
    Dim n As Long, strClean As String, strChr As String
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet3")  'change Sheet3 to data sheet
    For Each cel In ws.Range("A1:A10")      'change A1:A10 to working range
        cel.Value = Replace(cel.Value, ChrW(8203), "")
    Next cel
End Sub

从 here 得到这个.