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 

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