Schleife zur letzten Zeile beim Hinzufügen von Zeilen

Question

Meine Schleife bricht ein paar tausend Zeilen vor der letzten Zeile.

sagen Lassen letzte Reihe ist ein guter Punkt bis zu 12000, seine Looping bis 9800.

For i = 2 To lastrow 
    If ws.Cells(i, 2).Value = "4" Then 
     Rows(i).Insert 
     Range("E" & i).Value = ws.Cells(i + 1, 5) 
     i = i + 1 
     lastrow = lastrow + 1 
    End If 
Next i 

Answer 1

macht @Nathan_Sav. Ich bin mir nicht sicher, wie die i = i + 1 und Next i miteinander interagieren. Ich würde versuchen, es so aus:

i = 2 
While i <= lastrow 
    If ws.Cells(i, 2).Value = "4" Then 
     Rows(i).Insert 
     Range("E" & i).Value = ws.Cells(i + 1, 5) 
     i = i + 1 
     lastrow = lastrow + 1 
    End If 
    i = i + 1 
Wend 

Ohne Daten, die diese gegen testen oder den Rest des Codes, ist es schwer, sicher zu sein, dies funktionieren wird ... so lassen Sie mich wissen, wie Sie auf bekommen.