如何找出两个工作表中不同的姓名？

傻二少

如何利用vba分别从sheet1中找出sheet2不存在姓名，从sheet2中找出sheet1中不存在姓名，并用红色显示出来？（只对两表中代码为1的姓名进行比较，代码为1的人数要自动判断）
请各位帮帮忙？

wpxxsyzx

试一下，可以吗

陈国华

赵刚老师昨天已经给出了代码，好像升级后给丢了

1. Sub Macro1()
   
2.     Dim d(1 To 2) As Object, arr(1 To 2), i&, l&, t
   
3.     For l = 1 To 2
   
4.         Set d(l) = CreateObject("scripting.dictionary")
   
5.         arr(l) = Sheets(l).[a1].CurrentRegion
   
6.         For i = 2 To UBound(arr(l))
   
7.             If arr(l)(i, 1) = 1 Then d(l)(arr(l)(i, 2)) = i
   
8.         Next
   
9.     Next
   
10.     For i = 2 To UBound(arr(1))
    
11.         If arr(1)(i, 1) = 1 Then
    
12.             If d(1).Exists(arr(1)(i, 2)) And d(2).Exists(arr(1)(i, 2)) Then
    
13.                 d(1).Remove (arr(1)(i, 2))
    
14.                 d(2).Remove (arr(1)(i, 2))
    
15.             End If
    
16.         End If
    
17.     Next
    
18.     For l = 1 To 2
    
19.         With Sheets(l)
    
20.             .[b:b].Interior.ColorIndex = xlNone
    
21.             t = d(l).Items
    
22.             For i = 0 To UBound(t)
    
23.                 .Cells(t(i), 2).Interior.ColorIndex = 3
    
24.             Next
    
25.         End With
    
26.     Next
    
27. End Sub

复制代码

panan123_0

正在学习字典。正好拿来学习下。
哈哈 我正好能看懂。叫我自己写还真写不出。依葫芦画瓢先。

傻二少

谢谢各位热心帮助

Blackra1n

学会一招{:soso_e113:}

lcjy11185

这也非常不错，多表内查找相同的。经常要用到，作个记号!