Vba para eliminar duplicados

Para eliminar duplicados en Vba, considere usar un diccionario.

Subbotón 1_Click()

establecer d = CreateObject(" scripting . diccionario ")

Establecer Rng = Ninguno

arr = [ a1]. Área actual

Aplicar. ScreenUpdating = False

Para j = 1 a UBound(arr)

Si d.exists(arr(j,1)), entonces

Si Rng qué Ninguno

Establecer Rng = Celdas(j, 1)

Otro

Establecer Rng = Unión(Rng, Celdas(j, 1))

Terminará si...

Otros

d(arr(j, 1)) = " "

Terminará si.. .

p>

Siguiente j

Si no es Rng, nada es entonces Rng. Eliminar todas las

aplicaciones. ScreenUpdating = True

Conector final

Datos antes de ejecutar el código

Después de ejecutar el código, solo se conservan los elementos únicos.