Diccionario deduplicación vba

Dar ejemplos.

Por ejemplo, hay una tabla como se muestra a continuación:

Es necesario eliminar los valores duplicados después de sacar los nombres en la columna A y luego enviarlos a la columna C. ..

Paso 1: Haga clic en Herramientas de desarrollo-visual basic. Seleccione la hoja1 e ingrese el siguiente código:

El subnombre a copiar ()

dim jgArr (1 a 100)

zz = 0

Papel("Papel1"). Crear actividad

set ZD = CreateObject("scripting . Dictionary")

hh = 2

Hacer mientras Cell(hh, 1)<& gt" "

si no es zd.exists(cell(hh,1).text) entonces

zd. Agregue la celda (hh,1). texto, zz

zz = zz + 1

jgArr(ZZ) = celda(hh, 1). Texto

Terminará si...

hh = hh + 1

Anillo

Resultado de salida

Rango ("c2:c100000"). Borrar contenido

Para i = 1 a zz

celdas(2+I-1,3) = jgArr(I)

Siguiente i

Finalizar ajuste

Paso 2: haga clic en Macro y seleccione Eliminar macro duplicada. Como se muestra en la figura:

Haga clic para ejecutar, el resultado es como se muestra en la siguiente figura: