Selles artiklis loome makro, et kontrollida dubleerimist ja eemaldada topeltväärtused kahest järjestikust veerust.
Toorandmed koosnevad sihtmärgi üksikasjadest, sealhulgas agendi nimi, sihtmudeli nimi ja soovitud mudeli nimi.
Selles artiklis tahame kustutada need kirjed, millel on sarnane sihtmudeli nimi ja soovitud mudeli nimi.
Koodi selgitus
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Rida
Ülaltoodud koodi kasutatakse viimase lahtri rea numbri saamiseks.
I = LastRow kuni 12 Samm -1
Edasi
Ülaltoodud silmus For jaoks kasutatakse tagasipööramiseks. See hakkab ringlema viimasest reast kuni 12th rida.
Kui lahtrid (i, 2) = rakud (i, 3) siis
Ülaltoodud koodis oleme võrrelnud väärtusi lahtrites 2nd veerg 3 -gard veerg.
Ridad (i). Kustuta
Ülaltoodud koodi kasutatakse kogu rea kustutamiseks.
Palun järgige koodi allpool
Valik Explicit Sub DeleteMatches () 'Muutujate deklareerimine Dim LastRow, i As Long' Viimase lahtri rea numbri hankimine LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell). Rida 'Silmustamine viimaselt realt 12. reale Kui lahtrid (i, 2) = lahtrid (i, 3), siis read (i). Kustutage lõpp, kui järgmine lõpp
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile