În acest articol, vom crea o macro pentru a șterge înregistrările incomplete care conțin celule goale.
Datele brute constau din câteva exemple de date, care includ numele, vârsta și sexul. De asemenea, conține câteva celule goale.
Vrem să eliminăm acele înregistrări care conțin celule goale.
Explicație logică
Am creat macrocomanda „BlankRowDeletion” pentru a șterge înregistrările incomplete. Caută și selectează celule goale și apoi șterge întregul rând care conține o celulă goală.
Explicarea codului
Setați Rng = Range ("A9: C" și LastRow)
Codul de mai sus este utilizat pentru a crea un obiect de interval pentru datele date.
Rng.SpecialCells (xlCellTypeBlanks). Selectați
Codul de mai sus este utilizat pentru a selecta celulele goale în intervalul specificat.
Selection.EntireRow.Delete
Codul de mai sus este utilizat pentru a șterge întregul rând pentru celula selectată.
Vă rugăm să urmați codul de mai jos
Opțiune Explicit Sub BlankRowDeletion () 'Declararea variabilelor Dim LastRow ca lung Dim Rng ca interval' Obținerea numărului rândului ultimei celule LastRow = Range ("A1"). SpecialCells (xlCellTypeLastCell). Row 'Selectarea tuturor datelor Set Rng = Range ("A9 : C "& LastRow)" Selectarea Blank cells Rng.SpecialCells (xlCellTypeBlanks). Selectați 'Ștergerea rândului complet Selection.EntireRow.Delete Range ("A9"). Selectați End Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail