|
改进代码,详细核对:
Sub zz()
Dim d1, d2, ar, br
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
ar = Sheet2.Range("C2:I" & Sheet2.[h6536].End(3).Row)
br = Sheet1.UsedRange
For i = 1 To UBound(ar)
d1(ar(i, 7)) = ar(i, 1) & "," & ar(i, 6)
Next
For i = 2 To UBound(br)
d2(br(i, 5)) = br(i, 6) & "," & br(i, 24)
Next
For Each k In d1.keys
If d2.exists(k) Then
Cells(2 + n, 1).Resize(1, 2) = Split(d1(k), ",")
Cells(2 + n, 3) = k
If d1(k) = d2(k) Then
Cells(2 + n, 4) = "全部匹配"
Else
Cells(2 + n, 4) = "不匹配"
End If
Cells(2 + n, 5).Resize(1, 2) = Split(d2(k), ",")
If Cells(2 + n, 1) <> Cells(2 + n, 5) Then Cells(2 + n, 1).Interior.ColorIndex = 3
If Cells(2 + n, 2) <> Cells(2 + n, 6) Then Cells(2 + n, 2).Interior.ColorIndex = 3
End If
n = n + 1
Next
End Sub
|
|