VBA hiba? Üres sorok törlése?

Lehet, hogy a cella adattípusa kavar be. A CStr(0) helyett próbáld így: ""

Vagy a nullákat is törölni szeretnéd?

Szerintem inkább az a gond, hogy törléskor a törölt cella helyére ugrik a következő elem, és a következő elem nem a következő lesz, hanem az azt követő - és ez több, egymást követő üres cellánál okozhat gondot: ezért maradnak meg üres cellák.

Ezt egy ábrán prezentálom:

[link]

az első sor a törlés sorszáma (a 0. a törlések előtti állapot), a sárgával jelzett cellák a törlés utáni következő elemek.

' Javaslat:

Sub grgr()

Dim sor As Integer, max_sor As Integer

max_sor = 100

sor = max_sor

while sor > 0

If CStr(Cells(sor, 2).Value) = CStr(0) Then

Rows(sor).EntireRow.Delete

End If

sor = sor-1

wend

End Sub

Ja, a max_sor nem is kell. :))

Dim sor As Integer

sor = 100