如何在VBA中比较两个Dictionary的差异并输出不同项？

没问题，我来帮你搞定这个VBA字典对比的需求！不用数组完全可以实现，咱们直接通过遍历字典的键来完成值的对比，下面是完整的代码和详细说明：

完整实现代码 #

Sub CompareDictionaries()
    Dim BeginningData As Object
    Dim EndingData As Object
    Dim key As Variant
    
    ' 初始化两个字典（后期绑定，无需手动引用库）
    Set BeginningData = CreateObject("Scripting.Dictionary")
    Set EndingData = CreateObject("Scripting.Dictionary")
    
    ' 示例数据填充（你可以替换成自己的数据源）
    BeginningData.Add "John Doe", "111111111"
    BeginningData.Add "Jane Jones", "222222222"
    BeginningData.Add "Bob Smith", "333333333"
    
    EndingData.Add "John Doe", "111111111"
    EndingData.Add "Jane Jones", "444444444"
    EndingData.Add "Bob Smith", "333333333"
    
    ' 遍历第一个字典的所有键
    For Each key In BeginningData.Keys
        ' 先确认当前键在第二个字典中存在
        If EndingData.Exists(key) Then
            ' 对比两个字典中该键对应的值
            If BeginningData(key) <> EndingData(key) Then
                ' 按照你要求的格式输出结果到立即窗口
                Debug.Print key & " is " & BeginningData(key) & " in the first dictionary, but is " & EndingData(key) & " in the second dictionary"
            End If
        Else
            ' 可选：处理键仅存在于第一个字典的情况（不需要可以删除这段）
            Debug.Print key & " exists only in the first dictionary, value: " & BeginningData(key)
        End If
    Next key
    
    ' 可选：遍历第二个字典，检查仅存在于第二个字典的键（不需要可以删除这段）
    For Each key In EndingData.Keys
        If Not BeginningData.Exists(key) Then
            Debug.Print key & " exists only in the second dictionary, value: " & EndingData(key)
        End If
    Next key
End Sub

关键逻辑说明 #

• 遍历键：用For Each key In [字典名].Keys直接遍历字典的键集合，完全不需要数组，这是VBA字典最常用的遍历方式。
• 存在性检查：用EndingData.Exists(key)确保我们只对比两个字典都包含的键，避免出现“键不存在”的运行时错误。
• 值对比与输出：当两个字典对应键的值不同时，严格按照你要求的格式输出内容，示例中运行后会在立即窗口输出：Jane Jones is 222222222 in the first dictionary, but is 444444444 in the second dictionary。
• 兼容性处理：代码用的是后期绑定创建字典（CreateObject("Scripting.Dictionary")），不需要手动在VBA编辑器中引用Microsoft Scripting Runtime库，在不同电脑上运行更省心。

可选调整 #

如果你需要忽略键的大小写（比如把"jane jones"和"Jane Jones"视为同一个键），可以在初始化字典后添加这行代码：

BeginningData.CompareMode = vbTextCompare
EndingData.CompareMode = vbTextCompare

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