Excel 两个列表的唯一成员

我用它来查看哪些客户已添加到我们的客户列表中，哪些客户已离开，按月查看

它获取两个列表，然后输出两个列表的唯一和公共成员。也许有更好的方法可以做到这一点，但逻辑很简单，很容易遵循，而且似乎有效。e、 g

A B A. B AB
1. 3. 1. 5. 三,

二, 4. 2. 6. 四,

三, 五,

四, 六,

---

有没有更有效的方法来达到同样的效果，可能是使用字典？

不是作为一个问题来提问，而是寻找其他输入。我在搜索时找不到这个，可能还有其他人需要它，所以我发布了它。我用它来逐月查看哪些客户已添加到我们的客户列表中，哪些客户已离开。有没有更有效的方法实现同样的目标？可能用字典吗？

Option Base 1

Sub UniqueMembersOfTwoLists()

Dim arrOne() As Variant  
Dim arrTwo() As Variant  
Dim AB() As Variant  
ReDim AB(0 To 0) As Variant  
Dim A_Only() As Variant  
ReDim A_Only(0 To 0) As Variant  
Dim OnlyInListB() As Variant  
ReDim OnlyInListB(0 To 0) As Variant

Dim lrOne As Long  
Dim lrTwo As Long

Dim r1 As Range  
Dim r2 As Range  
Dim i As Long  
Dim test As Variant  
Dim g As Boolean

‘Dim ms As String  
‘ if needed  
‘ms = "Put list 1 in column A starting in A1, put list 2 in column B staring B1"  
‘MsgBox ms  

lrOne = Range("A65336").End(xlUp).Row  
lrTwo = Range("B65336").End(xlUp).Row

Set r1 = Range((Cells(1, 1)), (Cells(lrOne, 1)))  
Set r2 = Range((Cells(1, 2)), (Cells(lrTwo, 2)))

arrOne = r1  
arrTwo = r2

‘simple check to see if each member of list B is in List A  
For Each Element In arrTwo  
    test = Element  
    g = contained(arrOne, test)  

    If g = True Then  
        ' means is a member of both lists, add to common members list  
        ReDim Preserve AB(0 To UBound(AB) + 1)  
        AB(UBound(AB)) = test

    Else
        ‘means only in list A, so add to A only  
        ReDim Preserve A_Only(0 To UBound(A_Only) + 1)    
        A_Only(UBound(A_Only)) = test

    End If

Next Element

‘ then repeat the other way round to find only in list B  

For Each w In arrOne  
    test = w  
    g = contained(arrTwo, test)  

    If g = True Then  
        ' means is a member of both lists, already added so do nothing  
    Else  
        ReDim Preserve OnlyInListB(0 To UBound(OnlyInListB) + 1)  
        OnlyInListB(UBound(OnlyInListB)) = test  
    End If  

Next w

' out put to sheet  

For i = 1 To UBound(AB)  
    Cells(i, 5).Value = AB(i)  
Next i  
i = 1  

For i = 1 To UBound(A_Only)  
    Cells(i, 4).Value = A_Only(i)  
Next i  
i = 1  

For i = 1 To UBound(OnlyInListB)  
    Cells(i, 3).Value = OnlyInListB(i)  
Next i  
i = 1  

‘ tidy up

Rows("1:1").Select  
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove  
Range("A1").Select  
ActiveCell.FormulaR1C1 = "List A"  
Range("B1").Select  
ActiveCell.FormulaR1C1 = "List B"  
Range("C1").Select  
ActiveCell.FormulaR1C1 = "Only in List A"  
Range("D1").Select  
ActiveCell.FormulaR1C1 = "Only in List B"  
Range("E1").Select  
ActiveCell.FormulaR1C1 = "In both A & B"  
Rows("1:1").Select  
Selection.Font.Bold = True      
Cells.Select  
Cells.EntireColumn.AutoFit  

End Sub

Function contained(arr() As Variant, test As Variant)  
Dim i As Long  
Dim a As Variant  
Dim g As Boolean  
g = False  

For i = 1 To UBound(arr)  
    a = arr(i, 1)  
    If a = test Then  
        g = True  
        Exit For  
    Else  
    End If  
Next i  

contained = g  

End Function