VBA中Scripting.Dictionary的Exists方法无法识别已创建键

1. 数据类型不匹配 #

Scripting.Dictionary对键的数据类型严格区分，哪怕内容看起来一致，类型不同就会被判定为不同的键。比如：

• 单元格值是数值类型（如Long），但存入字典的是字符串类型；
• 单元格是文本格式的数字（本质是字符串），而字典里的键是数值。

这种情况下umowy(1,1).Value和dict.Keys()(0)表面内容相同，但类型不同，直接导致Exists返回False。

解决办法：
存入和查询字典时，统一转换为相同类型：

' 统一转成字符串
dict.Add Key:=CStr(umowy(i, 1).Value), Item:=...
' 查询时也用字符串类型匹配
If dict.Exists(CStr(umowy(1, 1).Value)) Then ...

如果ID是纯数字，也可以统一转成数值类型：

dict.Add Key:=CLng(umowy(i, 1).Value), Item:=...
If dict.Exists(CLng(umowy(1, 1).Value)) Then ...

2. 存在隐藏/不可见字符 #

单元格内容可能包含肉眼无法识别的字符（如首尾空格、制表符vbTab、换行符vbCrLf），导致表面内容一致，实际字符串并不相等。比如umowy(1,1).Value是"123 "（末尾带空格），字典键是"123"，长度不同自然无法匹配。

解决办法：
存入和查询前先清洗数据，去除无关字符：

Dim cleanKey As String
' 去除首尾空格
cleanKey = Trim(umowy(i, 1).Value)
' 额外清除制表符、换行符等不可见字符
cleanKey = Replace(Replace(cleanKey, vbTab, ""), vbCrLf, "")
dict.Add Key:=cleanKey, Item:=...

3. 误将单元格对象作为键存入 #

如果存入字典时，直接传入Range对象而非单元格的值（比如写了dict.Add Key:=umowy(i,1), Item:=...），那么字典的键是单元格对象本身，而非单元格的内容。这时候用umowy(1,1).Value去查询，自然无法匹配。

解决办法：
确保存入字典的是单元格的Value属性（或经过处理后的值），而非单元格对象本身。

排查验证代码 #

可以用以下代码定位具体问题：

' 查看两者的数据类型
Debug.Print "单元格值类型：", TypeName(umowy(1, 1).Value)
Debug.Print "字典键类型：", TypeName(dict.Keys()(0))

' 查看两者的字符串长度（判断是否有隐藏字符）
Debug.Print "单元格值长度：", Len(umowy(1, 1).Value)
Debug.Print "字典键长度：", Len(dict.Keys()(0))

' 逐字符输出ASCII码，排查隐藏字符
Dim i As Integer
Debug.Print "单元格值ASCII码："
For i = 1 To Len(umowy(1, 1).Value)
    Debug.Print Asc(Mid(umowy(1, 1).Value, i, 1))
Next i
Debug.Print "字典键ASCII码："
For i = 1 To Len(dict.Keys()(0))
    Debug.Print Asc(Mid(dict.Keys()(0), i, 1))
Next i

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