Colección de citas famosas - Slogan de motivación - Cómo eliminar datos duplicados de una columna usando VBA

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.