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 'Opcional 'Application.ScreenUpdating = True End Sub Cómo funciona Se recorre toda la columna A en busca de valores repetidos, cuando encuentra uno, elimina la fila completa y así va recorriendo todo el rango hasta llegar a la última celda. Eliminar duplicados excel para mac 2011. ![]() Para los trabajos de la universidad. Best Buy te ofrece los mejores paquetes de antivirus, paquetería office, windows 10, office 365, corel draw.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |