VBA Fjern duplikater - Sådan fjernes duplikatværdier i Excel VBA?

Fjern duplikater i VBA Excel

Duplikatværdier kræves ofte ikke i Excel, især når du vil have unikke værdier. Vi har normalt et andet sæt data at arbejde med, og vi ser en masse dobbelte værdier i den.

Jeg håber, du er fortrolig med at fjerne dubletter i Excel-regneark, hvis ikke noget at bekymre sig om. Vi viser dig et simpelt eksempel til dig. Også i VBA kan vi udføre metoden Fjern duplikater.

Så det har fjernet alle de duplikerede værdier i overskriften "Region". På samme måde kan vi udføre denne opgave ved hjælp af VBA-kode.

Sådan fjernes duplikatværdier i VBA-kodning?

For at fjerne duplikatværdier først skal vi nævne det område, vi henviser til. Derefter kan vi få adgang til "Fjern duplikater" -metoden. Så syntaksen vil være som følger.

(Kolonne): Hvilken kolonne i det valg, vi har brug for for at fjerne dubletter? Vi skal nævne søjlenummeret for det valgte interval.

(Overskrift): Det valgte område har overskrifter eller ej. Vi har tre muligheder at arbejde med her.

• xlJa: Hvis dataene har overskrifter, kan du vælge dette.
• xlNej: Hvis dataene ikke har overskrifter, kan du vælge dette.
• xlGuess: Denne mulighed gør det muligt for Excel at gætte overskrifterne på dataene.

Så ved hjælp af disse parametre kan vi fjerne dubletter med blot et klik på en knap uden at bryde vores sved.

I nedenstående afsnit vil jeg vise dig nogle af eksemplerne til VBA fjerne duplikater. Følg trinene omhyggeligt for at skrive koden på egen hånd.

Eksempler på Fjern duplikatværdier i VBA-kodning

Nedenfor er eksemplerne på Fjern duplikat i værdier VBA.

VBA Fjern dubletter - Eksempel # 1

Overvej også nedenstående data for dette eksempel.

Fra ovenstående data skal vi fjerne "Region" -kolonnedubletter, så følg nedenstående trin for at skrive koden.

Trin 1: Start underproceduren ved at give en makrokode et navn.

Trin 2: Nævn dataområdet ved hjælp af VBA Range-objektet .

Kode:

Under Fjern_Duplikater_ Eksempel1 () Område ("A1: C9"). Afslut sub

Trin 3: Efter at have nævnt rækkevidden adgang VBA “ FjernDuplicates ” metode.

Kode:

Sub Fjern_Duplikater_ Eksempel1 () Område ("A1: C9"). FjernDuplikater Afslut Sub

Trin 4: Første argument i hvilken kolonne vi har brug for at fjerne duplikatværdierne. I dette eksempel skal vi fra den første kolonne fjerne duplikaterne.

Kode:

Sub Fjern_Duplikater_ Eksempel1 () Område ("A1: C9"). Fjern Kopier Kolonner: = 1, Afslut Under

Trin 5: Den næste ting er, om data har overskrifter eller ej. I dette tilfælde har vi overskrifter, så vælg "xlYes".

Kode:

Sub Fjern_Duplikater_ Eksempel1 () Område ("A1: C9"). Fjern Kopier Kolonner: = 1, Overskrift: = xl Ja Afslut Under

Kør denne kode. Det vil VBA fjerne dubletter fra den valgte region.

Dette er en eksplicit måde at henvise til celleområdet. Hvis du selv ønsker at vælge området og derefter fjerne dubletter, skal vi bruge variablen til at arbejde med. I nedenstående eksempel vil jeg vise dig, hvordan du bruger variabler i VBA.

VBA Fjern dubletter - Eksempel # 2

I ovenstående eksempel har vi specifikt leveret celleområdet. Nu vil vi se, hvordan vi arbejder med udvælgelsen af ​​vores egne celler.

For eksempel har jeg et par datasæt, som vist i nedenstående billede.

Hver gang kan jeg ikke angive celleområdet eksplicit, så vi tildeler markeringen som området.

Trin 1: Erklær variablen som rækkevidde .

Kode:

Sub Fjern_Duplikater_ Eksempel2 () Dim Rng Som Område Slut Sub

Trin 2: Område er et objekt. Vi indstiller rækkevidden som vores valg.

Kode:

Sub Fjern_Duplikater_ Eksempel2 () Dim Rng som område Indstil Rng = Valg Afslut sub

Trin 3: Nu, i stedet for en række celler, kan vi bruge variablen " rng ."

Kode:

Sub Fjern_Duplikater_ Eksempel2 () Dim Rng Som Område Indstil Rng = Valg Rng.RemoveDuplicates Kolonner: = 1, Overskrift: = xlJa Afslut Sub

Før vi kører koden, skal vi først vælge celleområdet. Derefter kan vi fjerne dubletter fra det valgte celleområde.

VBA Fjern duplikater fra flere kolonner - Eksempel # 3

Vi kan også bruge VBA til også at fjerne duplikatværdier fra excel-kolonner. For at fjerne flere kolonner skal vi bruge Array og nævne kolonnetalene.

Se for eksempel på eksempelbilledet.

Vi har duplikeret værdier i første kolonne og fjerde kolonne. Så vi fjerner fra disse kolonner. Brug nedenstående kode til VBA for at fjerne dubletter.

Kode:

Sub Fjern_Duplikater_ Eksempel3 () Dim Rng Som Område Indstil Rng = Område ("A1: D9") Rng.RemoveDuplicates Kolonner: = Array (1, 4), Overskrift: = xlJa Afslut Sub

Du kan downloade denne VBA Fjern duplikater Excel her. VBA Fjern duplikater Excel-skabelon