Sommario
Una delle attività più importanti di Excel è quella di rimuovere i duplicati Oggi mostrerò come rimuovere i duplicati in Excel utilizzando esclusivamente VBA.
Scarica il quaderno di esercizi
Rimuovere i duplicati in Excel con VBA.xlsm3 metodi rapidi per utilizzare VBA in Excel per rimuovere i duplicati
Qui abbiamo un insieme di dati con il valore Nomi, ID, Marchi, e Gradi nell'esame di alcuni studenti di una scuola chiamata Sunflower Kindergarten.
Se si osserva attentamente, si scopre che alcuni nomi sono stati ripetuti erroneamente.
Oggi il nostro obiettivo è rimuovere i valori duplicati utilizzando Excel VBA.
1. Utilizzare VBA per rimuovere i duplicati da un intervallo di celle fisse
Prima di tutto, cercheremo di rimuovere i nomi duplicati utilizzando un intervallo di celle fisso nel file VBA codice.
In questo caso, il nostro set di dati è l'intervallo B3:E15 nella cartella di lavoro (compresa la cartella Intestazioni di colonna ).
Nel codice utilizzeremo questo intervallo di celle fisse.
Fase 1:
➤ Aprire una nuova VBA e inserire un nuovo modulo (Fare clic qui per vedere come aprire e inserire un nuovo modulo VBA in Excel).
➤ Inserire questo codice nel modulo:
Codice:
Sub Rimuovi_Duplicati() Range("A3:E14").RemoveDuplicates Colonne:=1, Intestazione:=xlYes Fine Sub ➤ Produce una macro chiamata Rimuovi_Duplicati . A3:E14 è l'intervallo del mio insieme di dati e voglio rimuovere le righe duplicate basato su Colonna 1 . Usate il vostro.
Fase 2:
Tornare al foglio di lavoro ed eseguire questa macro (fare clic qui per vedere come eseguire la macro).
➤ Rimuoverà le righe con duplicati nella colonna 1 ( Nome dello studente).
Per saperne di più: Come eliminare i duplicati in Excel ma mantenerne uno (7 metodi)
2. Inserire i codici VBA per rimuovere i duplicati dall'intervallo di celle selezionato
Ora cercheremo di creare una macro in grado di rimuovere i duplicati da qualsiasi intervallo di celle selezionato nel foglio di lavoro.
Fase 1:
➤ Aprire una nuova VBA e inserire un altro modulo.
➤ Inserire questo codice nel modulo:
Codice:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Produce una macro chiamata Rimuovi_Duplicati Voglio rimuovere le righe duplicate in base a Colonna 1 . Usate il vostro.
Fase 2:
Tornate al vostro foglio di lavoro.
➤ Selezionare il set di dati ed eseguire la macro.
Rimuove le righe con duplicati nella colonna 1 ( Nome dello studente).
Per saperne di più: Come rimuovere le righe duplicate in Excel (3 modi)
Letture simili
- Come rimuovere i duplicati da una colonna in Excel (3 metodi)
- Excel VBA: rimuovere i duplicati da una matrice (2 esempi)
- Come rimuovere i duplicati e mantenere il primo valore in Excel (5 metodi)
- Rimuovere le righe duplicate tranne la prima volta in Excel (7 modi)
- Come rimuovere entrambi i duplicati in Excel (5 modi semplici)
3. Incorporare una macro VBA per rimuovere i duplicati da più colonne
Finora abbiamo rimosso le righe che hanno duplicati nella colonna 1 ( Nome dello studente ).
Ma in realtà i nomi di due studenti possono essere uguali, non sempre significa che siano stati aggiunti per errore se due nomi sono uguali.
Ma se anche gli ID di due studenti sono uguali, allora si tratta dello stesso studente. Allora la riga deve essere rimossa.
Questa volta svilupperemo una macro che rimuoverà la riga se il nome e l'ID di due righe sono uguali.
Fase 1:
➤ Aprire una nuova VBA e inserire un altro modulo.
➤ Inserire questo codice nel modulo:
Codice:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub ➤ Produce una macro chiamata Rimuovi_Duplicati Voglio rimuovere le righe duplicate in base a Colonna 1 e 2 (Nome e ID) . Usate il vostro.
Fase 2:
Tornate al vostro foglio di lavoro.
➤ Selezionare il set di dati ed eseguire la macro.
Questa volta rimuoverà le righe solo se il nome e l'ID dello studente sono uguali.
Nota: In questo caso non ha rimosso Jennifer Marlo perché gli ID dei due studenti sono diversi, cioè sono due studenti diversi.
Per saperne di più: Excel VBA: rimuovere i duplicati confrontando più colonne (3 esempi)
Conclusione
Utilizzando questi metodi, è possibile rimuovere i duplicati da un insieme di dati in Excel utilizzando VBA. Se avete qualche problema, non esitate a chiedercelo.
