如何判断VBA字典指定键的项等于给定值且不新增键值对

问题根因 #

VBA的Scripting.Dictionary存在默认行为：直接通过dict(key)语法访问不存在的键时，会自动将该键插入字典，对应Item默认赋值为空，这就是直接取值比较后字典凭空多出键值对的原因。

正确实现逻辑 #

核心规则：对不确定是否存在的键，必须先调用Exists()方法校验存在性，再取值比较，禁止直接访问dict(key)。
可封装为通用判断函数：

Function IsItemEqual(dict As Object, checkKey As Variant, compareVal As Variant) As Boolean
    ' 键不存在直接返回False，全程不会触发新增键逻辑
    If Not dict.Exists(checkKey) Then
        IsItemEqual = False
        Exit Function
    End If
    ' 确认键存在后再取值比较，无新增键风险
    IsItemEqual = (dict(checkKey) = compareVal)
End Function

测试验证 #

执行以下测试代码，判断完成后字典会保持初始空状态，不会新增多余键：

Sub TestDictCheck()
    Dim dict As Object, testKey As String, testVal As String
    Set dict = CreateObject("Scripting.Dictionary")
    testKey = "demoKey"
    testVal = "Hello"
    
    dict.RemoveAll
    MsgBox dict.Exists(testKey) ' 弹出False，确认字典初始为空
    
    MsgBox IsItemEqual(dict, testKey, testVal) ' 弹出False，键不存在不匹配
    MsgBox dict.Exists(testKey) ' 仍然弹出False，字典无新增键，符合要求
End Sub

注意事项 #

• 不要用错误捕获（On Error Resume Next）绕开Exists校验：部分版本的Dictionary对象即使取值报错，也会在后台完成不存在键的插入，依旧会污染字典内容。
• 你贴出的最后一段测试代码中dict.Exists(keys)属于笔误（多写了末尾的s），实际返回True是因为之前直接访问dict(key)时已经自动插入了该键。

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