V tomto článku vytvoříme makro pro odstranění neúplných záznamů, které obsahují prázdné buňky.
Nezpracovaná data se skládají z několika ukázkových dat, která zahrnují jméno, věk a pohlaví. Obsahuje také několik prázdných buněk.
Chceme odstranit ty záznamy, které obsahují prázdné buňky.
Logické vysvětlení
Vytvořili jsme makro „BlankRowDeletion“ pro odstranění neúplných záznamů. Vyhledá a vybere prázdné buňky a poté odstraní celý řádek, který obsahuje prázdnou buňku.
Vysvětlení kódu
Nastavit Rng = rozsah ("A9: C" & LastRow)
Výše uvedený kód se používá k vytvoření objektu rozsahu pro daná data.
Rng.SpecialCells (xlCellTypeBlanks). Vyberte
Výše uvedený kód se používá k výběru prázdných buněk v zadaném rozsahu.
Selection.EntireRow.Delete
Výše uvedený kód slouží k odstranění celého řádku pro vybranou buňku.
Pro kód prosím postupujte níže
Volba Explicitní Sub BlankRowDeletion () 'Deklarace proměnných Dim LastRow jako Long Dim Rng jako rozsah' Získání čísla řádku poslední buňky LastRow = Rozsah ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Výběr všech datových sad Rng = Rozsah ("A9 : C "& LastRow) 'Výběr prázdných buněk Rng.SpecialCells (xlCellTypeBlanks). Vyberte' Odstranění celého řádku Selection.EntireRow.Delete Range (" A9 "). Vyberte End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail