在ExcelVBA中重新计算并在每个模拟中存储输出

Question

我希望将每个模拟的值存储在C1012中，范围从1到1000。 我正在重新计算Worksheet MC的整个C列。 我必须将Simulation的值存储在BF列中 我已经编写了代码，但它没有给出任何输出。

Dim i As Integer

对于i = 1到1000

SimulationArray(i) = Cells(1012, 3).Value
Worksheet(MC).Column(C).Calculate

接下来我

表格（“MC”）。范围（“BF1：BF1000”）= SimulationArray

请帮忙。感谢

Answer 1

试试这个：

Sub trythis()
Dim SimulationArray(1 To 1000)
Dim i As Integer
For i = 1 To 1000

    SimulationArray(i) = Cells(1012, 3).Value
    Sheets("MC").Range("C:C").Calculate
Next i

Sheets("MC").Range("BF1:BF1000").Value = Application.Transpose(SimulationArray)

End Sub