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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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