没分也要问！为啥goto语句不执行？

[julia05082]

代码如下。
逐行运行发现，当满足第一个IF条件的时候，执行第一个goto语句。循环之后，当遇到满足第二个和第三个IF的条件的时候，他们后面的goto语句都不执行。

这是为啥？
请各位高手指点一下~
谢谢啦~~~~~~

Sub part2_insert()

Dim i As Variant
i = 2
While Trim(Worksheets("sheet1").Range("A" & i + 1).Value <> vbNullString)
If Worksheets("sheet1").Range("D" & i + 1).Value <> Worksheets("sheet1").Range("D" & i).Value Then
GoTo newloop
Else
If Worksheets("sheet1").Range("O" & i).Value > 5 Then
GoTo newloop
Else
If Worksheets("sheet1").Range("C" & i + 1).Value = Worksheets("sheet1").Range("C" & i).Value + 1 Then
GoTo newloop
Else
Worksheets("sheet1").Rows(i + 1 & ":" & i + 1).Select: Selection.insert Shift:=xlDown
End If
End If
End If
newloop: i = i + 1
Wend


End Sub

[浪客]

While Trim(Worksheets("sheet1").Range("A" & i + 1).Value <> vbNullString)
写的不合适吧
应该是
While Trim(Worksheets("sheet1").Range("A" & i + 1).Value) <> vbNullString