여러 기준에 따라 중복 값 강조 표시

Question

4 가지 기준에 따라 중복 값을 강조 표시하려고합니다. 아래 스냅에 표시된 것처럼 Emp ID, 그룹 ID, 부서 이름 및 Emp_Name이 둘 이상의 열에 존재하는 경우 Emp_Name을 강조 표시해야합니다. 데이터 이상 100K을 초과 할 수 있기 때문에

나는 내가 code 필수 사항은 내가, 그것을 수행하는 방법에 혼란스러워 해요로 편집 할 수없는이 시도 만 매크로하지 수식이 필요합니다. 매크로를 찾고 있기 때문에

:

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