Cómo eliminar datos duplicados de una columna usando VBA

1. Abrir el formulario para el tratamiento de datos.

2. Presione ALT f11 para ingresar a la página de operación del programa VBE.

3. Mueva el botón derecho del mouse hacia abajo para que aparezca, como se muestra en la figura.

4. Seleccione Insertar-Módulo,

5. Mueva el mouse hacia la derecha y escriba el siguiente código:

Subtest()

<. p> Mostrar d como objeto

Desenfocar r,i

Dim Organizar

set d = CreateObject("scripting . Dictionary")

con hoja("hoja1")

r =. Celda (Filas.Recuento, 3). final (xlArriba). fila

arr =. range("C2:d"&r)

Para i = 1 al límite inferior (arr)

d. Eliminar todo

para j = 1 a Len. (arr(I,1))

ch = Medio(arr(I,1),j,1)

d(ch)=""

Entonces

arr(I, 2) = Unirse(d. Keys, "")

Entonces

. rango("d2"). cambiar tamaño(UBound(arr), 1) = aplicación. Índice (arr, 0, 2)

Termina en

Conector final

6. Presione F5 para ejecutar el código y regresar a la hoja de trabajo. Verá que se han eliminado los caracteres duplicados en las celdas.