comparar dos columnas

Habrá otras formas de hacerlo, pero se me ocurre lo siguiente:

Copia en la columna D esta formula:

=SI(CONTAR.SI($A$1:$B$5;A1)>1;"";"No esta en columna B")

Te saldran los que no estan repetidos de la columna A en la columna B

y Copias esta otra formula en la columna E:

=SI(CONTAR.SI($A$1:$B$5;B1)>1;"";"No esta en columna A")

Te saldran los que no estan repetidos de la columna B en la Coumna A

Luego Creas un Filtro en "No esta en la columna A o B", copias del
autofiltro y le das a pegar en una sola celda de la columna C, y quitas
el autofiltro y ahí los tienes.

-
SAludos
www.fermu.com

Puede que esto te sirva. Lo encontre por ahi y parece interesante.
Supongo que podras adaptarlo.

Sub Macro1()
'
' Macro1 Macro
' Comparar columnas
'
c = InputBox("Indique la columna / fila a comparar:", "Columna selección y
fila")
Range(c).Select

' Inicia la comparacion de datos en las celdas contiguas a la derecha
f = 1
n =Asc(Mid$(c, 1, 1))

MsgBox n

Do Until ActiveCell.Cells(f, Chr(n)).Value = ""
depaso = ActiveCell.Cells(f, Chr(n)).Value
If ActiveCell.Cells(f, Chr(n)).Value <> ActiveCell.Cells(f, Chr(n +
1)).Value Then ActiveCell.Cells(f, Chr(n + 2)).Value = depaso
f = f + 1
Loop
End Sub

Saludos de Gavillas.

Hola amigos, tengo una pequeñita duda con la formula a gastar...
...quiero comparar dos columnas A y B, y que la columna C muestre todos

los

valores que no estan repetidos en las dos columnas A y B.
Es decir, si en la columna A tengo 1,2,3,4 y 5., en la columna B tengo
2,1 y 4., quiero que en la columna C me saque el 3 y 5 .
Muchas gracias de antemano, y muy agradecido por su ayuda.
Un abrazo.

Puede que esto te sirva. Lo encontre por ahi y parece interesante.
Supongo que podras adaptarlo.

Sub Macro1()
'
' Macro1 Macro
' Comparar columnas
'
c = InputBox("Indique la columna / fila a comparar:", "Columna selección y
fila")
Range(c).Select

' Inicia la comparacion de datos en las celdas contiguas a la derecha
f = 1
n =Asc(Mid$(c, 1, 1))

MsgBox n

Do Until ActiveCell.Cells(f, Chr(n)).Value = ""
depaso = ActiveCell.Cells(f, Chr(n)).Value
If ActiveCell.Cells(f, Chr(n)).Value <> ActiveCell.Cells(f, Chr(n +
1)).Value Then ActiveCell.Cells(f, Chr(n + 2)).Value = depaso
f = f + 1
Loop
End Sub

Saludos de Gavillas.