Compara elementos repetidos de dos columas.

    Variación de la macro buscar elementos repetidos en dos columnas de nuestro curso.

        Public Sub Repetidos()
            Range("B1").Select
            posicion = 1
            While ActiveCell.Value <> ""
                valorcomparacion = ActiveCell.Value
                Range("a1").Select
                Salir = "no"
                While ActiveCell.Value <> "" And Salir = "no"
                    If ActiveCell.Value = valorcomparacion Then
                        RESPUESTA = MsgBox("¿Deseas borrar esta entrada?", 4, "¡¡Encontrado!!")
                        If RESPUESTA = vbYes Then
                            Selection.Delete shift:=xlUp
                        End If
                    Else
                        ActiveCell.Offset(1, 0).Range("A1").Select
                    End If
                Wend
                Salir = "si"
                posicion = posicion + 1
                Range("b1").Select
                ActiveCell.Offset(posicion - 1, 0).Range("a1").Select
            Wend
        End Sub

Macro enviada por: Petter.

[INDICE LECCIONES]