Toto řešení mi připadá neprofesionální a při velkém množství řádků pomalé. Existuje elegantnější a rychlejší způsob jak ty řádky smazat?
Kód: Vybrat vše
Sub odstranit_radky()
PosledniRadek = Cells(Rows.Count, "B").End(xlUp).Row 'poslední rádek
For i = 1 To PosledniRadek
If Cells(i, 2) = 999 Then
Else
Rows(i).Delete 'smazeme rádky kde není 999
i = i - 1 'snižuji hodnotu i
End If
PosledniRadek = Cells(Rows.Count, "B").End(xlUp).Row 'znovu načtu poslední řádek
If i = PosledniRadek Then Exit For 'pokud je "i" na posledním řádku tak ukončím cyklus
Next i
End Sub