U ovom ćemo članku stvoriti makro za brisanje nepotpunih zapisa koji sadrže prazne ćelije.
Sirovi podaci sastoje se od nekih uzoraka podataka, koji uključuju ime, dob i spol. Sadrži i neke prazne ćelije.
Želimo ukloniti one zapise koji sadrže prazne ćelije.
Logično objašnjenje
Napravili smo makro "BlankRowDeletion" za brisanje nepotpunih zapisa. Pretražuje i odabire prazne ćelije, a zatim briše cijeli redak koji sadrži praznu ćeliju.
Objašnjenje koda
Postavi Rng = raspon ("A9: C" & LastRow)
Gornji kôd koristi se za stvaranje objekta raspona za date podatke.
Rng.SpecialCells (xlCellTypeBlanks) .Odaberi
Gornji kôd koristi se za odabir praznih ćelija unutar navedenog raspona.
Selection.EntireRow.Delete
Gornji kôd koristi se za brisanje cijelog retka odabrane ćelije.
Molimo slijedite dolje za kôd
Opcija Eksplicitni Sub BlankRowDeletion () 'Deklariranje varijabli Dim LastRow As Long Dim Rng As Range' Dobivanje broja retka zadnje ćelije LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Odabir svih podataka Rng = Raspon ("A9 : C "& LastRow) 'Odabir praznih ćelija Rng.SpecialCells (xlCellTypeBlanks). Odaberite' Brisanje potpunog odabira retka.EntireRow.Delete Range (" A9 "). Odaberite End Sub
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