Sto cercando di evidenziare i valori duplicati in base a 4 criteri. Come mostrato nello snap di seguito, ho bisogno di evidenziare Emp_Name, se il ID ID, ID gruppo, Nome reparto e Emp_Name esistono più di uno nella colonna.
Ho bisogno solo di macro non formula, dato che i dati potrebbero eccedere più di 100K ho provato questo codice ma non riesco a modificarlo come richiesto e io, sono così confuso come farlo.
Per favore aiutatemi :)
risposte:
0 per risposta № 1Dato che stai cercando una macro, questo dovrebbe iniziare: utilizza un ciclo annidato per confrontare ogni riga con ogni altra riga.
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