求助：比较A列和B列 ,谢谢！

a6789

求助：比较A列和B列

连续两个以上数据相同的
加原色标识，谢谢！

719404338

1. Sub t()
   
2. Dim i%, j%
   
3. For i = 2 To [a65536].End(3).Row
   
4.   For j = 2 To [b65536].End(3).Row
   
5. If Range("a" & i) = Range("b" & j) And Range("a" & i + 1) = Range("b" & j + 1) Then
   
6. Range("a" & i).Interior.ColorIndex = 6
   
7. Range("b" & j).Interior.ColorIndex = 6
   
8. Range("a" & i + 1).Interior.ColorIndex = 6
   
9. Range("b" & j + 1).Interior.ColorIndex = 6
   
10. End If
    
11. Next j, i
    
12. End Sub
    

复制代码

Chip_Kenny

1. Sub zz()
   
2. Dim d As Object, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. a = [a2:b12].Value
   
5. For i = 1 To UBound(a)
   
6.     k = a(i, 1)
   
7.     For j = i + 1 To UBound(a)
   
8.         k = k & "|" & a(j, 1)
   
9.         d(k) = ""
   
10.     Next
    
11. Next
    
12. For i = 1 To UBound(a)
    
13.     k = a(i, 2)
    
14.     For j = i + 1 To UBound(a)
    
15.         k = k & "|" & a(j, 2)
    
16.         If d.exists(k) Then
    
17.             Cells(i + 1, 2).Resize(2).Interior.Color = vbYellow
    
18.             d(k) = k
    
19.         End If
    
20.     Next
    
21. Next
    
22. t = Filter(d.items, "|")
    
23. n = 1
    
24. For Each k In t
    
25.     k = Split(k, "|")
    
26.     For i = n To UBound(a) - 1
    
27.         If a(i, 1) = Val(k(0)) And a(i + 1, 1) = Val(k(1)) Then Cells(i + 1, 1).Resize(2).Interior.Color = vbYellow
    
28.     Next
    
29. Next
    
30. End Sub

复制代码

a6789

感谢两位老师的帮助，二楼老师的可以用，三楼老师的没办法执行，谢谢两位老师！