excel - 如何在多次试验中在 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

对单个单元格执行此操作；

需要的是这个；

标签： excelvba

Answer 1

这些方面的东西应该起作用：

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