1
 Abra la hoja de datos en Excel. 
 2 
 Pulse " Alt" y " F11 " para abrir el Editor de Visual Basic . 
 
 3 
 Seleccione la ficha "Insertar " de la barra de herramientas superior y selecciona 
 4 
 Pega el siguiente código en el cuadro que aparece "Módulo ". : " Option Explicit 
 < p > Sub DeleteDups () 
 
 x As LongDim LASTROW As Long 
 
 LASTROW = Range (" A65536 ") . End ( xlUp ) . RowFor x = LASTROW Para 1 Aplicación Paso 1 Si . ( Range (" A1: A". & x ) Range (" A" & x ) texto) WorksheetFunction.CountIf . > 1 ThenRange ("A" & x ) EntireRow.DeleteEnd IfNext x 
 
 End Sub " 
 5 
 Cierre la ventana haciendo clic en la " X "en la esquina superior derecha. 
 6 
 Prueba la función mediante la adición de datos a columna A. Duplicar algunos de los datos a propósito . 
 7 
 Seleccione " Macros " de la barra de herramientas superior y selecciona " DeleteDups " y presionar " Enter". 
 
 
          
