Tema: Quitar valores duplicados excel 2007

[marta]

Hola chicos,

Tengo un pequeño problema que ya no sé que hacer más.

Me he pasado todos mis contactos de varias cuentas de e-mail en un csv, que luego las he pasado a un excel 2007, tengo muchas personas repetidas y es bastante costoso eliminarlas una a una.

He intentado varias cosas como eliminar duplicados y filtros avanzados, sólo registros únicos y no ha habido manera. En eliminar duplicados, se han eliminado unos pocos, pero aún quedan bastantes. Todos los contactos los tengo en una columna, sólo e-mail y acabados con ;.

Alguien sabe dónde está el error??

Gracias

[Mr_X]

Hola, bienvenida

Podrías crear una macro para que lo haga, algo como:

Código: [Seleccionar]

Sub Comparar()
Dim sTexto1 As String
Dim sTexto2 As String
Dim i As Integer
Dim j As Integer
Dim iFila As Integer

iFila = 1
Do While Cells(iFila, 1) <> ""
iFila = iFila + 1
Loop

Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

j = 1
For i = 1 To iFila
    j = i + 1
    sTexto1 = Cells(i, 1)
    sTexto2 = Cells(j, 1)
        If sTexto1 = sTexto2 Then
            Cells(j, 1) = Null
        End If
Next

Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub


[MClaud]

Hola Marta, bienvenida al foro
Siempre vas a encontrar mas de una forma de resolver un problema, podrias sortear tus contactos en orden alfabetico y colocar una formula en una columna que haga la comparación

=si(C5=C4,"duplicado","")

copia la formula en la columna de comparación y apareceran los duplicados señalados