如何循环，并计算平均值。 请我打算在Excel相当于蒙特卡罗模拟运行。我有一组随机数字链接到一些公式单元格，给我一个答案。我写的代码，我已经循环了10000次。我的结果，给了我答案10,000个时间，但是这不是我想要什么，

我想，平均10000答案。 （即:每一个循环，它保持悬念的答案，并循环10万次，在年底的10000模拟，它平均的答案
。如果我解决我的问题是，我将不胜感激。
下面是我写的代码:

Sub VaRSimulation()

'

' VaRSimulation Macro

'

' Keyboard Shortcut: Ctrl+a

'

Let x = 0

Do While x < 20

    Sheets("RAND (3) exp").Select

    Range("A2").Select

    ActiveCell.FormulaR1C1 = "=RAND()"

    Range("A2").Select

    Selection.AutoFill Destination:=Range("A2:A253")

    x = x + 1

Loop

    Range("G1:G3").Select

    Selection.Copy

    Sheets("Var Analysis and result").Select

    Range("G1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Cells.Select

    Cells.EntireColumn.AutoFit

    Range("G1:G3").Activate

    Selection.Font.Bold = True

    Range("A2").Select

End Sub

现在，这样做是什么，只是循环20次，我想的是，"每个循环后，答案被储存起来，并在年底，平均给我一个答案（PS，将有3答案" G1为:G3"。为G1，20模拟后，它需要平均20个模拟，G2的不一样，和G3的相同）"谢谢你