在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

完成需要一些时间。