Public Sub test()
Dim c As Range, i As Integer, a As Integer
Range("A1").Value2 = 2
Range("A2").Value2 = 3
i = 5
For Each c In Range("A3:A100")
ccc:
For a = 3 To 100
While (a < i)
If i Mod a = 0 Then GoTo ccc
a = a + 2
Next a
c.Value = i
i = i + 2
Next i
End Sub
请问问题出在那???
请帮忙
作者:
karta269 (冷冻科选手)
2017-04-14 21:27:00...
标起第一个Next,然后说编译错误,说有Next,却没有For我跑i循环是OK的,可是a的if跟Goto不太会写,a循环亦不知错
作者: holybug 2017-04-17 07:58:00
For Each c --> Next c
作者: newton41 (Newton) 2017-04-19 22:23:00
While后面也没有结束的地方。
作者:
LPH66 (-6.2598534e+18f)
2017-04-21 13:56:00Visual Basic 的 While 是以 End While 结束, 不是 Next唔嗯, 没注意到是 VBA, 那个 While 要用 Wend 结束总之不是 Next, 所以你的 Next a 是错的Next 只会跟 For / For Each 在用, 而且不一定要附变量名