Sådan fjernes dubletter i Excel ved hjælp af VBA (3 hurtige metoder)

Hugh West

01-10-2023 Excel-grundlæggende principper
  • Del Dette
Hugh West

En af de vigtigste aktiviteter i Excel er at fjerne dubletter I dag vil jeg vise, hvordan du fjerner dubletter i Excel udelukkende ved hjælp af VBA.

Download arbejdsbog til øvelser

Fjern dubletter i Excel med VBA.xlsm

3 hurtige metoder til at bruge VBA i Excel til at fjerne dubletter

Her har vi et datasæt med Navne, ID'er, Mærker, og Klasserne i forbindelse med undersøgelsen af nogle elever på en skole kaldet Sunflower Kindergarten.

Hvis du kigger godt efter, vil du opdage, at nogle navne er blevet gentaget ved en fejltagelse.

I dag er vores mål at fjerne de dobbelte værdier ved hjælp af Excel VBA.

1. Brug VBA til at fjerne dubletter fra et fast celleområde

Først og fremmest vil vi forsøge at fjerne de dobbelte navne ved hjælp af et fast celleområde i VBA kode.

Her er vores datasæt intervallet B3:E15 i projektmappen (herunder den Kolonneoverskrifter ).

Vi vil bruge dette faste celleområde i koden her.

Trin 1:

➤ Åbn en ny VBA vindue og indsæt et nyt modul (Klik her for at se hvordan du åbner og indsætter et nyt VBA-modul i Excel).

➤ Indsæt denne kode i modulet:

Kode: 

 Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub

➤ Den producerer en makro kaldet Fjern_Duplikater . A3:E14 er rækkevidden af mit datasæt, og jeg ønsker at fjerne de dobbelte rækker baseret på Kolonne 1 Du bruger din.

Trin 2:

➤ Kom tilbage til dit regneark, og kør denne makro (Klik her for at se, hvordan du kører makroen).

➤ Den fjerner de rækker med dubletter i kolonne 1 ( Elevens navn).

Læs mere: Sådan sletter du dubletter i Excel, men beholder en (7 metoder)

2. Indsæt VBA-koder til at fjerne dubletter fra det valgte celleområde

Nu vil vi forsøge at opbygge en makro, der kan fjerne dubletter fra et hvilket som helst udvalgt celleområde i regnearket.

Trin 1:

➤ Åbn en ny VBA vinduet igen og indsæt et nyt modul.

➤ Indsæt denne kode i modulet:

Kode: 

 Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub

➤ Den producerer en makro kaldet Fjern_Duplikater . jeg vil fjerne de dobbelte rækker baseret på Kolonne 1 Du bruger dit eget.

Trin 2:

➤ Kom tilbage til dit arbejdsark.

➤ Vælg dit datasæt, og kør denne makro.

➤ Den vil udføre det samme som ovenfor. Fjern de rækker med dubletter i kolonne 1 ( Elevens navn).

Læs mere: Sådan fjernes duplikerede rækker i Excel (3 måder)

Lignende læsninger

  • Sådan fjernes dubletter fra kolonne i Excel (3 metoder)
  • Excel VBA: Fjern dubletter fra et array (2 eksempler)
  • Sådan fjernes dubletter og beholder den første værdi i Excel (5 metoder)
  • Fjern duplikerede rækker undtagen for 1. forekomst i Excel (7 måder)
  • Sådan fjerner du begge dubletter i Excel (5 nemme måder)

3. Indlejre en VBA-makro til at fjerne dubletter fra flere kolonner

Indtil nu har vi fjernet de rækker, der har dubletter i kolonne 1 ( Navn på den studerende ).

Men faktisk kan to elevers navne være de samme, og det betyder ikke altid, at det er blevet tilføjet ved en fejl, hvis to navne er de samme.

Men hvis de to elevers ID'er også er de samme, er de den samme elev, og rækken skal fjernes.

Denne gang vil vi udvikle en makro, der fjerner rækken, hvis både navnet og ID'et på to rækker er det samme.

Trin 1:

➤ Åbn en ny VBA vinduet igen og indsæt et nyt modul.

➤ Indsæt denne kode i modulet:

Kode: 

 Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub

➤ Den producerer en makro kaldet Fjern_Duplikater . jeg vil fjerne de dobbelte rækker baseret på Kolonne 1 og 2 (navn og ID) Du bruger dit eget.

Trin 2:

➤ Kom tilbage til dit arbejdsark.

➤ Vælg dit datasæt, og kør denne makro.

➤ Denne gang vil den kun fjerne rækkerne, hvis både navnet og elev-ID'et er det samme.

Bemærk: Her har den ikke fjernet Jennifer Marlo, fordi de to studerende har forskellige ID'er, dvs. at de er to forskellige studerende.

Læs mere: Excel VBA: Fjern dubletter ved sammenligning af flere kolonner (3 eksempler)

Konklusion

Ved hjælp af disse metoder kan du fjerne dubletter fra et datasæt i Excel ved hjælp af VBA. Har du problemer, er du velkommen til at spørge os.

Forrige indlæg Excel IFERROR-funktion til at returnere tomt i stedet for 0
Næste indlæg Sådan laver du et sammenligningsdiagram i Excel (4 effektive måder)

Hugh West er en meget erfaren Excel-træner og analytiker med over 10 års erfaring i branchen. Han har en bachelorgrad i regnskab og finans og en kandidatgrad i Business Administration. Hugh har en passion for undervisning og har udviklet en unik undervisningstilgang, der er nem at følge og forstå. Hans ekspertviden om Excel har hjulpet tusindvis af studerende og fagfolk verden over med at forbedre deres færdigheder og udmærke sig i deres karriere. Gennem sin blog deler Hugh sin viden med verden og tilbyder gratis Excel-tutorials og onlinetræning for at hjælpe enkeltpersoner og virksomheder med at nå deres fulde potentiale.