Excel中的一千個隨機值

Question

我在Excel中有一個單元格，每次按F9時都會刷新一個單元格。我想在一列中有1000個這個隨機變量，然後計算平均值。但手動鍵入實際值非常繁瑣。

有沒有一種有效的方法呢？

Answer 1

比方說，該小區B9包含在工作表的每次計算中重新計算的值。還假設，我們將在C1存儲1000個樣本通C1000

Sub MontiCarlo() 
    Dim i As Long 
    For i = 1 To 1000 
     Application.Calculate 
     Cells(i, 3).Value = Range("B9").Value 
    Next i 
    Range("D1").Value = Application.WorksheetFunction.Average(Range("C1:C1000")) 
End Sub 

Answer 2

這裏是做什麼我想你想要做的一種方法：

Dim v As Variant 
Dim i As Long 
ReDim v(1 To 1000, 1 To 1) 
For i = 1 To 1000 
    v(i, 1) = Rnd() 
Next 
Range("A3").Resize(1000, 1) = v 
Range("A1").Formula = "=AVERAGE(A3:A1002)"