Cuprins
Una dintre cele mai importante activități din Excel este aceea de a eliminați duplicatele dintr-un set de date dat. Astăzi voi arăta cum să eliminați duplicatele în Excel folosind doar VBA.
Descărcați caietul de practică
Eliminarea duplicatelor în Excel cu VBA.xlsm3 Metode rapide de a utiliza VBA în Excel pentru a elimina duplicatele
Aici avem un set de date cu Nume, legitimații, Mărcile, și Clasele la examinarea unor elevi de la o școală numită Grădinița Floarea Soarelui.
Dacă vă uitați cu atenție, veți constata că unele nume au fost repetate din greșeală.
Astăzi obiectivul nostru este de a elimina valorile duplicate folosind Excel VBA.
1. Utilizați VBA pentru a elimina duplicatele din intervalul de celule fixe
În primul rând, vom încerca să eliminați denumirile duplicate utilizând un interval de celule fix în VBA cod.
Aici, setul nostru de date este intervalul B3:E15 din registrul de lucru (inclusiv Titluri de coloană ).
Vom folosi acest interval de celule fix în codul de aici.
Pasul 1:
➤ Deschideți un nou VBA și introduceți un nou modul (Faceți clic aici pentru a vedea cum să deschideți și să inserați un nou modul VBA în Excel).
➤ Introduceți acest cod în modul:
Cod:
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Se produce un macro numit Îndepărtează_Duplicatele . A3:E14 este intervalul setului meu de date, și vreau să eliminați rândurile duplicate pe baza Coloana 1 Folosește-l pe al tău.
Pasul 2:
➤ Reveniți la foaia de lucru și rulați acest macro (Faceți clic aici pentru a vedea cum se execută macroul).
➤ Se vor elimina rândurile cu dubluri din coloana 1 ( Numele studentului).
Citește mai mult: Cum să ștergeți duplicatele în Excel, dar să păstrați unul (7 metode)
2. Introduceți coduri VBA pentru a elimina duplicatele din intervalul de celule selectat
Acum vom încerca să construim o macro care poate elimina duplicatele din orice interval de celule selectat în foaia de lucru.
Pasul 1:
➤ Deschideți un nou VBA și introduceți un alt modul nou.
➤ Introduceți acest cod în modul:
Cod:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Se produce un macro numit Îndepărtează_Duplicatele . vreau să elimin rândurile duplicate pe baza Coloana 1 Folosește-l pe al tău.
Pasul 2:
➤ Întoarceți-vă la foaia de lucru.
➤ Selectați setul de date și rulați această macro.
➤ Se va executa același lucru ca și mai sus. Eliminați rândurile cu dubluri din coloana 1 ( Numele studentului).
Citește mai mult: Cum să eliminați rândurile duplicate în Excel (3 moduri)
Lecturi similare
- Cum să eliminați duplicatele din coloană în Excel (3 metode)
- Excel VBA: Eliminarea duplicatelor dintr-o matrice (2 exemple)
- Cum să eliminați duplicatele și să păstrați prima valoare în Excel (5 metode)
- Eliminați rândurile duplicate cu excepția primei apariții în Excel (7 moduri)
- Cum să eliminați ambele duplicate în Excel (5 moduri simple)
3. Integrați o macro VBA pentru a elimina duplicatele din mai multe coloane
Până acum am eliminat rândurile care au dubluri în coloana 1 ( Numele elevului ).
Dar, de fapt, numele a doi elevi pot fi identice, ceea ce nu înseamnă întotdeauna că a fost adăugat din greșeală dacă două nume sunt identice.
Dar dacă ID-urile celor doi studenți sunt identice, atunci aceștia sunt același student. În acest caz, rândul trebuie eliminat.
De data aceasta, vom dezvolta un macro care va elimina rândul dacă atât numele, cât și ID-ul a două rânduri sunt identice.
Pasul 1:
➤ Deschideți un nou VBA și introduceți un alt modul nou.
➤ Introduceți acest cod în modul:
Cod:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub ➤ Se produce un macro numit Îndepărtează_Duplicatele . vreau să elimin rândurile duplicate pe baza Coloana 1 și 2 (nume și ID) Folosește-l pe al tău.
Pasul 2:
➤ Întoarceți-vă la foaia de lucru.
➤ Selectați setul de date și rulați această macro.
➤ De data aceasta, se vor elimina rândurile numai dacă atât numele, cât și ID-ul studentului sunt identice.
Notă: În cazul de față, nu a eliminat-o pe Jennifer Marlo deoarece ID-urile celor doi studenți sunt diferite, adică sunt doi studenți diferiți.
Citește mai mult: Excel VBA: Eliminarea duplicatelor prin compararea mai multor coloane (3 exemple)
Concluzie
Folosind aceste metode, puteți elimina duplicatele dintr-un set de date în Excel folosind VBA. Dacă aveți probleme, nu ezitați să ne întrebați.
