根据多个条件突出显示重复值

Question

我正在尝试根据4个条件突出显示重复值。如下面的快照所示，如果 Emp ID，Group ID，Department Name 和 Emp_Name 在列中存在多个，则需要突出显示Emp_Name。 / p>

我只需要宏而不是公式，因为数据可能会超过 100K 我试过这个code但是无法根据需要对其进行编辑而我，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