添加行时循环到最后一行

Question

我的循环在最后一行之前突破了几千行。

假设最后一行达到12000，其循环直到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

@Nathan_Sav说得好。我不确定GROUP BY Carrier HAVING Item IN ('A', 'B', 'C') 和i = i + 1如何互相影响。我试试这样：

Next i

如果没有数据来测试这个或其他代码，很难确定这会有效......所以请告诉我你是如何继续的。