根據多個條件突出顯示重複值

Question

我想突出顯示基於4條件的重複值。如下面所示扣，我需要突出EMP_NAME，如果的Emp ID，組ID，部門名稱和EMP_NAME都存在一個以上的在列。

我只需要宏沒有公式，因爲數據可能會超過超過100K我想這code但無法按要求和I，M很困惑該怎麼辦呢對其進行編輯。

請幫我:)

Answer 1

既然你正在尋找一個宏，這應該讓你開始。它使用一個嵌套for循環來比較每一行到每一行。

Sub FormatDuplicates() 

    Dim LastRow As Integer, LoopCounter As Integer, LoopCounter2 As Integer 

    With ActiveSheet 
    LastRow = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 
     If LoopCounter > 1 Then 
      For LoopCounter = 2 to LastRow 
       For LoopCounter2 = 2 to LastRow 
        If Not LoopCounter = LoopCounter2 Then 
         If .Range("A" & LoopCounter & ":D" & LoopCounter) = _ 
         .Range("A" & LoopCounter2 & ":D" & LoopCounter2) Then 

          ' Apply formatting here to .Range("A" & LoopCounter & 
          ' ":D" & LoopCounter) 

          Exit For 
         End If 
        End If 
       Next 
      Next 
     End If 
    End With 

End Sub