Excel应用实践25： 找出两个单元格区域中不相同的数据

Sub GetDifferentItems()
    '字典对象变量
    Dim dict1 As Object
    Dim dict2 As Object
    '单元格对象变量
    Dim rngA As Range
    Dim rngC As Range
    Dim rngFind As Range
    Dim rng As Range
   
    '创建字典
    Set dict1 =CreateObject("scripting.dictionary")
    Set dict2 =CreateObject("scripting.dictionary")
   
    '赋值要比较的两个单元格区域
    Set rngA =Worksheets("Sheet1").Range("A1:A10")
    Set rngC =Worksheets("Sheet1").Range("C1:C10")
   
    '比较并将不同的值存储在字典中
    For Each rng In rngA
        Set rngFind =rngC.Find(What:=rng.Value)
        If rngFind Is Nothing Then
            dict1.Add rng.Value, rng.Value
        End If
    Next rng
   
    '比较并将不同的值存储在字典中
    For Each rng In rngC
        Set rngFind = rngA.Find(What:=rng.Value)
        If rngFind Is Nothing Then
            dict2.Add rng.Value, rng.Value
        End If
    Next rng
   
    '输出列A中有但列C中没有的项
    With dict1
        Range("B1").Resize(.Count, 1)= Application.Transpose(.Items)
    End With
   
    '输出列C中有但列A中没有的项
    With dict2
        Range("D1").Resize(.Count, 1)= Application.Transpose(.Items)
    End With
   
    '释放变量
    Set rngFind = Nothing
    Set dict1 = Nothing
    Set dict2 = Nothing
End Sub