Cómo eliminar datos duplicados de una columna usando VBA
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 objetoDesenfocar 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.