Selles artiklis loome makro, et kustutada tühjad lahtrid sisaldavad mittetäielikud kirjed.
Toorandmed koosnevad mõnest näidisandmest, sealhulgas nimi, vanus ja sugu. See sisaldab ka mõnda tühja lahtrit.
Soovime eemaldada kirjed, mis sisaldavad tühje lahtreid.
Loogiline seletus
Lõime mittetäielike kirjete kustutamiseks makro „BlankRowDeletion”. See otsib ja valib tühjad lahtrid ning kustutab seejärel terve rea, mis sisaldab tühja lahtrit.
Koodi selgitus
Määra Rng = vahemik ("A9: C" ja LastRow)
Ülaltoodud koodi kasutatakse antud andmete jaoks vahemiku objekti loomiseks.
Rng.SpecialCells (xlCellTypeBlanks). Valige
Ülaltoodud koodi kasutatakse tühjade lahtrite valimiseks määratud vahemikus.
Valik. Kogu rida. Kustuta
Ülaltoodud koodi kasutatakse valitud lahtri kogu rea kustutamiseks.
Palun järgige koodi allpool
Option Explicit Sub BlankRowDeletion () 'Muutujate deklareerimine Dim LastRow As Long Dim Rng As Range' Viimase lahtri rea numbri hankimine LastRow = Vahemik ("A1"). SpecialCells (xlCellTypeLastCell) .Rida 'Kõikide andmete valimine Rng = Vahemik ("A9 : C "& LastRow)" Tühjade lahtrite valimine Rng.SpecialCells (xlCellTypeBlanks) .Valige "Kustuta täielik rida Selection.EntireRow.Delete Range (" A9 "). Valige Lõpeta alam
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