Eliminas filas repetidas memos una

Prueba con el siguiente procedimiento:

Const intNúmCol As Integer = 1 'Se procesará la columna A

Sub BorrarDuplicados()
Dim wksH As Worksheet
Dim lngContFila As Long
Set wksH = Worksheets("Hoja1") 'Hoja que se procesará

lngContFila = 1 'Si hay títulos tendrá que ser 2

While Not IsEmpty(wksH.Cells(lngContFila, intNúmCol))
If Application.WorksheetFunction.CountIf(wksH.Columns(intNúmCol), wksH.Cells(lngContFila, intNúmCol)) > 1 Then
wksH.Cells(lngContFila, intNúmCol).EntireRow.Delete
Else
lngContFila = lngContFila + 1
End If
Wend

Set wksH = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Franco" escribió en el mensaje news:

Hola a todos
Si alguien me ayuda:
en excel tengo 10000 filas, el la columna A se encuentra codigos repetidos,
necesito eliminar todos los codigos repetidos MENOS UNO (debo dejar una fila
del codigo)