在VBA中重复操作 - 程序员自由职业

在VBA中，你可以使用循环结构来重复执行一组操作。VBA提供了几种不同类型的循环，包括For...Next、Do...Loop、While...Wend等。

For...Next 循环：

Sub ForNextExample()
    Dim i As Integer

    ' 从1循环到5
    For i = 1 To 5
        ' 执行循环体中的操作
        MsgBox "当前的值是: " & i
    Next i
End Sub

在这个例子中，For...Next 循环从1循环到5，每次循环都执行一组操作。

Do...Loop 循环：

Sub DoLoopExample()
    Dim i As Integer

    ' 使用Do...Loop循环
    Do While i < 5
        ' 执行循环体中的操作
        MsgBox "当前的值是: " & i
        i = i + 1
    Loop
End Sub

在这个例子中，Do While 循环会在 i 小于 5 的条件下执行循环体中的操作，直到条件不再满足。

While...Wend 循环：

Sub WhileWendExample()
    Dim i As Integer

    ' 使用While...Wend循环
    i = 1
    While i < 5
        ' 执行循环体中的操作
        MsgBox "当前的值是: " & i
        i = i + 1
    Wend
End Sub

这个例子中使用 While...Wend 循环，与 Do While 类似，它也会在条件满足时执行循环体中的操作。

以上是一些简单的循环示例。你可以根据具体需求选择合适的循环结构，以便重复执行代码。在循环中，通常需要谨慎处理循环条件，以避免无限循环。

转载请注明出处：http://www.zyzy.cn/article/detail/6684/VBA