Excel VBA：识别两个Scripting Dictionary中的非共有元素

嘿，这个需求我刚好处理过，给你分享个清晰的实现思路和代码～

先明确需求 #

你需要找出两个字典中互相不存在的元素：

• Dictionary1独有的元素（即不在Dictionary2里的键值对）：对应你的例子就是{'a':1, 'b':2}
• Dictionary2独有的元素（即不在Dictionary1里的键值对）：对应你的例子就是{'e':5, 'f':6}

前期准备：引用Scripting Dictionary #

在VBA里使用Dictionary，有两种方式：

• 前期绑定：打开VBA编辑器后，点击工具→引用，勾选Microsoft Scripting Runtime，这样可以获得代码提示，写起来更顺手
• 后期绑定：直接用CreateObject("Scripting.Dictionary")创建对象，不需要添加引用，适合要分享给其他人的代码

核心函数：获取单个方向的差异 #

先写一个通用函数，用来获取「A字典中不在B字典里的元素」，这样我们可以分别调用两次得到双向差异：

' 前期绑定版本
Function GetDictionaryDifference(dictA As Scripting.Dictionary, dictB As Scripting.Dictionary) As Scripting.Dictionary
    Set GetDictionaryDifference = New Scripting.Dictionary
    Dim key As Variant
    
    ' 遍历A字典的所有键，筛选出不在B字典中的键值对
    For Each key In dictA.Keys
        If Not dictB.Exists(key) Then
            GetDictionaryDifference.Add key, dictA(key)
        End If
    Next key
End Function

如果需要同时检查键和值的差异（比如键存在但值不一样的情况），可以修改函数逻辑：

Function GetDictionaryDifferenceWithValues(dictA As Scripting.Dictionary, dictB As Scripting.Dictionary) As Scripting.Dictionary
    Set GetDictionaryDifferenceWithValues = New Scripting.Dictionary
    Dim key As Variant
    
    For Each key In dictA.Keys
        ' 两种情况都算差异：键不存在，或者键存在但值不同
        If Not dictB.Exists(key) Or dictB(key) <> dictA(key) Then
            GetDictionaryDifferenceWithValues.Add key, dictA(key)
        End If
    Next key
End Function

完整测试示例 #

用你给出的字典例子来测试，代码如下：

Sub CompareTwoDictionaries()
    Dim dict1 As Scripting.Dictionary
    Dim dict2 As Scripting.Dictionary
    Dim diffDict1 As Scripting.Dictionary ' dict1独有的元素
    Dim diffDict2 As Scripting.Dictionary ' dict2独有的元素
    
    ' 初始化第一个字典
    Set dict1 = New Scripting.Dictionary
    dict1.Add "a", 1
    dict1.Add "b", 2
    dict1.Add "c", 3
    dict1.Add "d", 4
    
    ' 初始化第二个字典
    Set dict2 = New Scripting.Dictionary
    dict2.Add "c", 3
    dict2.Add "d", 4
    dict2.Add "e", 5
    dict2.Add "f", 6
    
    ' 获取双向差异
    Set diffDict1 = GetDictionaryDifference(dict1, dict2)
    Set diffDict2 = GetDictionaryDifference(dict2, dict1)
    
    ' 输出结果到立即窗口（按Ctrl+G打开查看）
    Debug.Print "=== Dict1独有的元素 ==="
    Dim key As Variant
    For Each key In diffDict1.Keys
        Debug.Print key & ": " & diffDict1(key)
    Next key
    
    Debug.Print vbNewLine & "=== Dict2独有的元素 ==="
    For Each key In diffDict2.Keys
        Debug.Print key & ": " & diffDict2(key)
    Next key
End Sub

运行这个宏后，立即窗口会输出：

=== Dict1独有的元素 ===
a: 1
b: 2

=== Dict2独有的元素 ===
e: 5
f: 6

后期绑定版本（无需添加引用） #

如果不想添加引用，把函数和变量类型改成Object即可：

Function GetDictionaryDifferenceLateBinding(dictA As Object, dictB As Object) As Object
    Set GetDictionaryDifferenceLateBinding = CreateObject("Scripting.Dictionary")
    Dim key As Variant
    
    For Each key In dictA.Keys
        If Not dictB.Exists(key) Then
            GetDictionaryDifferenceLateBinding.Add key, dictA(key)
        End If
    Next key
End Function

对应的测试宏里，字典初始化改成：

Set dict1 = CreateObject("Scripting.Dictionary")
Set dict2 = CreateObject("Scripting.Dictionary")

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