Excel - Eliminar tola la fila si aparecen rpetidos en una fila

   
Vista:

Eliminar tola la fila si aparecen rpetidos en una fila

Publicado por JONATHAN PINALES jonathanpinales@yahoo.com.mx (89 intervenciones) el 22/11/2012 05:54:47
Saludos a todos en el foro

Tengo el siguiente codigo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub repetidos()
Application.ScreenUpdating = False
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
x = WorksheetFunction.CountIf(Range("A:A"), ActiveCell)
If x > 1 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub


Lo que hace es eliminar todos los renglones si aparecen repetidos en la columna "A"
Tiene la limitaión de que si la celda tiene más de 255 caracteres ya no la lee

¿Existe alguna manera de mejorarla para que si las lea y elimine las repetidas?

Nuevamenre reitero mis agradecimientos

Jonathan
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder