我想连续赋值，但是不知道怎么弄。

Sub vvvvv()
n = 1
Pi = 3.14159265358979
Do Until Abs(Round(Pi * n, 0) / n - Pi) < 2.66764188731972E-07
n = n + 1
Loop
Range("A1") = n
End Sub
这样是满足条件后，把A1单元格赋值，
那么我想把满足条件的分别往A1：A10赋值，直到填满怎么办？？

Sub vvvvv()
n = 1
Pi = 3.14159265358979
a = 0
Do Until a = 10
n = n + 1
If Abs(Round(Pi * n, 0) / n - Pi) <2.66764188731972E-07 Then
a = a + 1
Range("A" & a) = n
Else: a = a
End If
Loop
End Sub

@轻舟上逆
能不能找到一个结果赋值之后停顿五秒钟

0.5s就要用api了，具体点呢？
@zipall

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub vvvvv()
n = 1
Pi = 3.14159265358979
a = 0
Do Until a = 10
n = n + 1
If Abs(Round(Pi * n, 0) / n - Pi) <
2.66764188731972E-07 Then
a = a + 1
Range("A" & a) = n
Sleep 100
End If
Loop
End Sub
写出来留个纪念