[VBA ] 印出 1~100 質數

[Powpowpp (pp)]

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

請問問題出在那???
請幫忙

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.52.130.231
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1492145106.A.322.html
噓 MOONRAKER: 那你得到什麼錯誤
噓 karta269: ...
→ Powpowpp: 標起第一個Next,然後說編譯錯誤,說有Next,卻沒有For
→ Powpowpp: 我跑i迴圈是OK的,可是a的if跟Goto不太會寫,a迴圈亦不知
→ Powpowpp: 錯
→ holybug: For Each c --> Next c
→ newton41: While後面也沒有結束的地方。
推 LPH66: Visual Basic 的 While 是以 End While 結束, 不是 Next
→ LPH66: 唔嗯, 沒注意到是 VBA, 那個 While 要用 Wend 結束
→ LPH66: 總之不是 Next, 所以你的 Next a 是錯的
→ LPH66: Next 只會跟 For / For Each 在用, 而且不一定要附變數名