骑自行车时的Excel图表？在上一篇文章中，我们介绍了For-Next循环，它可以根据指定的值循环有限的次数。下面描述了满足指定条件时执行相应代码块的循环结构。让我们首先来看看边做边循环。

按照惯例，先举个例子。下面的代码从当前单元格开始，逐行显示单元格的内容，直到遇到空单元格。如果第一个单元格为空，则不会执行循环。

Sub DoWhile0()

' Dim I as integer '声明变量。

I=1 '初始化变量。

边做边单元格(I，1)。值""

MsgBox”单元格a“I”包含：”单元格(I，1)。价值。

i=i 1

环

末端接头

例如，在单元格区域A1:A5中依次输入数字1、2、3、4和5，将当前单元格放在A1单元格中(如图所示)，运行上述代码依次显示数字1、2、3、4和5。

Do While循环的基本语法结构如下：

执行[While条件语句]

[语句块]

[退出Do]

[语句块]

环

或者：

做

[语句块]

[退出Do]

[语句块]

循环[While条件语句]

描述：

按照惯例，方括号中的内容表示选项。

条件可以放在循环的开始或结束。如果放在开头，请先评估条件，然后在满足条件的情况下执行循环中的语句。在这种情况下，当条件从未满足时，循环中的语句可能不会执行一次。如果放在末尾，循环中的语句将至少执行一次。

Exit Do语句意味着提前退出循环。

将条件放在末尾，并按如下方式修改前面的示例代码：

Sub DoWhile01()

' Dim I as integer '声明变量。

I=1 '初始化变量。

做

MsgBox”单元格a“I”包含：”单元格(I，1)。价值。

i=i 1

循环同时单元格(I，1)。值""

末端接头

此时，如果单元格A1为空，也会显示一个消息框，然后循环退出。

Do While循环的两种语法形式用框图表示如下：

如果您熟悉Excel中的常用对象及其属性，也可以对上述代码进行如下修改，以达到同样的效果。

Sub DoWhile1()

活动单元格时执行。值""

MsgBox“当前单元格的内容是：”的ActiveCell。价值

ActiveCell。偏移量(1，0)。使活动

环

末端接头

其中，Offset属性表示下移一个单元格，即当前单元格下的单元格。(细胞的共同特性将在后续文章中详细描述。)

将条件放在末尾，并按如下方式修改前面的示例代码：

Sub DoWhile2()

做

MsgBox“当前单元格的内容是：”的ActiveCell。价值

ActiveCell。偏移量(1，0)。使活动

活动单元格时循环。值""

末端接头

接下来，为了更深入地理解Do While循环，让我们重写上一篇文章中使用的示例来说明For-Next循环。

示例：如果要依次填写工作表单元格区域A1:A10中的数字1到10，还可以使用包含Do While循环的以下代码：

Sub DoWhile3()

' Dim I as integer '声明变量。

I=1 '将初始值赋给变量。

'循环'

当我=10时做

细胞(I，1)。值=i

i=i 1

环

末端接头

请注意，与For-Next循环不同，在进入循环之前，您需要为变量I分配一个初始值。在循环中，您还需要能够增加变量的值。

示例2:下面的代码使用Do While循环将1和100相加，并显示结果。

Sub DoWhile4()

声明一个变量。

作为整数变暗

作为整数的点心

为变量分配初始值。

i=1

总和=0

循环并显示结果。

当我=100时做

总和=总和I

i=i 1

环

Msgbox到100的和是：" sum。

末端接头

示例3:下面的代码使用Do While循环对1到100之间的偶数求和并显示结果。

Sub DoWhile5()

声明一个变量。

作为整数变暗

作为整数的点心

为变量分配初始值。

i=1

总和=0

循环并显示结果。

当我=100时做

如果(i Mod 2=0)，则

总和=总和I

如果…就会结束

i=i 1

环

Msgbox到100的和是：" sum。

末端接头

编程的时候，我们可以用很多方法达到预期的效果，你可以根据具体情况选择实现方法，这也是编程的一大妙处。