I denne artikel opretter vi en makro til sletning af ufuldstændige poster, der indeholder tomme celler.
Rådata består af nogle eksempeldata, som omfatter navn, alder og køn. Det indeholder også nogle tomme celler.
Vi vil fjerne de poster, der indeholder tomme celler.
Logisk forklaring
Vi har oprettet "BlankRowDeletion" -makro for at slette ufuldstændige poster. Den søger og vælger tomme celler og sletter derefter hele rækken, som indeholder en tom celle.
Kode forklaring
Indstil Rng = Range ("A9: C" og LastRow)
Ovenstående kode bruges til at oprette et områdeobjekt for de givne data.
Rng.SpecialCells (xlCellTypeBlanks) .Vælg
Ovenstående kode bruges til at vælge tomme celler inden for det angivne område.
Selection.EntireRow.Delete
Ovenstående kode bruges til at slette hele rækken for den markerede celle.
Følg venligst nedenstående for koden
Option Eksplicit sub BlankRowDeletion () 'Deklarationsvariabler Dim LastRow As Long Dim Rng As Range' Henter rækkenummer på sidste celle LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Valg af alle datasæt Rng = Range ("A9 : C "& LastRow) 'Valg af tomme celler Rng.SpecialCells (xlCellTypeBlanks) .Vælg' Sletning af komplet række Selection.EntireRow.Delete Range (" A9 "). Vælg End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet