Cómo quitar duplicados en Excel Macro

Una entrada duplicada en Microsoft Excel es una entrada en una columna o fila que coincide con otras entradas en la misma columna o fila. Es posible que desee eliminar estas entradas duplicadas para reforzar seguridad de los datos , pero no se puede hacer de forma manual , especialmente si usted tiene cientos de celdas de datos . Desafortunadamente, si usted está trabajando en Microsoft Office Excel , en particular Excel 2002 y Excel 2003 , la eliminación de entradas duplicadas en columnas o filas automáticamente no es obvio . Instrucciones
Crear una macro para quitar primera columna duplicados
1

Vaya a Herramientas en la barra de herramientas y hacia Macro . A la derecha , busque el Editor de Visual Basic y haga clic izquierdo en él. Una vez en el Editor de Visual Basic, encontrar el desplegable que le permite crear un formulario de usuario , Módulo o Módulo de clase . Seleccione la opción " Módulo ".
2

Copia y pega el siguiente en el cuadro de edición que se abre: DelDups_OneList Sub ( ) iListCount As IntegerDim TPIR As Integer ' Apague la actualización de pantalla para acelerar macro.Application . ScreenUpdating = False 'Get recuento de los registros para buscar through.iListCount = Sheets (" Sheet1" ) Range (" A1: A100 ") . . Rows.CountSheets ( "Sheet1 ") Range (" A1") Select. . ' Loop hasta Hasta finales de records.Do ActiveCell = " 'Recorrer records.For TPIR = 1 Para iListCount ' " No se puede comparar contra ti mismo . ' Para especificar una columna diferente , cambian 1 a la columna number.if ActiveCell.Row <> Sheets (" Sheet1" ) . Células (TPIR , 1 ) . Fila entonces " hacer la comparación del próximo expediente de la ActiveCell.Value = Hojas ( "Sheet1 ") . células (TPIR , 1 ) . Valor entonces ' Si es cierto partido elimine row.Sheets ( "Sheet1 ") . células (TPIR , 1 ) . eliminar xlShiftUp ' Incrementa contador para contabilizar row.iCtr borrado = TPIR + 1End IfEnd IfNext TPIR " Ir al siguiente record.ActiveCell.Offset ( 1 , 0). SelectLoopApplication.ScreenUpdating = TrueMsgBox " Hecho ! "End Sub
3

Haga clic en" archivo " y luego en " Cerrar y volver a Microsoft Excel ". Una vez devuelto a Excel , vaya a la opción Herramientas en la barra de herramientas y luego Macros. A la derecha , seleccione la opción " Macros " . En el cuadro de opción Macro , vea la macro llamada DelDups_OneList . Seleccione "Opciones" y asignar una tecla de acceso directo de la " q ". Haga clic en " Aceptar".

4 Haga clic en " Ejecutar". "Hecho" aparecerá. Se borran las entradas duplicadas en la primera columna.
5

Porque ha establecido su tecla de acceso directo para Ctrl + q , sólo tiene que pulsar Ctrl + q en el futuro y las entradas duplicadas en su se eliminará primera columna de datos.