­ã´£³¡ªL

Sub TEST_1()
n = Range("E1")
For i = 3 To n Step 2  '¥i´î¤@¥bªº°j°é
    For j = 2 To n - 1
        P = i Mod j
        If P = 0 And i <> j Then Exit For
    Next j
    If P > 0 Then r = r + 1: Cells(r, 1) = i
Next i
End Sub

§ä½è¼Æªº, ¥igoogle, ¦³§ó¦h®Ä¯à¸û¦nªº¤è¦¡

­ã´£³¡ªL

©Î¸Õ¸Õ:
Sub TEST_1()
n = Range("E1")
For i = 3 To n Step 2
    For j = 2 To Int(Sqr(i)) + 1
        P = i Mod j
        If P = 0 Then Exit For
    Next j
    If P > 0 Then r = r + 1: Cells(r, 1) = i
Next i
End Sub

­ã´£³¡ªL

¦^´_ 8# fangsc

If P > 0 Then r = r + 1: Cells(r, 1) = i

µ¥¦P
If P > 0 Then
r = r + 1
Cells(r, 1) = i
END IF