< návrat zpět
MS Excel
Téma: Odstranění řádků
Zaslal/a martinek.v 28.1.2015 15:50
Zdravím vás všechny specialisté excelovských procedur. Potřeboval bych poradit s makrem. Mám v listu různě zaplněná data v různých buňkách. Potřeboval bych odstranit ty řádky, kde není ani jedna zaplněná buňka a nechat ty řádky, kde je aspoň jedna buňka zaplněná.
Děkuji moc, MartaV
Uzamčeno - nelze přidávat nové příspěvky.
kp57(28.1.2015 21:38)#023321 Dim rdR As Long
For rdR = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If WorksheetFunction.CountA(Rows(rdR)) = 0 Then Rows(rdR).Delete
Next rdR
citovat
martinek.v(28.1.2015 22:51)#023323 Děkuji mnohokrát, funguje to. Lámal jsem si nad tím hlavu, ale vždy zvítězí jednodušší verze :)
MartaV
citovat