如何在VBA中实现两个数值列表求差集，提取A中不在B内的元素

该需求等价于R语言中的setdiff(A, B)函数效果，VBA没有内置差集方法，用字典实现是性能最高的方案，大小数组都适用。

实现逻辑 #

• 用字典存储列表B的所有元素，利用字典Key的唯一性实现O(1)时间复杂度的存在性判断
• 遍历列表A的元素，筛选出不在字典中的元素存入结果列表C

完整可运行代码 #

Sub GetArrayDifference()
    ' 定义原始数组，对应你给出的示例
    Dim arrA As Variant, arrB As Variant
    arrA = Array(2, 4, 6, 8, 9)
    arrB = Array(4, 6, 9)
    
    ' 创建字典对象
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 将B数组元素存入字典
    Dim i As Long
    For i = LBound(arrB) To UBound(arrB)
        If Not dict.Exists(arrB(i)) Then
            dict.Add arrB(i), vbNullString
        End If
    Next
    
    ' 筛选A中不在B里的元素
    Dim arrC As Variant, resCount As Long
    ReDim arrC(LBound(arrA) To UBound(arrA))
    resCount = LBound(arrA)
    For i = LBound(arrA) To UBound(arrA)
        If Not dict.Exists(arrA(i)) Then
            arrC(resCount) = arrA(i)
            resCount = resCount + 1
        End If
    Next
    
    ' 裁剪结果数组，去除多余空位
    If resCount > LBound(arrA) Then
        ReDim Preserve arrC(LBound(arrA) To resCount - 1)
    Else
        arrC = Array() ' 无差集时返回空数组
    End If
    
    ' 测试输出结果，示例会弹出{2,8}
    Dim outputStr As String
    For i = LBound(arrC) To UBound(arrC)
        outputStr = outputStr & arrC(i) & ","
    Next
    If Len(outputStr) > 0 Then outputStr = Left(outputStr, Len(outputStr) - 1)
    MsgBox "差集结果C = {" & outputStr & "}"
End Sub

使用说明 #

• 如果你的数值列表存储在Excel单元格区域，将arrA = Array(...)替换为arrA = 你的区域.Value即可，区域是单列的话遍历索引无需调整
• 代码用CreateObject创建字典，不需要提前添加引用，所有版本Excel都可以直接运行
• 处理字符串元素时，需要区分大小写保持默认配置即可，不区分大小写可在创建字典后添加一行dict.CompareMode = vbTextCompare

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