¿Cómo encontrar filas con columnas duplicadas en Excel? [duplicar]

Tengo una hoja de cálculo grande con posibles filas duplicadas. Sin embargo, solo me importa hacer coincidir algunas de las columnas como se resalta en amarillo a continuación.

Entonces mi pregunta es: ¿cómo puedo buscar duplicados en solo columnas particulares de una fila y cuando encuentro una coincidencia, resaltarlos?

Esto hace exactamente lo que desea, en función de la captura de pantalla que ha realizado

antes de

Y después de hacer clic en el botón "resaltar los engaños"

La parte superior es el bit que puedes personalizar. En este momento, estoy viendo Col A y B, pero es posible que desee actualizar eso para ver Cols B y C o A y D, etc.

También proporcioné detalles y un enlace para afectar el color de resaltado (nuevamente, vea los comentarios en el código)

Sub HighlightDuplicates()

    Dim transparent As Integer
    transparent = -4142 

    Dim yellow As Integer
    yellow = 27 ' colour index, see http://dmcritchie.mvps.org/excel/colors.htm for more details about setting the colour

    Dim column1 As String
    column1 = "A" 'Update me if you don't want to check for dupes in the A column

    Dim column2 As String
    column2 = "B" 'Update me if you don't want to check for dupes in the B column

    Dim endOfRows As Boolean
    moreRows = True

    Dim currentCell As Integer
    currentCell = 0

    Do While (moreRows)

        currentCell = currentCell + 1

        Dim aValue As String
        Dim bValue As String

        aValue = Worksheets("Sheet1").Range(column1 & currentCell).Value
        bValue = Worksheets("Sheet1").Range(column2 & currentCell).Value

        'check it isn't already coloured
        If (Worksheets("Sheet1").Range(column1 & currentCell).Interior.ColorIndex = transparent) Then

            Dim moreInnerRows As Boolean
            moreInnerRows = True

            Dim currentInnerCell As Integer
            currentInnerCell = currentCell

            Dim isDupe As Boolean
            isDupe = False
            'Now to loop through the other rows

            Do While (moreInnerRows)
                currentInnerCell = currentInnerCell + 1

                If (Worksheets("Sheet1").Range(column1 & currentInnerCell).Value = "" And Worksheets("Sheet1").Range(column2 & currentInnerCell).Value = "") Then
                    Exit Do
                End If

                If Worksheets("Sheet1").Range(column1 & currentInnerCell).Value = aValue And Worksheets("Sheet1").Range(column2 & currentInnerCell).Value = bValue Then
                    isDupe = True
                    Worksheets("Sheet1").Range(column1 & currentInnerCell).Interior.ColorIndex = yellow
                    Worksheets("Sheet1").Range(column2 & currentInnerCell).Interior.ColorIndex = yellow

                End If

            Loop

            If (isDupe = True) Then
                'Now we mark the original row as a dupe
                Worksheets("Sheet1").Range(column1 & currentCell).Interior.ColorIndex = yellow
                Worksheets("Sheet1").Range(column2 & currentCell).Interior.ColorIndex = yellow

            End If

        End If

        If (Worksheets("Sheet1").Range(column1 & currentCell).Value = "" And Worksheets("Sheet1").Range(column2 & currentCell).Value = "") Then
            Exit Do
        End If


    Loop

End Sub

Agregaría una nueva columna y usaría la columna CONCATENAR para combinar las columnas segunda y tercera. Si su primera celda es A1, la fórmula sería:

=CONCATENATE(B1," ",C1)

Luego, desde la cinta Inicio, iría a Formato condicional / Resaltar reglas de celdas / Valores duplicados.

Aquí hay una foto del resultado final: