Saltar al contenido
jhonnymn3

Eliminar repetido "duda"

Recommended Posts

Hola tengo una duda con esto, como hago para eliminar registros repetidos pero sin mantener ninguno es decir.

si tengo:

A

A

A

B

C

Me borre todos los A y me mantenga B y C.

Esto tengo hasta ahora.

Sub borrar_repetidos()
Worksheets("inicio").Activate
Application.ScreenUpdating = False
Range("C3").Select
Do While Not IsEmpty(ActiveCell)
x = WorksheetFunction.CountIf(Range("C:C"), ActiveCell)
If x > 1 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("C1").Select
Application.ScreenUpdating = True
End Sub

 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Prueba así:

Sub EliminarTodosLosRepetidos()
Application.ScreenUpdating = False
For x = Range("C" & Rows.Count).End(xlUp).Row To 4 Step -1
   Set celda = Columns("C").Find(Range("C" & x), , , xlWhole)
   If Not celda.Address = Range("C" & x).Address Then
      Range(celda.Row & ":" & Range("C" & x).Row).EntireRow.Delete
      x = Range("C" & Rows.Count).End(xlUp).Row + 1
   End If
Next
End Sub

 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Crear una cuenta o conéctate para comentar

Necesitas ser usuario para poder dejar un comentario

Crear una cuenta

Registrarse para una nueva cuenta en nuestra comunidad. ¡Es fácil!

Registrar una nueva cuenta

Conectarse

¿Ya tienes una cuenta? Conéctate aquí.

Conéctate ahora

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.