複数の基準に基づく重複値の強調表示

Question

重複する値を4つの基準に基づいて強調表示しようとしています。以下のスナップに示すように、のEmp ID、グループID、部門名およびのEmp_Nameが列に複数存在する場合は、Emp_Nameを強調表示する必要があります。

データは、私はこのcodeを試みたが、必要に応じてそれを編集することができないと私は、それを行うにはどのように混乱してメートル以上100Kを超える場合がありますので、私は、唯一のマクロでない式を必要としています。

私を助けてください:)

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