Makro pro odstranění prázdných řádků v listu

Toto makro použijeme, chceme-li v listu nechat pouze řádky, ve kterých něco je, a ostatních se zbavit - tedy tabulku "setřepat". Makro se prostě spustí a zafunguje, nic dalšího nepotřebujeme.  
2 comments on “Makro pro odstranění prázdných řádků v listu
  1. Tores napsal:

    Modifikované makro pro odstranění prázdných řádků (mimo prvního, pokud je prázdný)-rychlejší:
    Sub OdstranPrazdneR()
    ‚odstranit_prazdne_radky()
    Dim problast As Range
    Set problast = ActiveSheet.UsedRange
    poslradek = problast.Rows.Count
    prazdsl = problast.Columns.Count + 1
    ‚Prochazime radky a prazdne oznacime do sloupce vedle pouzite oblasti
    For i = 2 To poslradek
    If WorksheetFunction.CountA(Rows(i)) = 0 Then Cells(i, prazdsl) = „p“
    Next i
    ‚filtrem oznacene radky vybereme a odstranime
    Set problast = ActiveSheet.UsedRange
    problast.AutoFilter
    problast.AutoFilter Field:=prazdsl, Criteria1:=““
    Range(„2:“ & Trim(Str(poslradek))).Delete
    problast.AutoFilter
    End Sub

  2. Tores napsal:

    Špatně se zkopíroval řadek – oprava:
    problast.AutoFilter Field:=prazdsl, Criteria1:=“=p“

Napsat komentář

Vaše emailová adresa nebude zveřejněna.

Firemní kurzy

  • Přemýšlíte o firemním školení Excelu?
  • Školíme Excel od začátečníků po experty, ale také PowerPoint, PowerPivot nebo Access.
Mám zájem o kurz

Individuální výuka

Mám zájem o výuku

Vývoj aplikací v Excelu (makra - VBA)

  • Vyvíjíme aplikace pro potřeby firemních zákazníků
  • Reporty, vizualizace dat, harmonogramy, plánování
  • Slučování dat ze souborů, agregace, exporty
Zajímám se o vytvoření aplikace

Kontakt

  • Tel: +420 602 274 999
  • Mail: info@vyuka-excelu.cz
Kontaktní formulář
TOPlist