V tem članku bomo ustvarili makro za brisanje nepopolnih zapisov, ki vsebujejo prazne celice.
Neobdelane podatke sestavljajo nekateri vzorčni podatki, ki vključujejo ime, starost in spol. Vsebuje tudi nekaj praznih celic.
Odstraniti želimo tiste zapise, ki vsebujejo prazne celice.
Logična razlaga
Ustvarili smo makro »BlankRowDeletion« za brisanje nepopolnih zapisov. Išče in izbere prazne celice in nato izbriše celotno vrstico, ki vsebuje prazno celico.
Razlaga kode
Set Rng = Range ("A9: C" & LastRow)
Zgornja koda se uporablja za ustvarjanje predmeta obsega za podane podatke.
Rng.SpecialCells (xlCellTypeBlanks) .Izberi
Zgornja koda se uporablja za izbiro praznih celic v določenem obsegu.
Selection.EntireRow.Delete
Zgornja koda se uporablja za brisanje celotne vrstice za izbrano celico.
Za kodo sledite spodaj
Možnost Izrecno Sub BlankRowDeletion () 'Razglasitev spremenljivk Dim LastRow As Long Dim Rng As Range' Pridobivanje številke vrstice zadnje celice LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell). : C "& LastRow) 'Izbira praznih celic Rng.SpecialCells (xlCellTypeBlanks). Izberite" Brisanje celotne izbire vrstice. EntireRow.Delete Range ("A9"). Izberite End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte