[已解决]数据对比

guolianjd · 发表于 2015-10-4 11:02

本帖最后由 guolianjd 于 2015-10-4 11:03 编辑

表2为正确数据，找出表1与表2（组名称、人员名称、性别、身份证号）中的不对的数据（只要有一个条件不符都显示高亮）。

数据对比.rar (36.98 KB, 下载次数: 10)

蓝桥玄霜 · 发表于 2015-10-4 11:57

Sub lqxs()
Dim Arr, i&, d, Brr, x$
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Sheet1.Activate
Arr = Sheet2.[a1].CurrentRegion
For i = 2 To UBound(Arr)
If Not IsError(Arr(i, 3)) Then x = Arr(i, 1) & "|" & Arr(i, 2) & "|" & Arr(i, 3) & "|" & Arr(i, 4): d(x) = ""
Next
[a1].CurrentRegion.Interior.ColorIndex = xlNone
Brr = [a1].CurrentRegion
For i = 3 To UBound(Brr)
x = Brr(i, 3) & "|" & Brr(i, 5) & "|" & Brr(i, 9) & "|" & Brr(i, 7)
If Not d.exists(x) Then Cells(i, 1).Resize(1, 12).Interior.ColorIndex = 6
Next
Application.ScreenUpdating = True
End Sub

复制代码

baksy · 发表于 2015-10-4 12:29

附件

guolianjd · 发表于 2015-10-4 13:01

baksy 发表于 2015-10-4 12:29
附件

谢谢，可以实现，能不能做到假如身份证不对，就身份证单元高亮，姓名不对就姓名单元高亮？

guolianjd · 发表于 2015-10-4 13:02

蓝桥玄霜发表于 2015-10-4 11:57

谢谢版主，可以实现，能不能做到身份证不对，就身份证单元高亮，姓名不对就姓名单元高亮？

baksy · 发表于 2015-10-4 13:46

附件

guolianjd · 发表于 2015-10-4 15:18

baksy 发表于 2015-10-4 13:46
附件

性别不对时，高亮不在性别单元格显示，在户主关系单元格显示，代码复制过来了，高亮不知怎么做的

baksy · 发表于 2015-10-4 15:39

guolianjd 发表于 2015-10-4 15:18
性别不对时，高亮不在性别单元格显示，在户主关系单元格显示，代码复制过来了，高亮不知怎么做的

已更正

guolianjd · 发表于 2015-10-4 17:10

baksy 发表于 2015-10-4 15:39
已更正

搞定，谢谢你的耐心解答

		自动登录	找回密码
密码			注册