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
請問問題出在那???
請幫忙

那你得到什麼錯誤

...

標起第一個Next,然後說編譯錯誤,說有Next,卻沒有For我跑i迴圈是OK的,可是a的if跟Goto不太會寫,a迴圈亦不知錯

For Each c --> Next c

While後面也沒有結束的地方。

Visual Basic 的 While 是以 End While 結束, 不是 Next唔嗯, 沒注意到是 VBA, 那個 While 要用 Wend 結束總之不是 Next, 所以你的 Next a 是錯的Next 只會跟 For / For Each 在用, 而且不一定要附變數名