U ovom ćemo članku stvoriti makronaredbu za provjeru dupliciranja i ukloniti dvostruke vrijednosti iz dva uzastopna stupca.
Sirovi podaci sastoje se od pojedinosti o cilju, što uključuje naziv agenta, naziv ciljnog modela i željeni naziv modela.
U ovom članku želimo izbrisati one zapise koji imaju sličan naziv ciljnog modela i željeni naziv modela.
Objašnjenje koda
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row
Gornji kôd koristi se za dobivanje broja retka zadnje ćelije.
Za i = LastRow do 12 korak -1
Sljedeći
Gornja petlja For koristi se za obrnutu petlju. Počet će se petljati od posljednjeg reda do 12th red.
Ako su ćelije (i, 2) = ćelije (i, 3) Tada
U gornjem kodu usporedili smo vrijednosti u ćelijama 2nd stupac sa 3rd stupac.
Redci (i) .Brisati
Gornji kôd koristi se za brisanje cijelog retka.
Molimo slijedite dolje za kôd
Opcija Explicit Sub DeleteMatches () 'Deklariranje varijabli Dim LastRow, i As Long' Dobivanje broja retka zadnje ćelije LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row 'Ponavljanje iz zadnjeg retka u 12. red Za i = LastRow do 12 korak -1 Ako su ćelije (i, 2) = ćelije (i, 3), tada redaci (i). Izbriši kraj ako je sljedeći kraj pod
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte