VBA Duplikaatide eemaldamine Kuidas Exceli VBA-s duplikaatväärtusi eemaldada?

Lang L: none (table-of-contents)

RemoveDuplicates VBA Excelis

Excelis pole sageli vaja dubleerivaid väärtusi, eriti kui soovite, et kordumatuid väärtusi loendataks. Tavaliselt on meil töötamiseks erinev andmekogum ja me näeme selles hulga dubleerivaid väärtusi.

Loodan, et olete tuttav Exceli töölehe duplikaatide eemaldamisega, kui mitte millegi pärast muretseda. Näitame teile lihtsat näidet. Ka VBA-s saame teha duplikaatide eemaldamise meetodi.

Nii on see eemaldanud kõik pealkirja „Piirkond” duplikaatväärtused. Samamoodi saame seda ülesannet teha VBA koodi abil.

Kuidas eemaldada dubleerivad väärtused VBA kodeerimisest?

Esmalt duplikaatväärtuste eemaldamiseks peame mainima vahemikku, millele viitame. Siis pääseme juurde meetodile „Duplikaatide eemaldamine”. Seega on süntaks järgmine.

(Veerg): millise valiku veeru peame duplikaatide eemaldamiseks? Peame mainima valitud vahemiku veeru numbrit.

(Päis): valitud vahemikul on päised või mitte. Meil on siin kolm võimalust töötada.

  • xlJah: Kui andmetel on päised, saate selle valida.
  • xlNo: kui andmetel pole päiseid, saate selle valida.
  • xlGuess: see valik võimaldab excelil arvata andmete päiseid.

Nii et nende parameetrite abil saame duplikaadid eemaldada vaid ühe nupuvajutusega, ilma et me higistaksime.

Allpool olevas jaotises näitan teile mõningaid näiteid VBA duplikaatide eemaldamiseks. Koodi iseseisvalt kirjutamiseks järgige hoolikalt juhiseid.

Näited dubleerivate väärtuste eemaldamisest VBA kodeeringus

Allpool on toodud VBA väärtuste duplikaadi eemaldamise näited.

VBA Duplikaatide eemaldamine - näide 1

Mõelge ka selle näite allpool toodud andmetele.

Ülaltoodud andmetest peame eemaldama veeru „Region” duplikaadid, seega järgige koodi kirjutamiseks allolevaid samme.

1. samm: alustage alamprotseduuri, andes makrokoodile nime.

2. samm: mainige andmevahemikku objekti VBA Range abil .

Kood:

Alam eemalda_Korduvad_näide1 () vahemik ("A1: C9"). Lõpeta alam

3. samm: pärast vahemiku juurdepääsu VBA " RemoveDuplicates " meetodi mainimist .

Kood:

Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates End Sub

4. samm: esimene argument, millises veerus peame duplikaatväärtused eemaldama. Selles näites peame esimesest veerust duplikaadid eemaldama.

Kood:

Sub Remove_Duplicates_Example1 () vahemik ("A1: C9"). RemoveDuplicates veerud: = 1, alamosa lõpp

5. samm: järgmine asi on see, kas andmetel on päised või mitte. Sel juhul on meil päised, nii et valige „xYYES“.

Kood:

Sub Remove_Duplicates_Example1 () vahemik ("A1: C9"). RemoveDuplicates veerud: = 1, päis: = xlJah End Sub

Käivitage see kood. See eemaldab VBA duplikaadid valitud piirkonnast.

See on selgesõnaline viis viidata lahtrivahemikule. Kui soovite vahemiku ise valida ja seejärel duplikaadid eemaldada, peame töötamiseks kasutama muutujat. Allpool toodud näites näitan teile, kuidas muutujaid VBA-s kasutada.

VBA Duplikaatide eemaldamine - näide 2

Ülaltoodud näites oleme spetsiaalselt tarninud rakkude valikut. Nüüd näeme, kuidas oma lahtrite valimisega töötada.

Näiteks on mul mõned andmekogumid, nagu on näidatud alloleval pildil.

Iga kord, kui ma ei saa lahtrite vahemikku selgesõnaliselt määrata, määrame valiku vahemikuks.

1. samm: kuulutage muutuja vahemikuks .

Kood:

Sub Remove_Duplicates_Example2 () Dim Rng as Range End Sub

2. samm: vahemik on objekt. Valikuks valime vahemiku .

Kood:

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.

Esimeses ja neljandas veerus on väärtused dubleeritud. Nii eemaldame nendest veergudest. Duplikaatide eemaldamiseks kasutage VBA-le allpool olevat koodi.

Kood:

Sub Remove_Duplicates_Example3 () Dim Rng Range Range Set Rng = Range ("A1: D9") Rng.RemoveDuplicates Columns: = Massiiv (1, 4), Päis: = xlJah End Sub

Selle VBA Exceli duplikaatide eemaldamine saate alla laadida siit. VBA Duplikaatide Exceli malli eemaldamine

Huvitavad Artiklid...