registros duplicados en dos hojas

Hola JOAN.
Una manera de hacerlo sería con una columna auxiliar (en este ejemplo
columna B), con la fórmula:
=SI(ESERROR(COINCIDIR(A2;Hoja2!$A$2:$A$100;0));0;1) ' (en cada fila con
datos de la hoja1).
=SI(ESERROR(COINCIDIR(A2;Hoja1!$A$2:$A$100;0));0;1) ' (en cada fila con
datos de la hoja2).

Luego copias/pegas el siguiente código en un módulo VBA, el cual (al
ejecutarlo), hace lo que pides.

Sub SeparaRegistros()

Dim fila1 As Integer
Dim fila2 As Integer

' Copia los repetidos a hoja 3.
fila1 = 2 ' Hoja1.
fila2 = 2 ' Hoja3.
Do While Sheets(1).Cells(fila1, 1).Value > ""
If Sheets(1).Cells(fila1, 2) = 1 Then
Sheets(3).Cells(fila2, 1) = Sheets(1).Cells(fila1, 1)
fila2 = fila2 + 1
End If
fila1 = fila1 + 1
Loop

' Copia los no repetidos de hoja 1, a hoja 4.
fila1 = 2 ' Hoja1.
fila2 = 2 ' Hoja4.
Do While Sheets(1).Cells(fila1, 1) > ""
If Sheets(1).Cells(fila1, 2) = 0 Then
Sheets(4).Cells(fila2, 1) = Sheets(1).Cells(fila1, 1)
fila2 = fila2 + 1
End If
fila1 = fila1 + 1
Loop

' Copia los no repetidos de hoja 2, a hoja 5.
fila1 = 2 ' Hoja2.
fila2 = 2 ' Hoja5.
Do While Sheets(2).Cells(fila1, 1) > ""
If Sheets(2).Cells(fila1, 2) = 0 Then
Sheets(5).Cells(fila2, 1) = Sheets(2).Cells(fila1, 1)
fila2 = fila2 + 1
End If
fila1 = fila1 + 1
Loop

End Sub

Espero que te sirva de ayuda.
Un saludo desde Tenerife (España).