Jeigu yra būdas padaryti geriau, atrask jį. T. A. Edison

MS Excel: Kaip ištrinti tuščias eilutes ir / arba stulpelius

   Kartais prireikia greitai ištrinti tuščias eilutes arba stulpelius. Šioje pamokoje susipažinsite, kaip tai lengvai padaryti keliomis makrokomandos eilutėmis.

 

   Jei reikalinga ištrinti tuščias eilutes galima naudoti kodą:

Sub trinti_tuscias_eilutes()
Range("A:A").SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub
 

, kur A:A nurodome, kuriame stulpelyje bus ieškomos tuščios reikšmės eilutėse. Dažniausiai tai būna pirmasis stulpelis, kuris ir yra A. Pateiksiu pavyzdį, kuriame ištrinamos eilutės, kuriose nėra apyvartos sumų - šiuo atveju A:A kode pakeisti į C:C, nes apyvarta yra C (trečiame stulpelyje):

trinti tuscias eilutes

   Panaši komandos eilutė naudojama ir norint pašalinti tuščius stulpelius:

Sub trinti_tuscius_stulpelius()
Range("1:1").SpecialCells(xlCellTypeBlanks).Select
Selection.EntireColumn.Delete
Range("A1").Select
End Sub

   Šiuo atveju 1:1 nurodoma, kad tušti stulpeliai bus fiksuojami pagal pirmąją eilutę, tai turbūt dažniausias pasirinkimas, kadangi pirmąjame stulpelyje dažnai būna jų pavadinimai, o stulpeliuose be pavadinimų retai rasite kokius duomenis. Pavyzdys:

trinti tuscius stulpelius

   Norint ištrinti tiek tuščias eilutes ir stulpelius, galima nesunkiai apjungti anksčiau minėtus kodus:

Sub trinti_tuscius()
Range("10:10").SpecialCells(xlCellTypeBlanks).Select
Selection.EntireColumn.Delete
Range("C:C").SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

   Kode matome, kad pažymėta 10 eilutė (10:10), kurioje bus ieškomi tušti stulpelių pavadinimai, ir trečiasis C stulpelis (C:C), kuriame bus ieškomos tuščios eilučių reikšmės. Pavyzdys, su iš SAP sistemos kopijuotais ataskaitos duomenimis:

trinti tuscias eilutws ir stulpelius

   Gero naudojimosi! Jei kils klausimų, galite rašyti pamokos komentaruose arba forume.

 

Pridėti komentarą


Saugos kodas
Atnaujinti