Excel: Eliminar valores duplicados

  • Para eliminar valores repetidos de una columna hay que hacer lo siguiente:
  • Parte de una lista con valores duplicados en una columna.
  • Presiona las teclas Alt + F11 y luego doble click en:

excel1.gif

  • En el editor de texto escribe el siguiente código:

Sub EliminarDuplicados()

Columns(1).EntireColumn.Insert
Range(“B1″, Range(“B65536″).End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(“A1″), Unique:=True
Columns(2).EntireColumn.Delete

End Sub

 Nota: El valor 1 debe corresponder al nº de columna que contiene el listado. El valor 2 debe coincidir con el de otra columna que esté vacía, y además, la letra de estas referencias: “B1″, Range(“B65536″) debe coincidir con esa columna libre.

  • Cierra el editor.
  • Presiona las teclas Alt + F8 y escoge la macro que hemos generado EliminarDuplicados y ejecútala.
  • Los valores duplicados se eliminarán.
About these ads

12 respuestas a Excel: Eliminar valores duplicados

  1. Miguel dice:

    No funciona a la perfeccion cuando se tienen muchos datos.

  2. christhian dice:

    Hola, estuve leyendo sobre crear la macro pero la verdad estuve haciendo la prueba, no soy experto en programacion, pero nose si podria ser posible que me envies un modelo de excel para tener la idea de como crear la macro. en verdad te lo agradesco.
    Mi correo es ul_20011568@hotmail.com

  3. Marcelo dice:

    Tiene errores el código…no compila

  4. Aitor dice:

    Los errores son las comillas, que mete otros caracteres al copiar, poner las comillas y problema solucionado.

  5. JORGE ROJAS dice:

    SELECCIONA LA COLUMA QUE CONTIENE VALORES DUPLICADOS, EJECUTA LA MACRO Y LISTO……………………………………………

    Sub EliminarDuplicados()

    Selection.EntireColumn.Insert
    Selection.Offset(0, 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Selection, Unique:=True
    Selection.Offset(0, 1).EntireColumn.Delete

    End Sub

  6. Luis Cruz dice:

    Modifique el codigo, con esto no importa donde esta tu columna, te colocas en una celda y la macro toma esa columna.

    Sub EliminarDuplicados()

    Dim ColA As String
    Dim colb As String

    Dim NumColA As Long
    Dim NumColb As Long

    ColA = Chr(ActiveCell.Column + Asc(“A”) – 1)
    colb = Chr(ActiveCell.Column + Asc(“A”))

    NumColA = ActiveCell.Column
    NumColb = NumColb + 1

    Columns(NumColA).EntireColumn.Insert
    Range(colb & “1″, Range(colb & “65536″).End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(ColA & “1″), Unique:=True
    Columns(NumColb).EntireColumn.Delete

    End Sub

  7. Luis Cruz dice:

    Si les da error, es por que las comillas las cambia el foro, deber poner comillas dobles.

  8. horacio dice:

    Hola, si pueden y quieren ayudarme, necesito una macro o formula que me elimine valores repetidos entre dos columnas, es decir, si en A1 tengo 1, A2 tengo 3 y en B1 tengo 5 y en B5 tengo 1 que me elimine el 1 que pertenece a A1 y B5.Gracias

    Horacio R.

  9. Jorge dice:

    busque por todos lados y nada me resultaba hasta ahora la primera opción con la macro me resulto de maravillas, muchas gracias

  10. Matias dice:

    Es mas facil ordenar la lista alfabeticamente para que junte los casilleros repetidos.
    Luego en la columna de al lado indique los repetidos con esta formula =SI(B4=B5;”-”;”repetido”)

    Y luego pones un autofiltro y elegis todos los que digan repetido, y luego le das borrar.
    Y borra solo los repetidos

  11. srbans007 dice:

    Como se ponen las comillas dobles ???

  12. novato dice:

    ColA = Chr(ActiveCell.Column + Asc(“A”) – 1)

    me da fallo aquí, y no es por las comillas

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Seguir

Recibe cada nueva publicación en tu buzón de correo electrónico.

%d personas les gusta esto: