I denne artikkelen vil vi lage en makro for å slette ufullstendige poster som inneholder tomme celler.
Rådata består av noen eksempeldata, som inkluderer navn, alder og kjønn. Den inneholder også noen tomme celler.
Vi ønsker å fjerne postene som inneholder tomme celler.
Logisk forklaring
Vi har opprettet “BlankRowDeletion” -makro for å slette ufullstendige poster. Den søker og velger tomme celler og sletter deretter hele raden som inneholder en tom celle.
Kode forklaring
Sett Rng = Range ("A9: C" og LastRow)
Koden ovenfor brukes til å lage et områdeobjekt for de gitte dataene.
Rng.SpecialCells (xlCellTypeBlanks) .Velg
Koden ovenfor brukes til å velge tomme celler innenfor det angitte området.
Selection.EntireRow.Delete
Koden ovenfor brukes til å slette hele raden for den valgte cellen.
Følg koden nedenfor
Alternativ Eksplisitt sub BlankRowDeletion () 'Deklarasjonsvariabler Dim LastRow As Long Dim Rng As Range' Henter radnummer for siste celle LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Velger alle datasett Rng = Range ("A9 : C "& LastRow) 'Velge blanke celler Rng.SpecialCells (xlCellTypeBlanks) .Velg' Slett komplett radvalg.EntireRow.Delete Range (" A9 "). Velg End Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post