pokud neni vice prazdnyh radku na sebou, tak bude fungovat toto:For i = 1 To Cells(65000, 1).End(xlUp).Row
If Len(Cells(i, 1)) = 0 Then
Rows(i).Delete
End If
Next icitovat
Doplnim Pokiho kod aby mazal aj viac prazdnych riadkov
For i = 1 To Cells(65000, 1).End(xlUp).Row
If Len(Cells(i, 1)) = 0 Then
Rows(i).Delete
i = i - 1
End If
Next i citovat
Tvůj kód se musí zacyklit, když i zmenšíš o jedničku, tak nemůžeš dosáhnout konce, všechny řádky za posledním jsou prázdné, viz nastavení cyklu.citovat
a pardon mas pravdu zabudol som ze ked som to pouzival tak som musel vyskocit podmienkov - ja som mal najviac tri riadky prazdne ak boly styry po sebe tak som ukoncoval cykluscitovat
Samozřejmě je problém s více prázdnými řádky v tom, že když vymažu např řadek 2 na řádek se dostane půnodní řádek 3, na řádku 3 je řádek, který měl původně č 4 a původní řádek č 3 se vyhne kontrole. Tomu lze předejít tím, že začnu s mazáním od řádku s nejvyšším číslem.citovat
Zkuste tohle: Sub SmazRadky()
For i = 1 To Cells(65000, 1).End(xlUp).Row
If i = Cells(65000, 1).End(xlUp).Row Then Exit Sub
Do Until Len(Cells(i, 1)) > 0
Rows(i).Delete
Loop
Next i
End Subcitovat