如何在 Excel VBA 中使用 For Next 循环？

For Next 循环是 Excel VBA 中最基本的循环之一。它可以按一定数量的循环次数来处理代码块中的语句。

语法

For counter = start To end Step step
    '要执行的代码
Next [counter]

其中，

• counter：计数器变量，通常习惯用 i、j、k 等字母表示，初始值可以任意设置；
• start：计数器的初始值；
• end：计数器循环的结束值，计数器值等于 end 时循环结束；
• step：计数器的步进值，即每次循环计数器的值的变化量，如果不设置，则默认为 1。当 step 的值为负数时，则计数器递减。

示例

以下是一个简单的示例，它使用 For Next 循环在 Excel VBA 中打印数字 1 到 10：

Sub ForNextExample()
    For i = 1 To 10
        Debug.Print i
    Next i
End Sub

执行该宏后，你可以在立即窗口中看到数字 1 到 10。

步进值

你可以使用步进值来控制递增或递减的值。例如，以下示例使用步进值 2 输出偶数：

Sub ForNextExample()
    For i = 2 To 10 Step 2
        Debug.Print i
    Next i
End Sub

执行该宏后，你可以在立即窗口中看到数字 2、4、6、8 和 10。

反向循环

你可以使用负数步进值来使计数器值递减。以下示例使用步进值 -1 输出数字 10 到 1：

Sub ForNextExample()
    For i = 10 To 1 Step -1
        Debug.Print i
    Next i
End Sub

执行该宏后，你可以在立即窗口中看到数字 10 到 1。

跳出循环

你可以使用 Exit For 语句来在循环中跳出。以下示例仅在 i 的值为 5 时输出数字，然后跳出循环：

Sub ForNextExample()
    For i = 1 To 10
        If i = 5 Then Exit For
        Debug.Print i
    Next i
End Sub

执行该宏后，你可以在立即窗口中看到数字 1 到 4。

嵌套循环

你可以在对另一个计数器进行嵌套的 For 循环中使用 For Next 循环。以下示例演示了使用两个 For Next 循环来输出 1 到 5 乘以 1 到 5 的乘积：

Sub ForNextNestedExample()
    For i = 1 To 5
        For j = 1 To 5
            Debug.Print i * j
        Next j
    Next i
End Sub

执行该宏后，你可以在立即窗口中看到输出的乘积。