Macro para buscar celdas iguales y colocarlas en el la columna siguiente

H o l a:

Te anexo la macro para las diferencias

Sub Diferencias()
'Por.Dante Amor
    u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    If u < 3 Then u = 3
    Range("E3:L" & u).ClearContents
    '
    cd = 3 'cajas diferencia
    cn = 3 'cajas no existen en c
    For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
        Set b = Columns("C").Find(Cells(i, "A"), lookat:=xlWhole)
        If Not b Is Nothing Then
            If Cells(i, "B") * -1 <> Cells(b.Row, "D") Then
                Cells(cd, "I") = Cells(i, "A")
                Cells(cd, "J") = Cells(i, "B")
                Cells(cd, "K") = Cells(i, "A")
                Cells(cd, "L") = Cells(b.Row, "D")
                cd = cd + 1
            End If
        Else
            Cells(cn, "E") = Cells(i, "A")
            Cells(cn, "F") = Cells(i, "B")
            cn = cn + 1
        End If
    Next
    '
    cn = 3 'madera no existen en A
    For i = 3 To Range("C" & Rows.Count).End(xlUp).Row
        Set b = Columns("A").Find(Cells(i, "C"), lookat:=xlWhole)
        If b Is Nothing Then
            Cells(cn, "G") = Cells(i, "C")
            Cells(cn, "H") = Cells(i, "D")
            cn = cn + 1
        End If
    Next
    MsgBox "Fin"
End Sub

':)
':)