V tomto článku vytvoríme makro na odstránenie neúplných záznamov, ktoré obsahujú prázdne bunky.
Surové údaje pozostávajú z niektorých vzorových údajov, ktoré zahŕňajú meno, vek a pohlavie. Obsahuje tiež niekoľko prázdnych buniek.
Chceme odstrániť tie záznamy, ktoré obsahujú prázdne bunky.
Logické vysvetlenie
Vytvorili sme makro „BlankRowDeletion“ na odstránenie neúplných záznamov. Vyhľadá a vyberie prázdne bunky a potom odstráni celý riadok, ktorý obsahuje prázdnu bunku.
Vysvetlenie kódu
Nastaviť rozsah = rozsah ("A9: C" a posledný riadok)
Vyššie uvedený kód sa používa na vytvorenie objektu rozsahu pre dané údaje.
Rng.SpecialCells (xlCellTypeBlanks). Vyberte
Vyššie uvedený kód sa používa na výber prázdnych buniek v určenom rozsahu.
Výber. Celý rad. Vymazať
Vyššie uvedený kód sa používa na odstránenie celého riadka pre vybratú bunku.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Option Explicit Sub BlankRowDeletion () 'Declaring variables Dim LastRow As Long Dim Rng As Range' Získanie čísla riadku poslednej bunky LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Selecting all data set Rng = Range ("A9 : C "& LastRow) 'Výber prázdnych buniek Rng.SpecialCells (xlCellTypeBlanks). Vyberte' Odstránenie celého radu Selection.EntireRow.Delete Range (" A9 "). Vyberte End 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