Valores únicos sin duplicados en columna Excel

Compatibilidad:

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

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.

Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada Pulsar la tecla F11. Mostrará el editor de Visual Basic.
Ir a: Barra de Menú Insertar Módulo. Mostrará la ventana del módulo donde escribimos la macro.
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.
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

Ejecutar la macro: DatosUnicos.
Verificar como en la columna F se muestran los valores únicos sin duplicados.

Nivel de dificultad:

Excel Experto VBA - Macros

Un comentario en “Valores únicos sin duplicados en columna Excel”