VBA在Excel中倾倒和粘贴蒙特卡罗的价值观

Question

我正在尝试使用vba for Excel复制和粘贴大量模拟数据。我做了所有的计算，只是这个最后一部分让我失望，因为我不太擅长编写循环！我需要做的是反复复制，粘贴和刷新工作表到一个范围 - 然后移动到下一个未使用的行并继续该过程。完成后，我将使用vlookups和index + matches从这些数组中获取所需的数据。这是我的代码（没有循环）：

Sub Sim()
Worksheets("Sim Results").Range("N2:R21").Copy
Worksheets("Sim Table").Range("A2").PasteSpecial xlPasteValues
Worksheets("Sim Results").Range("N2:R21").Copy
Worksheets("Sim Table").Range("A22").PasteSpecial xlPasteValues
Worksheets("Sim Results").Range("N2:R21").Copy
Worksheets("Sim Table").Range("A42").PasteSpecial xlPasteValues
Worksheets("Sim Results").Range("N2:R21").Copy
Worksheets("Sim Table").Range("642").PasteSpecial xlPasteValues

End Sub 

循环进入20组，例如目标单元格将是A2，A22，A42，A62，A82 ......等。它还需要一个“do until”循环，允许我重复这个过程数千时代......

是的，有人能帮帮我吗？否则我只需复制这些行几千次！

编辑：这是解决方案：

Sub Sim()



i = 0

Do Until i = 1000

Worksheets("Sim Results").Range("N2:S21").Copy



Worksheets("Sim Table").Range("A" & 20 * i + 2).PasteSpecial xlPasteValues

i = i + 1

Loop

End Sub