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

Question

我在做一个金融模拟。模拟每次运行产生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

这对单个细胞是这样做的；

​

​

我们需要的是这个；

​

​

Answer 1

下面这样的方法应该是可行的：

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