Eliminar tola la fila si aparecen rpetidos en una fila
Publicado por JONATHAN PINALES (89 intervenciones) el 22/11/2012 05:54:47
Saludos a todos en el foro
Tengo el siguiente codigo:
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
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 ThenActiveCell.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
0