< návrat zpět
MS Excel
Téma: Smazání řádků KDYŽ 
Zaslal/a felli 16.6.2011 13:28
Zdravím,
mám nastavenou podmínku, která má smazat řádky, kdy buňky ve sloupci B obsahují číslo 0.
Makro dá se říci funguje, ale ne 100%.
Makro využívám na velké množství dat a je pravidlem, že mi ždy nějaké 0 zbydou.
Nevíte někdo proč?
Díky moc za odpověďiSub test()
For i = 1 To Cells(65000, 2).End(xlUp).Row
If Cells(i, 2) = 0 Then
Rows(i).Delete
End If
Next i
End Sub
Roman(16.6.2011 15:32)#005268 
To je jasné zbydou nulové hodnoty,které jsou dvě za sebou. Např. v řádku 1 a 2 řádek 1 se smaže (Delete) i se zvětší o jedničku na 2, ale druhý řádek se stal deletováním 1 a tedy zbude. cesta odstraňovat řádky od konce
For i = Cells(65000, 2).End(xlUp).Row To 1 Step -1
citovatRoman(16.6.2011 16:04)#005269 Pokud je více řádků, zejména pro mazání tz. nulových oplatí se toto:
Sub test()
Set Obl = Rows(65001)
For i = 1 To Cells(65000, 2).End(xlUp).Row
If Cells(i, 2) = 0 Then
Set Obl = Union(Obl, Rows(i))
End If
Next i
Obl.Delete
End Subcitovat
RSS nejnovější články