In dit artikel zullen we een macro maken om onvolledige records die lege cellen bevatten te verwijderen.
Ruwe gegevens bestaan uit enkele voorbeeldgegevens, waaronder naam, leeftijd en geslacht. Het bevat ook enkele lege cellen.
We willen die records verwijderen die lege cellen bevatten.
Logische uitleg
We hebben de macro "BlankRowDeletion" gemaakt om onvolledige records te verwijderen. Het zoekt en selecteert lege cellen en verwijdert vervolgens de hele rij die een lege cel bevat.
Code uitleg
Stel Rng = Bereik ("A9:C" & LastRow) in
De bovenstaande code wordt gebruikt om een bereikobject te maken voor de gegeven gegevens.
Rng.SpecialCells(xlCellTypeBlanks).Selecteren
De bovenstaande code wordt gebruikt om lege cellen binnen het opgegeven bereik te selecteren.
Selectie.Gehele rij.Verwijderen
De bovenstaande code wordt gebruikt om de hele rij voor de geselecteerde cel te verwijderen.
Volg hieronder voor de code:
Optie Expliciete Sub BlankRowDeletion() 'variabelen declareren Dim LastRow As Long Dim Rng As Range 'Rijnummer van laatste cel ophalen LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row 'Alle gegevens selecteren Set Rng = Range("A9 :C" & LastRow) 'Selecteren van lege cellen Rng.SpecialCells(xlCellTypeBlanks).Selecteer 'Verwijderen van volledige rij Selection.EntireRow.Delete Range("A9").Select End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite