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