Satura rādītājs
Viena no svarīgākajām darbībām programmā Excel ir dzēst dublikātus Šodien es parādīšu, kā noņemt dubultdatus programmā Excel, izmantojot tikai VBA.
Lejupielādēt Practice Workbook
Dubultdublikātu noņemšana programmā Excel, izmantojot VBA.xlsm3 ātras metodes VBA izmantošanai programmā Excel, lai noņemtu dubultniekus
Šeit mums ir datu kopa ar Vārdi, ID, Zīmes, un Klases dažu skolēnu eksāmenā skolā, ko sauc par Saulespuķu bērnudārzu.
Ja uzmanīgi ieskatīsieties, redzēsiet, ka daži vārdi ir kļūdaini atkārtoti.
Šodien mūsu mērķis ir noņemt dublētās vērtības, izmantojot Excel VBA.
1. Izmantojiet VBA, lai no fiksēta šūnu diapazona noņemtu dublikātus
Pirmkārt, mēs centīsimies dzēst dublējošos nosaukumus izmantojot fiksētu šūnu diapazonu VBA kods.
Šajā gadījumā mūsu datu kopa ir diapazons B3:E15 darbgrāmatā (ieskaitot Kolonnu virsraksti ).
Šajā kodā izmantosim šo fiksēto šūnu diapazonu.
1. solis:
➤ Atvērt jaunu VBA logu un ievietojiet jaunu moduli (klikšķiniet šeit, lai skatītu kā atvērt un ievietot jaunu VBA moduli programmā Excel).
➤ Ievietojiet šo kodu modulī:
Kods:
Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Tas rada makroreaktoru ar nosaukumu Remove_Duplicates . A3:E14 ir manas datu kopas diapazons, un es gribu dzēst dublējošās rindas pamatojoties uz 1 sleja . Jūs izmantojat savu.
2. solis:
➤ Atgriezieties savā darblapā un palaidiet šo Makro (Klikšķiniet šeit, lai uzzinātu, kā palaist Makro).
➤ Tiks noņemtas rindas ar dublikātiem 1. slejā ( Skolēna vārds).
Lasīt vairāk: Kā programmā Excel dzēst dublikātus, bet saglabāt vienu (7 metodes)
2. Ievietojiet VBA kodus, lai no izvēlētā šūnu diapazona noņemtu dublikātus
Tagad mēs mēģināsim izveidot makro, kas var noņemt dublikātus no jebkura atlasītā šūnu diapazona darblapā.
1. solis:
➤ Atvērt jaunu VBA vēlreiz atveriet logu un ievietojiet vēl vienu jaunu moduli.
➤ Ievietojiet šo kodu modulī:
Kods:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Atlase Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub ➤ Tas rada makroreaktoru, ko sauc par Remove_Duplicates . Es gribu noņemt dublējošās rindas, pamatojoties uz 1 sleja . Jūs izmantojat savu.
2. solis:
➤ Atgriezieties pie savas darba lapas.
➤ Izvēlieties savu datu kopu un palaidiet šo makro.
➤ Tiks izpildīts tas pats, kas iepriekš. 1. slejā tiks noņemtas rindas ar dublikātiem ( Skolēna vārds).
Lasīt vairāk: Kā noņemt dublētās rindas programmā Excel (3 veidi)
Līdzīgi lasījumi
- Kā no Excel kolonnas noņemt dubultniekus (3 metodes)
- Excel VBA: dubultzīmju noņemšana no masīva (2 piemēri)
- Kā noņemt dubultdatus un saglabāt pirmo vērtību programmā Excel (5 metodes)
- Dublētu rindu noņemšana, izņemot 1. atkārtojumu programmā Excel (7 veidi)
- Kā noņemt abus dublikātus programmā Excel (5 vienkārši veidi)
3. Iebūvējiet VBA makrokomponentu, lai no vairākām kolonnām noņemtu dubultdatus
Līdz šim mēs esam likvidējuši rindas, kurām 1. slejā ir dublikāti ( Skolēna vārds ).
Taču patiesībā divu skolēnu vārdi var būt vienādi, tas ne vienmēr nozīmē, ka tas ir pievienots kļūdaini, ja divi vārdi ir vienādi.
Bet, ja arī divu skolēnu ID ir vienādi, tad tie ir viens un tas pats skolēns. Tad rinda ir jādzēš.
Šoreiz izstrādāsim makroprogrammu, kas noņems rindu, ja divu rindu nosaukums un ID ir vienādi.
1. solis:
➤ Atvērt jaunu VBA vēlreiz atveriet logu un ievietojiet vēl vienu jaunu moduli.
➤ Ievietojiet šo kodu modulī:
Kods:
Sub Remove_Duplicates() Dim Rng As Range Set Rng = Atlase Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub ➤ Tas rada makroreaktoru ar nosaukumu Remove_Duplicates . Es gribu noņemt dublējošās rindas, pamatojoties uz 1. un 2. aile (nosaukums un ID) . Jūs izmantojat savu.
2. solis:
➤ Atgriezieties pie savas darba lapas.
➤ Izvēlieties savu datu kopu un palaidiet šo makro.
➤ Šoreiz tas noņems rindas tikai tad, ja gan vārds, gan skolēna ID ir vienādi.
Piezīme: Šajā gadījumā tas nav izdzēsis Jennifer Marlo, jo abu skolēnu ID ir atšķirīgi, proti, tie ir divi dažādi skolēni.
Lasīt vairāk: Excel VBA: dublējošo elementu noņemšana, salīdzinot vairākas kolonnas (3 piemēri)
Secinājums
Izmantojot šīs metodes, varat no datu kopas Excel programmā, izmantojot VBA, noņemt dublikātus. Vai jums ir kādas problēmas? Jautājiet mums.
