如何在多次试验中在Excel工作表中重新计算（F9/模拟）时记录单个单元格的结果

我正在做一个金融模拟。模拟每次运行产生8个结果（F9/刷新）。我想运行模拟，在刷新时生成结果（F9），并将8个值记录在一个表中

我找到一个宏

Sub Macro1()

For i = 1 To 12

Calculate ' code equivalent of hitting F9

Range("d" & i).Value = Range("a1").Value

Next i

End Sub

这对单个细胞来说是这样的

需要的是这个

---

以下几点应该是可行的：

Range("d" & i).Resize(1, 8).Value = Application.Transpose(Range("a1").Resize(8, 1).Value)