如何在 Excel VBA 中使用 While Wend 循环？

在 Excel VBA 中，While Wend 循环用于重复执行某段代码，直到指定条件不再满足。下面我们来介绍如何在 Excel VBA 中使用 While Wend 循环。

While 循环语法

While 循环语法如下：

While condition
    [statement block]
Wend

其中，condition 表示要测试的条件，statement block 表示要重复执行的代码块。当条件满足时，重复执行代码块，直到条件不再满足，然后退出循环。

While 循环示例

下面我们来看一个 While 循环的示例。假设我们要计算 1 到 100 的累加和，可以使用 While 循环来实现：

Sub CalcSum()
    Dim i As Integer
    Dim sum As Integer
    
    i = 1
    sum = 0
    
    While i <= 100
        sum = sum + i
        i = i + 1
    Wend
    
    MsgBox "1到100的累加和为：" & sum
End Sub

在上面的示例中，我们首先定义了变量 i 和 sum，分别表示计数器和累加和。然后，我们使用 While 循环重复执行以下代码块，直到 i 大于 100：

sum = sum + i
i = i + 1

这段代码用于将 i 的值累加到 sum 中，然后将 i 的值加 1。

最终，我们使用 MsgBox 函数输出计算结果。运行该程序后，将会弹出一个消息框，显示 1 到 100 的累加和。

总结

使用 While 循环可以实现重复执行指定的代码块，其语法形式简单明了。在编写 VBA 程序时，我们可以根据实际需要来选择使用 Do While、Do Until、For、While 等多种循环语句，灵活运用，提高程序的效率和可读性。