在 vba 中循环 - 基本

Question

希望这是相对简单的，但我是 VBA 新手。我有两张纸 - Sheet1 和 Sheet2。在 Sheet1 单元格 B2 中，我有一个空白单元格，当填充数字时会在 B5 中生成输出。

我希望将此输出粘贴到 A 列单元格 A5 中的 Sheet2。

但是我遇到了困难，因为我需要为 B2 中的数千个输入执行此操作。我需要遍历整数 5 到 200000 左右，每次将结果记录在 Sheet2 的 A 列中，一个在另一个之下。

这很容易做到吗？

谢谢！

Answer 1

开始跑步，然后去喝杯咖啡：

Sub reRun()
    Dim L As Long
    Application.ScreenUpdating = False
        For L = 5 To 200000
            Sheets("Sheet1").Range("B2").Value = L
            Sheets("Sheet2").Range("A" & L) = Sheets("Sheet1").Range("B5")
        Next L
    Application.ScreenUpdating = True
End Sub

这需要一些时间才能完成。