Foros de daboweb
GENERAL, ayuda informatica, trucos, problemas, internet, messenger, software, programas, solidaridad, P2P => Foro general - Internet - Trucos - Redes - Ayuda informatica - Software - Programas => Mensaje iniciado por: marta en 16 de Diciembre de 2008, 11:32:03 am
-
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 ;)
-
Hola, bienvenida
Podrías crear una macro para que lo haga, algo como:
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
-
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