Valores únicos sin duplicados en columna Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2019Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010

De una columna podemos obtener sus valores únicos sin duplicados mediante una sencilla macro.

Valores únicos sin duplicados de columna Excel

En la columna A disponemos de diferentes países como el origen de datos para obtener sus valores únicos sin repetidos sobre la columna F.

Datos Excel con valores repetidos
 
  • CREAR MACRO
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

    Explorador de Proyectos con módulo1 seleccionado
  4. Escribir el código de la macro:

    Sub DatosUnicos()

    Dim origen As Variant, Dic_objeto As Object, fila As Long

    Range("F:F").Clear
    origen = Range("A:A")

    Set Dic_objeto = CreateObject("Scripting.Dictionary")

    For fila = 1 To UBound(origen)
    Dic_objeto(origen(fila, 1)) = 0
    Next

    Range("F1").Resize(Dic_objeto.Count) = WorksheetFunction.Transpose(Dic_objeto.Keys)

    End Sub

    Range("A:A"). Es la columna con valores repetidos.
    Range("F:F") y Range("F1"). Hace referencia a la columna donde mostrar los valores únicos.

  5. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

 
  • EJECUTAR MACRO
  1. Ejecutar la macro: DatosUnicos.

  2. Verificar como en la columna F se muestran los valores únicos sin duplicados.

Columna F con valores sin repetidos de la columna A
Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.