Predmet:Re: Brisanje praznog reda u Excelu
ovisi dali ti je cijeli red prazan ako je prazna celija u A stupcu pa ako je tako onda ovako:
PreuzmiIzvorni kôd (Visual Basic):sub obrisiPrazanRed()
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub
upises ovo u VBA editor i pokrenes
ako se recimo u celiji A5 ne nelazi nista, ali se nalazi u C5, onaj gornji kod ce izbrisati i taj red, pa onda sljedeci kod mozes koristiti u slucaju da su podaci neravnomjerno rasporedeni
PreuzmiIzvorni kôd (Visual Basic):Sub obrisiPrazanRed()
Dim raspon As Range, red As Long, i As Long
Set raspon = ActiveSheet.Range("A1:C9") 'unesi raspon celija koje sadrze podatke
red = raspon.red.Count
For i = red To 1 Step (-1)
If WorksheetFunction.CountA(raspon.red(i)) = 0 Then raspon.red(i).Delete
Next i
End Sub
zivot je moja domovina.
Ovaj post je ureden
1
puta. Posljednja izmjena 21.03.2017 15:21 od strane Avko.