Excel字符串比较异常：交易文件与查找表产品值视觉相等但判定不等

这种“看着完全一样，但公式/VBA死活判定不相等”的问题，我碰到过好多次，99%都是隐藏的非打印字符在搞鬼！下面给你一步步排查和解决的方法：

第一步：快速排查是否存在隐藏字符 #

先从最简单的公式入手，确认两个字符串的长度和字符编码：

• 用=LEN(C4)和=LEN(D4)对比长度，如果结果不一样，说明其中一个字符串带了额外的隐藏字符；
• 如果长度相同，再用=CODE(MID(C4, N, 1))（把N换成1、2、3...）逐个查看每个字符的ASCII编码，和D4的对应位置编码对比，就能找到差异点。比如某个位置C4返回160（不间断空格），D4返回32（普通空格），这就是问题所在！

第二步：用VBA精准定位差异字符 #

如果手动查编码太麻烦，写个小宏一键输出所有字符的编码：

Sub ListCharCodes()
    Dim targetCell As Range
    Dim i As Integer
    Set targetCell = Selection ' 选中要检查的单元格后运行
    
    Debug.Print "=== 单元格 " & targetCell.Address & " 的字符编码 ==="
    For i = 1 To Len(targetCell.Value)
        Dim charCode As Integer
        charCode = Asc(Mid(targetCell.Value, i, 1))
        Debug.Print "位置" & i & ": 编码" & charCode & " (" & Mid(targetCell.Value, i, 1) & ")"
    Next i
End Sub

分别选中C4和D4运行这个宏，打开VBA的立即窗口（Ctrl+G）就能看到每个字符的细节，差异一目了然。

第三步：针对性清除隐藏字符 #

找到问题字符后，用替换的方法清除：

用Excel公式处理 #

• 如果是不间断空格（ASCII 160）：=SUBSTITUTE(C4, CHAR(160), "")
• 如果是换行符/回车符（ASCII 10/13）：=SUBSTITUTE(SUBSTITUTE(C4, CHAR(10), ""), CHAR(13), "")
• 如果是全角空格（ASCII 12288）：=SUBSTITUTE(C4, CHAR(12288), "")
  处理后再和D4对比，应该就能返回True了。

用VBA批量处理 #

如果需要批量清理，用这个宏：

Sub CleanHiddenChars()
    Dim rng As Range
    Set rng = Selection ' 选中要处理的单元格区域
    
    For Each cell In rng
        ' 清除常见非打印字符：不间断空格、换行、回车、全角空格
        cell.Value = Replace(cell.Value, Chr(160), "")
        cell.Value = Replace(cell.Value, Chr(10), "")
        cell.Value = Replace(cell.Value, Chr(13), "")
        cell.Value = Replace(cell.Value, Chr(12288), "")
    Next cell
End Sub

额外提醒：大小写与字符串格式 #

虽然你用了StrComp，但还是确认一下：如果要忽略大小写对比，记得用StrComp(CStr(Range("C4")), CStr(Range("D4")), vbTextCompare)，第三个参数vbTextCompare会忽略大小写，而默认的vbBinaryCompare是区分大小写的。不过你的情况大概率不是这个问题，但可以作为补充排查点。

内容的提问来源于stack exchange，提问作者Nick B