Macro para comparar dos columnas

Con esta macro si la tienes instalada en tu cinta de opciones conseguiras a golpe de dos cliks comparar dos columnas creandote un informe con las lineas que no coinciden.

Código de la macro:

Sub CompararColumnas()

Dim ColumnaUno As Range
Dim ColumnaDos As Range
Dim RangoInforme As Range
Dim Celda As Range
Dim vEncontrado As Variant
Dim NumValores As Double

On Error GoTo Errores

Set ColumnaUno = Application.InputBox(«Elige la primera matriz a comparar», «Excel y Finanzas», Type:=8)
Set ColumnaDos = Application.InputBox(«Elige la segunda matriz a comparar», «Excel y Finanzas», Type:=8)
Set RangoInforme = Application.InputBox(«Elige la celda donde quieres el informe», «Excel y Finanzas», Type:=8)

Errores:
If Err.Number = 424 Then
Exit Sub
Else
End If

On Error Resume Next

For Each Celda In ColumnaUno

     vEncontrado = ColumnaDos.Find(Celda.Value, LookIn:=xlValues, lookat:=xlWhole)

     If vEncontrado = "" Then
        If RangoInforme.Value = "" Then
            RangoInforme.Value = "No existen en la" & VBA.vbNewLine & "segunda columna"
            RangoInforme.Offset(1, 0).Value = Celda.Value
            RangoInforme.AutoFit
            Celda.Interior.ColorIndex = 14
            Celda.Font.ColorIndex = 2
        Else
            RangoInforme.End(xlDown).Offset(1, 0).Value = Celda.Value
            Celda.Interior.ColorIndex = 14
            Celda.Font.ColorIndex = 2
        End If
     Else
     End If

Next Celda

If RangoInforme = "" Then
    MsgBox "Los datos de la primera matriz respecto a la segunda estan todos", vbInformation + vbOKOnly, "Excel y Finanzas"
Else
    NumValores = Range(RangoInforme, RangoInforme.End(xlDown)).Rows.Count - 1
    MsgBox "Hay " & NumValores & " elementos que no coinciden en la primera matriz respecto la segunda", vbInformation + vbOKOnly, "Excel y Finanzas"
End If

End Sub