一楼喂度娘

Public Sub zhishu() Dim i, j, k, l Dim sShuChu() As String k = 1
For i = 11 To 1000 Step 2
j = 3
l = 1
Do While Int(i / j) < (i / j)
If (j * j) < i Then
If l < k Then
l = l + 1
j = sShuChu(l)
Else: Exit Do
End If
Else:
Exit Do
End If
Loop
k = k + 1
sShuChu(k) = i
Next i
Range("A1") = sShuChu(k) End Sub