重新计算（刷新）并将每个结果保存到另一个工作表
我是R程序员，但是第一次尝试VBA。 基于一系列随机select的出生和生存价值，我有一个非常简单的人口预测。 我已经预测了Sheet1单元格BC4：BC23中1到20年的人口值。 每次刷新，值都会改变。 我想刷新100次，并将每个人口值存储到Sheet2（100列，20个值）。
基于我的互联网search，似乎一个循环和EnableCalculation的组合是一个可行的VBA方法。 我已经尝试了不同的编码方法（ Application.EnableEvents ， CalculateManyTimes等），没有运气。 这个问题以前曾经问过，但是我找不到。 任何提示将不胜感激。 谢谢。
关键是Application.CalculateFull所以代码可以是：
Sub CalculateAndSave() Dim Ws As Worksheet Set Ws = Worksheets(2) For i = 1 To 100 Application.CalculateFull Ws.Range(Ws.Cells(4, i), Ws.Cells(23, i)) = Sheets(1).Range("BC4:BC23").Value Next i End Sub