Taula de continguts
Una de les activitats més importants d'Excel és eliminar duplicats d'un conjunt de dades determinat. Avui us mostraré com eliminar duplicats a Excel només amb VBA.
Descarregueu el llibre de pràctiques
Elimineu duplicats a Excel amb VBA.xlsm
3 mètodes ràpids per utilitzar VBA a Excel per eliminar duplicats
Aquí tenim un conjunt de dades amb els Noms, identificadors, Notes, i Notes en l'examen d'alguns alumnes d'una escola anomenada Jardí d'Infants Girasol.
Si us fixeu bé , trobareu que alguns noms s'han repetit per error.
Avui el nostre objectiu és eliminar els valors duplicats mitjançant Excel VBA.
1. Utilitzeu VBA per eliminar els duplicats de l'interval de cel·les fixes
En primer lloc, intentarem eliminar els noms duplicats utilitzant un interval de cel·les fix al VBA codi.
Aquí, el nostre conjunt de dades és l'interval B3:E15 del llibre de treball (incloent les Capçaleres de columna ).
Utilitzarem aquest interval de cel·les fix al codi aquí.
Pas 1:
➤ Obriu una nova finestra VBA i inseriu un mòdul nou (feu clic aquí per veure com obrir i inserir un mòdul VBA nou a Excel).
➤ Insereix aquest codi al mòdul:
Codi:
8363
➤ Produeix una macro anomenada Remove_Duplicates . A3:E14 és l'interval del meu conjunt de dades i vull eliminar les files duplicades en funció de la Columna 1 . Vostèfeu servir el vostre.
Pas 2:
➤ Torneu al vostre full de treball i executeu aquesta macro (feu clic aquí per veure com per executar Macro).
➤ Eliminarà les files amb duplicats de la columna 1 ( Nom de l'alumne).
Llegeix més: Com esborrar duplicats a Excel però conservar-ne un (7 mètodes)
2. Insereix codis VBA per eliminar els duplicats de l'interval de cel·les seleccionat
Ara intentarem crear una macro que pugui eliminar els duplicats de qualsevol interval de cel·les seleccionat al full de treball.
Pas 1:
➤ Torneu a obrir una nova finestra VBA i inseriu un altre mòdul nou.
➤ Inseriu aquest codi al mòdul:
Codi:
8749
➤ Produeix una macro anomenada Remove_Duplicates . Vull eliminar les files duplicades en funció de la Columna 1 . Feu servir el vostre.
Pas 2:
➤ Torneu al vostre full de treball.
➤ Seleccioneu el vostre conjunt de dades i executeu aquesta macro.
➤ S'executarà el mateix que s'ha fet anteriorment. Elimineu les files amb duplicats a la columna 1 ( Nom de l'alumne).
Llegir més: Com eliminar els duplicats Files a Excel (3 maneres)
Lectures similars
- Com eliminar els duplicats de la columna a Excel (3 mètodes)
- Excel VBA: elimina els duplicats d'una matriu (2 exemples)
- Com eliminar els duplicats i mantenir el primer valor a Excel (5 mètodes)
- EliminarFiles duplicades, excepte la primera aparició a Excel (7 maneres)
- Com eliminar els dos duplicats a Excel (5 maneres senzilles)
3. Insereix una macro VBA per eliminar duplicats de diverses columnes
Fins ara hem eliminat les files que tenen duplicats a la columna 1 ( Nom de l'alumne ).
Però de fet, els noms de dos estudiants poden ser iguals, no sempre vol dir que s'hagi afegit per error si dos noms són iguals.
Però si els DNI de dos estudiants també són iguals, llavors són el mateix alumne. Aleshores s'ha d'eliminar la fila.
Aquesta vegada desenvoluparem una macro que eliminarà la fila si el nom i l'ID de dues files són iguals.
Pas 1 :
➤ Torneu a obrir una nova finestra VBA i inseriu un altre mòdul nou.
➤ Inseriu aquest codi al mòdul:
Codi:
4021
➤ Produeix una macro anomenada Remove_Duplicates . Vull eliminar les files duplicades en funció de la Columna 1 i 2 (Nom i ID) . Feu servir el vostre.
Pas 2:
➤ Torneu al vostre full de treball.
➤ Seleccioneu el vostre conjunt de dades i executeu aquesta macro.
➤ Aquesta vegada eliminarà les files només si tant el nom com l'identificador de l'estudiant són els mateixos.
Nota: Aquí no s'ha eliminat Jennifer Marlo perquè els DNI dels dos estudiants són diferents, és a dir, són dos estudiants diferents.
Llegeix més: Excel VBA: elimina els duplicats comparant diverses columnes (3 exemples)
Conclusió
Utilitzant aquests mètodes, podeu eliminar els duplicats d'un conjunt de dades a Excel mitjançant VBA. Tens algun problema? No dubteu a preguntar-nos.
