按条件匹配

wpf543625851

按条件匹配并标颜色，望大佬们多多指教下！

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, j, k, row, t
  Application.ScreenUpdating = False
  [b:b].Interior.ColorIndex = xlNone
  row = Cells(Rows.Count, "a").End(xlUp).row
  For i = 2 To row
    For j = i To row
      If Cells(j, "a") <> Cells(j + 1, "a") Then
        If j - i > 0 Then
          t = Cells(i, "b")
          For k = i + 1 To j
            If Cells(k, "b") <> t Then Cells(k, "b").Interior.Color = vbYellow
          Next
        End If
        i = j: Exit For
      End If
  Next j, i
  Application.ScreenUpdating = True
End Sub

一把小刀闯天下

代码审核中，先练打字吧，哈哈哈

fyure

1. Sub aa()
   
2. Dim arr
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. arr = UsedRange
   
5. For i = 2 To UBound(arr)
   
6. If Not dic.exists(arr(i, 1)) Then
   
7.   dic(arr(i, 1)) = arr(i, 2)
   
8. Else
   
9.   If arr(i, 2) <> dic(arr(i, 1)) Then Cells(i, 2).Interior.ColorIndex = 6
   
10. End If
    
11. Next
    
12. End Sub

复制代码

wpf543625851

fyure 发表于 2018-9-19 13:54

谢谢，可以用，厉害啊

wpf543625851

一把小刀闯天下 发表于 2018-9-19 13:49
Option Explicit

Sub test()

谢谢，可以用哈