[VBA ] 重複模擬1000次

[idaidai (^^)]

想請問各位好手

我要做蒙地卡羅模擬 需重複一千次

我需要的過程寫好如下

Sub macro1()
Sheets(Array("sheet1")).Select
With ActiveSheet
Randomize

Dim H, E As Double
For j = 1 To 10000

If Cells(j + 1, 5) < 0 Then
Cells(j + 1, 4).Value = 1
Else
Cells(j + 1, 4).Value = 0
End If

H = 2 * Exp(-7) + 0.03 * Cells(j + 1, 5).Value ^ 2
    + 0.9 * Cells(j + 1, 3).Value
    + 0.02 * Cells(j + 1, 4).Value * Cells(j + 1, 5).Value ^ 2

Cells(j + 2, 3).Value = H
Cells(j + 2, 5).Value = E
E = Application.TInv(Rnd, 6) * Sqr(Cells(j + 2, 3).Value)

Next j

想請問要怎麼寫一個迴圈讓上面的程式重複跑1000次

因為我才剛學VBA一個月  可能問的有點笨  很不好意思

先感激各位的幫忙

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.240.240.137
→ MOONRAKER:再用一個for i=1 to 1000包起來就是了
→ idaidai:不好意思 忘記說我要重複跑1000次後 取E這一千次的平均
→ idaidai:如果我再用 i=1 to 1000包起來 好像就沒有取到平均值了
→ disc1002:平均就是加起來在除以加多少 那就是E=(E+???)/次數
→ timmy5519:for i = 1 to n : E=E+1 : next i : E =E/n ???