Виділити дубльовані значення на основі кількох критеріїв - excel, excel-vba, vba

Я намагаюся виділити повторювані значення на основі 4 критеріїв. Як показано на знімку нижче, мені потрібно виділити Emp_Name, якщо Ідентифікатор Emp, ідентифікатор групи, назва відділу і Emp_Name існує більше, ніж один у стовпці.

Мені потрібна лише макрос, а не формула, оскільки дані можуть перевищувати більше 100К Я спробував це код але не в змозі відредагувати його як потрібно, і я так заплутався, як це зробити.

Будь ласка, допоможіть мені :)

Відповіді:

Оскільки ви шукаєте макрос, це має розпочати роботу. Він використовує вкладений цикл для порівняння кожного рядка з кожним іншим рядком.

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