Eliminar repetido "duda"

jhonnymn3 · el 11 de febrero

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

si tengo:

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

Antoni · el 11 de febrero

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