Cómo eliminar datos duplicados en una columna en Excel usando VBA
1. Abra la tabla para el procesamiento de datos,
2. Presione ALT+f11 para ingresar a la página de ejecución del programa VBE,
3. Haga clic derecho con el mouse como se muestra en la imagen.
4. Seleccione Insertar módulo.
5. p>
Sub test()
Atenuar d como objeto
Atenuar r%, i%
Atenuar arr
Establecer d = CreateObject( "scripting.
Con hojas de trabajo("hoja1")
r = .Cells(.Rows.Count, 3).End(xlUp).Row
arr = .Range("c2:d" & r)
Para i = 1 a UBound(arr)
d.RemoveAll
Para j = 1 To Len(arr(i, 1))
ch = Mid(arr(i, 1), j, 1)
d(ch) = ""
Siguiente
arr(i, 2) = Unirse(d.Keys, "")
Siguiente
.Range(" d2"). Resize(UBound(arr), 1) = Application.Index(arr, 0, 2)
Finalizar con
Fin Sub
6 Presione la tecla F5, ejecute el código y luego regrese a la hoja de trabajo; encontrará que los caracteres duplicados en las celdas se han eliminado
.