Como puedo eliminar celdas duplicadas en una tabla de excel

10/09/2004 - 10:51 por Rafa | Informe spam
Tengo una tabla con un montón de registros de los cuales se repiten bastantes
y quisiera eliminar todos los repetidos, me imagino que se podrá utilizar
alguna sentencia if, del o algo parecidoagradecería cualquier tipo
de ayuda.

un saludo

Rafa
 

Leer las respuestas

#1 Héctor Miguel
10/09/2004 - 11:36 | Informe spam
hola, Rafa !

... tabla con un monton de registros ... se repiten bastantes ... eliminar todos los repetidos [...]



la siguiente macro elimina ->toda la fila<- de los elementos 'repetidos'
[suponiendo que el rango del listado 'inicia' en 'A1']
si cualquier duda o informacion 'adicional'... ¿comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Eliminar_Repetidos()
Dim Repetidos As String, Fila As Long
With Range(Range("a1"), Range("a65536").End(xlUp))
For Fila = 1 To .Rows.Count
If Application.CountIf(Range("a1:a" & Fila), .Cells(Fila)) > 1 Then
If Repetidos <> "" Then Repetidos = Repetidos & ","
Repetidos = Repetidos & .Cells(Fila).Address
End If
Next
End With
If Repetidos <> "" Then Range(Repetidos).EntireRow.Delete
End Sub

Preguntas similares