Cómo quitar duplicados de Excel

Escrito por kenny soward | Traducido por cesar daniel gonzález ménez
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cómo quitar duplicados de Excel
(Jupiterimages/Comstock/Getty Images)

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 quieras eliminarlas para reforzar la seguridad de tus datos, pero esto no se puede hacer manualmente, especialmente si tienes cientos de células de datos. Desafortunadamente, si estás trabajando en Microsoft Office Excel, en particular en Excel 2002 y 2003, la eliminación de entradas duplicadas en las columnas o filas automática no es evidente.

Nivel de dificultad:
Moderado

Otras personas están leyendo

Instrucciones

    Crea una macro para eliminar los duplicados de la primera columna

  1. 1

    Ve a "Herramientas" en la barra de herramientas y busca "Macro". A la derecha, encontrarás el Editor de Visual Basic y haz clic izquierdo en éste. Ya en el Visual Basic Editor, busca la lista desplegable que te permita crear un formulario de usuario, Módulo o Módulo de clase. Selecciona la opción "Módulo".

  2. 2

    Copia y pega lo siguiente en el cuadro de edición que se abre: Sub DelDups_OneList() Dim iListCount As Integer Dim iCtr As Integer ' Turn off screen updating to speed up macro. Application.ScreenUpdating = False ' Get count of records to search through. iListCount = Sheets("Sheet1").Range("A1:A100").Rows.Count Sheets("Sheet1").Range("A1").Select ' Loop until end of records. Do Until ActiveCell = "" ' Loop through records. For iCtr = 1 To iListCount ' Don't compare against yourself. ' To specify a different column, change 1 to the column number. If ActiveCell.Row <> Sheets("Sheet1").Cells(iCtr, 1).Row Then ' Do comparison of next record. If ActiveCell.Value = Sheets("Sheet1").Cells(iCtr, 1).Value Then ' If match is true then delete row. Sheets("Sheet1").Cells(iCtr, 1).Delete xlShiftUp ' Increment counter to account for deleted row. iCtr = iCtr + 1 End If End If Next iCtr ' Go to next record. ActiveCell.Offset(1, 0).Select Loop Application.ScreenUpdating = True MsgBox "Done!" End Sub

  3. 3

    Haz clic en "Archivo" y luego "Cerrar y volver a Microsoft Excel". Una vez que hayas regresado a Excel, ve a la opción "Herramientas" en la barra de herramientas y luego a Macros. A la derecha, selecciona la opción "Macros". En el cuadro de opción de "Macro", consulta la macro llamada DelDups_OneList. Selecciona "Opciones" y asigna una tecla de acceso directo a "q". Haz clic "Aceptar".

  4. 4

    Haz clic en "Ejecutar". Aparecerá "Listo". Las entradas duplicadas en la primera columna se habrán eliminado.

  5. 5

    Debido a que configuraste tu tecla de acceso directo a las teclas Ctrl + Q, sólo tienes que pulsar Ctrl + Q en el futuro y las entradas duplicadas en su primera columna de datos se eliminarán.

Consejos y advertencias

  • Los otros códigos de macro buscan duplicados o eliminan las filas duplicadas. Ve los Recursos más adelante para obtener enlaces a los códigos de macro.
  • Ya que trabajas con una macro que elimina los datos, haz una copia de tu documento de Excel antes de aplicar la macro.

No dejes de ver

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles