V tomto článku vytvoríme makro na kontrolu duplikácie a odstránime duplicitné hodnoty z dvoch po sebe idúcich stĺpcov.
Surové údaje pozostávajú z podrobností o cieli, ktoré zahŕňajú názov agenta, názov cieľového modelu a požadovaný názov modelu.
V tomto článku chceme odstrániť tie záznamy, ktoré majú podobný názov cieľového modelu a požadovaný názov modelu.
Vysvetlenie kódu
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row
Vyššie uvedený kód sa používa na získanie čísla riadku poslednej bunky.
Pre i = LastRow To 12 Krok -1
Ďalšie
Vyššie uvedená slučka For sa používa na spätnú slučku. Začne sa točiť od posledného riadka do 12th riadok.
Ak bunky (i, 2) = bunky (i, 3), potom
Vo vyššie uvedenom kóde sme porovnali hodnoty v bunkách 2nd stĺpec s 3rd stĺpci.
Riadky (i). Odstrániť
Vyššie uvedený kód sa používa na odstránenie celého riadka.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Voľba Explicitná čiastková DeleteMatches () „Deklarovanie premenných Dim LastRow, i As Long“ Získanie čísla riadku poslednej bunky LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell). Riadok 'Opakovanie z posledného riadka do 12. riadka Pre i = LastRow do 12 Krok -1 Ak bunky (i, 2) = bunky (i, 3), potom riadky (i). Odstrániť koniec, ak nasledujúci koniec Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku