Fórmula o macro para comparar listados

[Eduar Ch P]

Cordial saludo.
Diariamente debo comparar listados de empresas y eliminar las duplicadas, para lo cual utilizo las funciones índice y coincidir, pero éstas fórmulas detectan o señalan las celdas repetidas que son exactamente iguales. Lo que necesito es una fórmula o macro que realice la comparación y, si encuentra al menos una o dos palabras de una celda, repetidas en el otro listado, las señale o lo indique.

NOTA: El detalle está en que algunas empresas pueden estar en ambos listados pero varíe un poco el nombre; por ejemplo: "EP Market Corp" y "EP Market" por ello no es del todo efectivo las fórmulas que mencioné al comienzo.

Agradezco su colaboración.

[Israel Cassales]

En base a lo explicado participo con la siguiente recomendación. Podrías considerar el uso de una macro que pueda buscar palabras individuales en las celdas y compararlas con las palabras en las celdas de otro listado.

Aquí te dejo un ejemplo de cómo podría ser esta macro considerando una Hoja1 y un rango A1:A100 y B1:B100

Sub BuscarCoincidencias()
    Dim rngA As Range, rngB As Range
    Dim celdaA As Range, celdaB As Range
    Dim palabra As Variant

    ' AYUDA EXCEL: Definir los rangos de las celdas que contienen los nombres de las empresas
    Set rngA = Worksheets("Hoja1").Range("A1:A100")
    Set rngB = Worksheets("Hoja1").Range("B1:B100")

    ' AYUDA EXCEL: Recorrer cada celda en el rango A
    For Each celdaA In rngA
        ' AYUDA EXCEL: Dividir el contenido de la celda en palabras
        palabras = Split(celdaA.Value, " ")

        ' AYUDA EXCEL: Recorrer cada palabra
        For Each palabra In palabras
            ' AYUDA EXCEL: Recorrer cada celda en el rango B
            For Each celdaB In rngB
                ' AYUDA EXCEL: Si la celda B contiene la palabra, marcar la celda A
                If InStr(1, celdaB.Value, palabra, vbTextCompare) > 0 Then
                    celdaA.Interior.Color = RGB(255, 0, 0)
                    Exit For
                End If
            Next celdaB
        Next palabra
    Next celdaA
End Sub

Por favor considera que debes personalizar porque es un ejemplo en base a lo explicado, siempre es recomendable adjuntar un archivo de ejemplo para evitar ambigüedades.

Saludines

 

[Israel Cassales]

El libro donde hice pruebas

AYUDA EXCEL.xlsb