I den här artikeln kommer vi att skapa ett makro för att ta bort ofullständiga poster som innehåller tomma celler.
Raw data består av några provdata, som inkluderar namn, ålder och kön. Den innehåller också några tomma celler.
Vi vill ta bort de poster som innehåller tomma celler.
Logisk förklaring
Vi har skapat ett "BlankRowDeletion" -makro för att ta bort ofullständiga poster. Den söker och väljer tomma celler och raderar sedan hela raden som innehåller en tom cell.
Kodförklaring
Set Rng = Range ("A9: C" & LastRow)
Ovanstående kod används för att skapa ett intervallobjekt för den angivna data.
Rng.SpecialCells (xlCellTypeBlanks) .Välj
Ovanstående kod används för att välja tomma celler inom det angivna intervallet.
Selection.EntireRow.Delete
Ovanstående kod används för att radera hela raden för den markerade cellen.
Följ koden nedan
Alternativ Explicit Sub BlankRowDeletion () 'Declaring variables Dim LastRow As Long Dim Rng As Range' Hämtar radnummer för sista cellen LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Selecting all data Set Rng = Range ("A9 : C "& LastRow) 'Välja tomma celler Rng.SpecialCells (xlCellTypeBlanks) .Välj' Radera fullständig rad Selection.EntireRow.Delete Range (" A9 "). Välj End Sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen