求帮忙：Excel中两列数据比较并输出不同的地方

liudong54634

由于数据多，想做一个数据比较。一个Excel中比较A系统和B系统的人名，把在A系统但不在B系统的名字和对应的部门重新在新列中列出来，同样把在B系统但不在A系统的名字和对应的部门也在新列中列出来。

我写了一些，太菜弄不来，对比也不全，输出的部门和名字也不一一对应，求大神帮看看，

iwangyi

有虹膜无定位
Sub CC()
Set D = CreateObject("SCRIPTING.DICTIONARY")
ARR = [C3:D23]
BRR = [F3:G33]
For I = 1 To UBound(BRR)
D(BRR(I, 1)) = BRR(I, 2)
Next
For J = 1 To UBound(ARR)
If Not D.EXISTS(ARR(J, 1)) Then
K = K + 1
Cells(K, "O") = ARR(J, 1): Cells(K, "P") = ARR(J, 2)
End If
Next
End Sub

iwangyi

有定位无虹膜       
将刚才ARR 与BRR数组对调

wdx223

高级筛选就可以实现

一把小刀闯天下

'跟你的示例结果不一样

Option Explicit

Sub test()
  Dim arr, brr, m, dic
  Set dic = CreateObject("scripting.dictionary")
  arr = Range("c3:d" & Cells(Rows.Count, "c").End(xlUp).Row)
  brr = Range("f3:g" & Cells(Rows.Count, "f").End(xlUp).Row)
  ReDim crr(1 To Rows.Count, 1 To 2) As String
  Call fc(arr, brr, crr, dic, "l3")
  Call fc(brr, arr, crr, dic, "i3")
End Sub

Function fc(arr, brr, crr, dic, rng)
  Dim i, j, m
  dic.RemoveAll
  For i = 1 To UBound(arr, 1)
    dic(arr(i, 1) & arr(i, 2)) = vbNullString
  Next
  For i = 1 To UBound(brr, 1)
    If Not dic.exists(brr(i, 1) & brr(i, 2)) Then
      m = m + 1
      crr(m, 1) = brr(i, 1): crr(m, 2) = brr(i, 2)
    End If
  Next
  With Range(rng)
    .Resize(Rows.Count - 2, 2).ClearContents
    If m > 0 Then .Resize(m, 2) = crr
  End With
End Function

liudong54634

一把小刀闯天下 发表于 2018-8-10 11:53
'跟你的示例结果不一样

Option Explicit

谢谢大神帮助，我还想问下，能不能把虹膜系统中不在虹膜系统人员名单在输出的时候一起把对应人员的工号和卡号两列里的数据一起列出来？

liudong54634

一把小刀闯天下 发表于 2018-8-10 11:53
'跟你的示例结果不一样

Option Explicit

谢谢你的代码，满足了我的要求，我还想问下，在输出结果的时候，能不能把对应的工号和卡号一起输出出来