Slet rækker med tomme celler i en bestemt kolonne ved hjælp af VBA i Microsoft Excel

Anonim

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