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

Zaslat odpověď >

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 -1citovat

Roman(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

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.