• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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 :)
MartaVcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse