Red de conocimiento informático - Aprendizaje de programación - Cómo eliminar datos duplicados en una columna en Excel usando VBA

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

.