Excell

16/12/2005 - 22:20 por Dani | Informe spam
Hola!
Tengo una dudilla, hemos exportado una dbf de clientes a excel y son unos
1500,con sus datos personales, dni's o cifs, pero varios de ellos estan
repetidos o bien incompletos. Existe alguna manera de que Excell busque y
borre aquellos que estan repetidos?

Un saludo y gracias,
Dani

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
17/12/2005 - 21:54 | Informe spam
hola, Dani !

... hemos exportado una dbf de clientes a excel y son unos 1500 con sus datos personales, dni's o cifs
pero varios de ellos estan repetidos o bien incompletos.
Existe alguna manera de que Excel busque y borre aquellos que estan repetidos?



te expongo una macro de ejemplo al final... solo haria falta 'saber' cual/es de los repetidos se borran o no -???-
[por aquello de cuales estan 'completos' o no] :)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=la siguiente macro es [o 'debiera ser'] +/- rapidita, con alguna que otra 'ventaja' como:
-> no es 'relevante' si los datos estan ordenados o no
-> modificar un solo 'dato' para la columna o fila 'de partida'
-> usar la funcion de hoja de calculo contar.si [no toma en cuenta si son mayusculas/minusculas]
en un modulo de codigo 'normal' ==Sub Eliminar_Repetidos()
Dim Repetidos As Range, Col As String, F1 As Long, Fx As Long, Fila As Long
Col = "b"
F1 = 2
Fx = Range(Range(Col & F1), Range(Col & "65536").End(xlUp)).Rows.Count
For Fila = F1 To Fx + F1 - 1
If Application.CountIf(Range(Col & F1 & ":" & Col & Fila), Range(Col & Fila)) > 1 Then
If Repetidos Is Nothing Then Set Repetidos = Range(Col & Fila)
Set Repetidos = Union(Repetidos, Range(Col & Fila))
End If
Next
If Repetidos Is Nothing Then Exit Sub
Repetidos.EntireRow.Delete
Set Repetidos = Nothing
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida