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

Excel循环循环固定次数

1 个答案: