Šajā rakstā mēs izveidosim makro, lai dzēstu nepabeigtus ierakstus, kuros ir tukšas šūnas.
Neapstrādāti dati sastāv no dažiem izlases datiem, tostarp vārda, vecuma un dzimuma. Tajā ir arī dažas tukšas šūnas.
Mēs vēlamies noņemt tos ierakstus, kuros ir tukšas šūnas.
Loģisks skaidrojums
Mēs esam izveidojuši makro “BlankRowDeletion”, lai dzēstu nepabeigtus ierakstus. Tas meklē un izvēlas tukšas šūnas un pēc tam izdzēš visu rindu, kurā ir tukša šūna.
Koda skaidrojums
Iestatīt Rng = Diapazons ("A9: C" un LastRow)
Iepriekš minētais kods tiek izmantots, lai dotajiem datiem izveidotu diapazona objektu.
Rng.SpecialCells (xlCellTypeBlanks). Atlasiet
Iepriekš minēto kodu izmanto, lai atlasītu tukšas šūnas norādītajā diapazonā.
Atlase. Visa rinda. Dzēst
Iepriekš minēto kodu izmanto, lai izdzēstu visu atlasītās šūnas rindu.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub BlankRowDeletion () 'Deklarējošie mainīgie Dim LastRow As Long Dim Rng As Range' Pēdējās šūnas rindas numura iegūšana LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Visu datu kopas izvēle Rng = Range ("A9 : C "& LastRow)" Tukšu šūnu atlasīšana Rng.SpecialCells (xlCellTypeBlanks). Atlasiet "Dzēst visu rindu Selection.EntireRow.Delete Range (" A9 "). Atlasiet Beigt apakšdaļu
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē