Excel conserva valores únicos. La columna A tiene valores duplicados. ¡La columna B tiene valores diferentes! ¡Elimine los datos duplicados en la columna A!

La explicación es la siguiente:

1. Datos originales:

Hay datos duplicados en la columna A.

2. Ubicación del código

Haga clic derecho en el botón Eliminar y seleccione la macro especificada.

Introduce el código que se muestra a continuación.

3. Contraseña

¿Sub? Button1_Click()

Aplicar. ¿Actualización de pantalla? =?Falso? Apaga la pantalla.

arr? =?【a1】. ¿Región actual? Lea datos en una matriz para mejorar la eficiencia de lectura.

¿Configuración? ¿Rng? =?Nada? ¿Rng para guardar una copia

configuración? ¿d? =?CreateObject("scripting. diccionario")? Establece la variable del diccionario utilizada para eliminar duplicados.

¿Para qué? j? =?2?¿Adónde ir? ¿UBound(arr)? Bucle para encontrar duplicados.

¿Y si? ¿Existe (arr(J,?1))? ¿Y luego qué? Determine si hay duplicados en función de si este valor existe en el diccionario.

¿Y si? ¿Rng? ¿Sí? ¿Nada? ¿Entonces qué? Utilice la función de unión para asignar la copia a la variable rng.

¿Configuración? ¿Rng? =?Cell(J,?1).Resize(1,?2)

¿Otras

configuraciones? ¿Rng? =?union(Rng,?cell(J,?1).resize(1,?2))

fin? if

otro

d(arr(J,1))?=?""

final? ¿Y si

Siguiente? J

¿Y si? ¿No? ¿Rng? ¿Sí? ¿Nada? ¿Entonces qué? Rng. ¿borrar? Si hay duplicados. Eliminar la aplicación inmediatamente

. ¿Actualización de pantalla? =?Real

¿Fin? Sub4. Captura de pantalla del efecto de implementación después de ejecutar el código