vba - Excel循环，循环固定次数

Question

我正在 Excel VBA 中处理一些公式，我试图让它循环一定次数。是否可以在 VBA 中执行此操作，如果可以，我该怎么做？

我的代码如下:

Sub move()
    If ActiveCell.Offset(0, -1) = ActiveCell.Offset(1, -1) Then
        ActiveCell.Formula = "1"
        ActiveCell.Offset(1, 0).Select
    Else
        ActiveCell.Offset(1, 0).Select
    End If
End Sub

Answer 1

要循环固定次数，请使用 For...Next 循环。

在你的情况下，它将如下(我已经完成了 10 次循环，但你可以根据需要更改数字)

Sub move()

Dim i

For i = 1 To 10
    If ActiveCell.Offset(0, -1) = ActiveCell.Offset(1, -1) Then
        ActiveCell.Formula = "1"
    End If
    ActiveCell.Offset(1, 0).Select
Next i

End Sub