VBA Poista kopiot - Kuinka poistaa päällekkäiset arvot Excel VBA: ssa?

RemoveDuplicates VBA Excelissä

Useita arvoja ei usein vaadita Excelissä, varsinkin kun haluat, että yksilölliset arvot lasketaan. Meillä on yleensä erilainen datajoukko, ja näemme siinä joukon päällekkäisiä arvoja.

Toivon, että olet perehtynyt kaksoiskappaleiden poistamiseen Excel-laskentataulukosta, ellei mitään huolta. Näytämme sinulle yksinkertaisen esimerkin. Myös VBA: ssa voimme suorittaa kaksoiskappaleiden poistomenetelmän.

Joten se on poistanut kaikki Region-otsikon kaksoisarvot. Vastaavasti voimme tehdä tämän tehtävän VBA-koodin avulla.

Kuinka poistaa päällekkäiset arvot VBA-koodauksessa?

Jotta päällekkäiset arvot voidaan poistaa ensin, meidän on mainittava alue, johon tarkoitamme. Sitten voimme käyttää "Poista kaksoiskappaleet" -menetelmää. Joten syntaksin tulee olla seuraava.

(Sarake): Mikä valinta sarakkeesta meidän on poistettava kaksoiskappaleet? Meidän on mainittava valitun alueen sarakkeen numero.

(Otsikko): Valitsemallasi alueella on otsikot tai ei. Meillä on täällä kolme vaihtoehtoa.

• xlKyllä: Jos tiedoissa on otsikot, voit valita tämän.
• xlEi: Jos tiedoissa ei ole otsikoita, voit valita tämän.
• xlGuess: Tämän vaihtoehdon avulla Excel voi arvata tietojen otsikot.

Joten näiden parametrien avulla voimme poistaa kaksoiskappaleet yhdellä napin painalluksella rikkomatta hikiämme.

Seuraavassa osassa esitän sinulle esimerkkejä VBA: n kaksoiskappaleiden poistamisesta. Kirjoita koodi huolellisesti noudattamalla ohjeita.

Esimerkkejä päällekkäisten arvojen poistamisesta VBA-koodauksesta

Alla on esimerkkejä Poista kopio arvoista VBA: sta.

VBA Poista kaksoiskappaleet - esimerkki 1

Harkitse myös tämän esimerkin alla olevia tietoja.

Yllä olevista tiedoista meidän on poistettava Region-sarakekopiot, joten kirjoita koodi noudattamalla seuraavia ohjeita.

Vaihe 1: Aloita alimenettely antamalla makrokoodille nimi.

Vaihe 2: Mainitse tietojen alue käyttämällä VBA Range -objektia .

Koodi:

Sub Remove_Duplicates_Example1 () -alue ("A1: C9"). End Sub

Vaihe 3: Mainittu alueen käyttöoikeuksien VBA " RemoveDuplicates " -menetelmä.

Koodi:

Sub Remove_Duplicates_Example1 () -alue ("A1: C9"). RemoveDuplicates End Sub

Vaihe 4: Ensimmäinen argumentti sarakkeesta, joka meidän on poistettava päällekkäiset arvot. Tässä esimerkissä meidän on poistettava kaksoiskappaleet ensimmäisestä sarakkeesta.

Koodi:

Sub Remove_Duplicates_Example1 () -alue ("A1: C9"). RemoveDuplicates-sarakkeet: = 1, End Sub

Vaihe 5: Seuraava asia on, onko tiedoissa otsikoita vai ei. Tässä tapauksessa meillä on otsikot, joten valitse ”xlYes”.

Koodi:

Sub Remove_Duplicates_Example1 () -alue ("A1: C9"). RemoveDuplicates-sarakkeet: = 1, Header: = xlKyllä End Sub

Suorita tämä koodi. Se poistaa VBA-kopiot valitulta alueelta.

Tämä on selkeä tapa viitata solualueeseen. Jos haluat valita alueen itse ja poistaa sitten kaksoiskappaleet, meidän on käytettävä muuttujaa työskennellessäsi. Seuraavassa esimerkissä näytän, kuinka muuttujia käytetään VBA: ssa.

VBA Poista kaksoiskappaleet - esimerkki 2

Yllä olevassa esimerkissä olemme toimittaneet nimenomaan solualueen. Nyt näemme kuinka työskennellä omien solujen valinnan kanssa.

Minulla on esimerkiksi muutama tietojoukko, kuten alla olevassa kuvassa näkyy.

Joka kerta, kun en voi määrittää solualueita nimenomaisesti, annamme valinnan alueeksi.

Vaihe 1: Ilmoita muuttuja alueeksi .

Koodi:

Sub Remove_Duplicates_Example2 () Dim Rng as Range End Sub

Vaihe 2: Alue on esine. Asetamme valikoiman valintamme.

Koodi:

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.

Olemme kopioineet arvot ensimmäiseen ja neljänteen sarakkeeseen. Joten poistamme näistä sarakkeista. Poista alla olevat kaksoiskappaleet alla olevan VBA-koodin avulla.

Koodi:

Sub Remove_Duplicates_Example3 () Dim Rng Range Set Rng = Range ("A1: D9") Rng.RemoveDuplicates Sarakkeet: = Taulukko (1, 4), Header: = xlKyllä End Sub

Voit ladata tämän VBA Remove Duplicates Excel -sovelluksen täältä. VBA Poista kaksoiskappaleet Excel-malli