vba - 循环通过固定次数的 Excel 循环

我正在 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

最佳答案

要循环固定次数，请使用 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

关于vba - 循环通过固定次数的 Excel 循环，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/25260171/