Excel宏：两列数据对比与差异提取

Sub Macro5()                              '比较两列数据A列和B列，将两列中相同数据输出到C列中

    Application.ScreenUpdating = False    '关闭刷屏
    On Error Resume Next                  '嵌入错误处理程序，产生错误的语句之后的语句继续执行
    
    numa = ActiveSheet.Range("A65535").End(xlUp).Row   '活动工作表A列非空单元格的行数
    numb = ActiveSheet.Range("B65535").End(xlUp).Row   '活动工作表B列非空单元格的行数
    
    Set arrayone = CreateObject("Scripting.Dictionary")     '类似于二维数组，把键和相关条目的数据存放在一起

    For i = 1 To numa
        arrayone.Add Cells(i, 1).Value, ""                  '将A列的数据存放到对象arrayone中
    Next

    Set tempone = CreateObject("Scripting.Dictionary")
    
    For Each Bval In Range(Cells(1, 2), Cells(numb, 2))     '将A列和B列的数据进行比较，把B列在A列中存在的数据存放到临时对象tempone中
        If arrayone.EXISTs(Bval.Value) = True Then
            tempone.Add Bval.Value, ""
        End If
    Next
    
    Cells(1, 3).Resize(tempone.Count, 1) = Application.Transpose(tempone.keys)    '将临时对象tempone中的数据显示在C列
    
    Set arraytwo = CreateObject("Scripting.Dictionary")
    
    For j = 1 To numb
        arraytwo.Add Cells(j, 2).Value, ""                   '将B列的数据存放到对象arraytwo中
    Next