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个循环，但您可以根据需要更改数字）

---

查看

For

，

Do

，

While

For谷歌上的VBA。查看和+1，但最好从

下一个i

中删除

i

。它在VBA中不是必需的，在VB.NET.+1中也是语法无效的@芭丝谢芭，我以前从没见过，谢谢你的补充。只是在一份新工作中开始学习VBA，所以像这样的建议除了实际的答案之外还有一点宝贵之处，谢谢。

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