Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Eliminar tola la fila si aparecen rpetidos en una fila

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

Volver
Nuevo Tema
<<>>
 
Vista:
Mensajes realizados anteriormente (No estaban la última vez que entraste)Eliminar tola la fila si aparecen rpetidos en una fila
JONATHAN PINALES (22/11/2012 05:54:47)1.193 visitas
0 respuesta
sin imagen de perfil

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