Cómo leer datos únicos en una columna de datos en una matriz usando EXCEL VBA

'Utilice el diccionario para eliminar duplicados. El siguiente es un código de muestra para eliminar duplicados en la primera columna. Sub Test() 'Utilice el diccionario para eliminar duplicados. La característica del diccionario es que los valores clave. ​​no se puede repetir

Dim Dic, Arr

Dim i As Integer, r As Integer

Dim Str As String

r = Sheet1.Range("A65536").End( xlUp).Row

Si r = 1 Then Exit Sub 'Si no hay datos en la primera columna, salga del programa

Set Dic = CreateObject("scripting.dictionary") 'Crea un objeto de diccionario

For i = 1 To r 'Agrega la primera columna de datos al valor clave del diccionario

Dic(CStr(Cells(i, 1))) = ""

Siguiente

Arr = Dic.keys 'Devuelve una matriz de claves del diccionario

Set Dic = Nothing 'Destruye el objeto

Str = Join(Arr , ","") 'Muestra el contenido de la matriz como una cadena

MsgBox Str

Fin Sub