vba两集合的交、并、补集

有两列数据A、B，求出A有B没有、B有A没有、AB都有、AB的合集：



用VBA是的字典来做：

Sub 字典法()

Dim arr1()

arr1 = Range("A2:b31").Value

Set d = CreateObject("Scripting.Dictionary")

For i = 1 To UBound(arr1)

    d(arr1(i, 1)) = 1

Next

For j = 1 To UBound(arr1)

    d(arr1(j, 2)) = d(arr1(j, 2)) + 2

Next

ReDim arr1(1 To d.Count, 1 To 4)

i = 0: j = 0: l = 0

For Each d1 In d.keys

    If d(d1) = 1 Then  'A有B没有

        j = j + 1

        arr1(j, 1) = d1

    ElseIf d(d1) = 2 Then  'B有A没有

        l = l + 1

        arr1(l, 2) = d1

    Else                            'AB都有

       i = i + 1

       arr1(i, 3) = d1

    End If

    r = r + 1

    arr1(r, 4) = d1          'AB的合集

Next

Range("d2").Resize(d.Count, 4) = arr1

End Sub