VBA Odstrani dvojnike - Kako odstraniti podvojene vrednosti v Excelu VBA?

RemoveDuplicates v VBA Excel

Podvojene vrednosti v Excelu pogosto niso potrebne, še posebej, če želite šteti enolične vrednosti. Običajno imamo drugačen nabor podatkov za delo in v njem vidimo kup podvojenih vrednosti.

Upam, da ste seznanjeni z odstranjevanjem dvojnikov v Excelovem delovnem listu, če ne ničesar, kar vas skrbi. Pokazali vam bomo preprost primer za vas. Tudi v VBA lahko izvedemo metodo odstranjevanja dvojnikov.

Torej je odstranil vse podvojene vrednosti naslova "Regija". Podobno lahko to nalogo opravimo s pomočjo kode VBA.

Kako odstraniti podvojene vrednosti pri kodiranju VBA?

Da bi najprej odstranili podvojene vrednosti, moramo omeniti obseg, na katerega se sklicujemo. Nato lahko dostopamo do metode »Odstrani dvojnike«. Sintaksa bo torej naslednja.

(Stolpec): Kateri stolpec izbora moramo odstraniti dvojnike? Omeniti moramo številko stolpca izbranega obsega.

(Header): obseg, ki ste ga izbrali, ima glave ali ne. Tu imamo tri možnosti za sodelovanje.

  • xlDa: Če imajo podatki glave, lahko to izberete.
  • xlNe: Če podatki nimajo glav, lahko to izberete.
  • xlGuess: Ta možnost bo Excelu omogočila, da ugane glave podatkov.

Torej z uporabo teh parametrov lahko dvojnike odstranimo s samo klikom na gumb, ne da bi se znebili.

V spodnjem razdelku vam bom pokazal nekaj primerov odstranjevanja dvojnikov VBA. Pazljivo sledite korakom, da kodo napišete sami.

Primeri odstranjevanja podvojenih vrednosti pri kodiranju VBA

Spodaj so primeri odstranjevanja dvojnika v vrednosti VBA.

VBA Odstrani dvojnike - primer # 1

Upoštevajte tudi spodnje podatke za ta primer.

Iz zgornjih podatkov moramo odstraniti dvojnike stolpcev »Regija«, zato za pisanje kode sledite spodnjim korakom.

1. korak: Zaženite podproceduro tako, da makri daste ime.

2. korak: Omenite obseg podatkov z uporabo predmeta VBA Range .

Koda:

Pododsek Remove_Duplicates_Example1 () Obseg ("A1: C9"). Končaj pod

3. korak: Po omembi metode dostopa do obsega VBA » RemoveDuplicates «.

Koda:

Sub Odstrani_Duplikati_Primer1 () Obseg ("A1: C9"). RemoveDuplicates End Sub

4. korak: Prvi argument, v katerem stolpcu moramo odstraniti podvojene vrednosti. V tem primeru moramo iz prvega stolpca odstraniti dvojnike.

Koda:

Pododsek Remove_Duplicates_Example1 () Obseg ("A1: C9"). Stolpci RemoveDuplicates: = 1, End Sub

5. korak: Naslednja stvar je, ali imajo podatki glave ali ne. V tem primeru imamo glave, zato izberite »xlYes«.

Koda:

Podstrana Remove_Duplicates_Example1 () Obseg ("A1: C9"). RemoveDuplicates Stolpci: = 1, Glava: = xlDa Konec Sub

Zaženite to kodo. VBA bo iz izbrane regije odstranil dvojnike.

To je izrecni način sklicevanja na obseg celic. Če želite sami izbrati obseg in nato odstraniti dvojnike, moramo spremenljivko uporabiti za delo. V spodnjem primeru vam bom pokazal, kako uporabljati spremenljivke v VBA.

VBA Odstrani dvojnike - primer # 2

V zgornjem primeru smo posebej navedli vrsto celic. Zdaj bomo videli, kako delati z izbiro lastnih celic.

Na primer, imam nekaj sklopov podatkov, kot je prikazano na spodnji sliki.

Vsakokrat ne morem izrecno določiti obsega celic, zato bomo izbiro dodelili kot obseg.

1. korak: Spremenljivko razglasite kot obseg .

Koda:

Sub Remove_Duplicates_Example2 () Dim Rng As Range End Sub

2. korak: Obseg je objekt. Območje bomo nastavili kot naš izbor.

Koda:

Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection End Sub

Step 3: Now, instead of a range of cells, we can use the variable “rng.”

Code:

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

Before we run the code, we need to select the range of cells first. Then we can remove duplicates from the selected range of cells.

VBA Remove Duplicates from Multiple Columns - Example #3

We can also use VBA to remove duplicate values from excel columns as well. In order to remove multiple columns, we need to use Array and mention the column numbers.

For example, look at the example data image.

V prvem in četrtem stolpcu imamo podvojene vrednosti. Torej bomo odstranili iz teh stolpcev. Za odstranitev dvojnikov uporabite spodnjo kodo VBA.

Koda:

Sub Remove_Duplicates_Example3 () Dim Rng As Range Set Rng = Range ("A1: D9") Rng.RemoveDuplicates Stolpci: = Array (1, 4), Header: = xlYes End Sub

Ta VBA Odstrani dvojnike Excel lahko prenesete tukaj. VBA Odstrani dvojnike Excelove predloge

Zanimive Članki...