Tässä artikkelissa luomme makron poistamaan epätäydelliset tietueet, jotka sisältävät tyhjiä soluja.
Raakatiedot koostuvat joistakin näytetiedoista, jotka sisältävät nimen, iän ja sukupuolen. Se sisältää myös joitain tyhjiä soluja.
Haluamme poistaa ne tietueet, jotka sisältävät tyhjiä soluja.
Looginen selitys
Olemme luoneet BlankRowDeletion -makron poistamaan epätäydelliset tietueet. Se etsii ja valitsee tyhjiä soluja ja poistaa sitten koko rivin, joka sisältää tyhjän solun.
Koodin selitys
Aseta Rng = alue ("A9: C" ja LastRow)
Yllä olevaa koodia käytetään luomaan alueobjekti annetuille tiedoille.
Rng.SpecialCells (xlCellTypeBlanks) Valitse
Yllä olevaa koodia käytetään valitsemaan tyhjiä soluja määritetyllä alueella.
Valinta.Koko rivi.Poista
Yllä olevaa koodia käytetään koko valitun solun rivin poistamiseen.
Seuraa koodia alla
Option Explicit Sub BlankRowDeletion () 'Declaring muuttujat Dim LastRow as Long Dim Rng as Range' Viimeisen solun rivinumeron saaminen LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Kaikkien tietojoukkojen valitseminen Rng = Range ("A9 : C "& LastRow)" Tyhjien solujen valinta Rng.SpecialCells (xlCellTypeBlanks) .Valitse 'Poistetaan koko rivin valinta.EntireRow.Delete Range ("A9"). Valitse End Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse