如题所述
在上一篇文章中，我们介绍的For-Next循环，能够按照指定的数值进行有限次的循环。下面介绍在满足指定的条件时才执行相应代码块的循环结构，先来看看Do While循环。
按照惯例，先举一个例子。下面的代码从当前单元格开始，逐行显示单元格的内容，直到碰到空单元格为止。如果第一个单元格就为空，则不会执行循环。
Sub DoWhile0()
Dim i As Integer ‘声明变量
i = 1 ‘初始化变量
Do While Cells(i, 1).Value > “”
MsgBox “单元格A” & i & “的内容为:” & Cells(i, 1).Value
i = i + 1
Loop
End Sub
例如，在单元格区域A1:A5中依次输入数字1、2、3、4、5，将当前单元格置于A1单元格（如所示），运行上面的代码，将依次显示数字1、2、3、4、5。
Do While循环的基本语法结构如下：
Do [While 条件语句]
[语句块]
[Exit Do]
[语句块]
Loop
或者：
Do
[语句块]
[Exit Do]
[语句块]
Loop [While 条件语句]
说明：
按照惯例，方括号中的内容表示可选项。
条件语句可以放在循环的开始处或者结尾处。如果放在开始处，那么先评估条件，满足条件要求，就执行循环里面的语句；这种情况下，当始终不满足条件时，就有可能一次也不会执行循环里面的语句。如果放在结尾处，则至少会执行一次循环里面的语句。
Exit Do语句表示提前退出循环。
将条件放置在结尾处，前面的示例代码修改如下：
Sub DoWhile01()
Dim i As Integer ‘声明变量
i = 1 ‘初始化变量
Do
MsgBox “单元格A” & i & “的内容为:” & Cells(i, 1).Value
i = i + 1
Loop While Cells(i, 1).Value > “”
End Sub
此时，如果单元格A1为空，也会显示一条消息框，然后退出循环。
用框图分别表示Do While循环的两种语法形式如下：
如果熟悉了Excel中的常用对象及其属性，也可以将上面的代码修改如下，实现相同的结果。
Sub DoWhile1()
Do While ActiveCell.Value > “”
MsgBox “当前单元格的内容为:” & ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
其中，Offset属性表示下移一个单元格，即当前单元格下面的单元格。（单元格的常用属性将在后续文章中详细介绍）
将条件放置在结尾处，前面的示例代码修改如下：
Sub DoWhile2()
Do
MsgBox “当前单元格的内容为:” & ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Loop While ActiveCell.Value > “”
End Sub
下面，为更深入理解Do While循环，我们来改写上一篇中用来说明For-Next循环的示例。
示例1：如果想要在工作表单元格区域A1:A10中依次填写数字1至10，也可以使用下面的包含Do While循环的代码：
Sub DoWhile3()
Dim i As Integer ‘声明变量
i = 1 ‘给变量赋初始值
‘循环
Do While i <= 10
Cells(i, 1).Value = i
i = i + 1
Loop
End Sub
注意，与For-Next循环不同的是，在进入循环之前，需要先给变量i赋初始值。在循环中，还需要能够增加变量的值。
示例2：下面的代码使用Do While循环求1至100的和，并显示结果。
Sub DoWhile4()
‘声明变量
Dim i As Integer
Dim sum As Integer
‘给变量赋初值
i = 1
sum = 0
‘循环并显示结果
Do While i <= 100
sum = sum + i
i = i + 1
Loop
MsgBox “1至100的和为：” & sum
End Sub
示例3：下面的代码使用Do While循环求1至100之间的偶数和并显示结果。
Sub DoWhile5()
‘声明变量
Dim i As Integer
Dim sum As Integer
‘给变量赋初值
i = 1
sum = 0
‘循环并显示结果
Do While i <= 100
If (i Mod 2 = 0) Then
sum = sum + i
End If
i = i + 1
Loop
MsgBox “1至100的和为：” & sum
End Sub
在编写程序时，我们可以使用多种方法实现想要的结果，您可以根据具体情况选择实现方式，这也是编程的一大美妙之处。
按照惯例，先举一个例子。下面的代码从当前单元格开始，逐行显示单元格的内容，直到碰到空单元格为止。如果第一个单元格就为空，则不会执行循环。
Sub DoWhile0()
Dim i As Integer ‘声明变量
i = 1 ‘初始化变量
Do While Cells(i, 1).Value > “”
MsgBox “单元格A” & i & “的内容为:” & Cells(i, 1).Value
i = i + 1
Loop
End Sub
例如，在单元格区域A1:A5中依次输入数字1、2、3、4、5，将当前单元格置于A1单元格（如所示），运行上面的代码，将依次显示数字1、2、3、4、5。
Do While循环的基本语法结构如下：
Do [While 条件语句]
[语句块]
[Exit Do]
[语句块]
Loop
或者：
Do
[语句块]
[Exit Do]
[语句块]
Loop [While 条件语句]
说明：
按照惯例，方括号中的内容表示可选项。
条件语句可以放在循环的开始处或者结尾处。如果放在开始处，那么先评估条件，满足条件要求，就执行循环里面的语句；这种情况下，当始终不满足条件时，就有可能一次也不会执行循环里面的语句。如果放在结尾处，则至少会执行一次循环里面的语句。
Exit Do语句表示提前退出循环。
将条件放置在结尾处，前面的示例代码修改如下：
Sub DoWhile01()
Dim i As Integer ‘声明变量
i = 1 ‘初始化变量
Do
MsgBox “单元格A” & i & “的内容为:” & Cells(i, 1).Value
i = i + 1
Loop While Cells(i, 1).Value > “”
End Sub
此时，如果单元格A1为空，也会显示一条消息框，然后退出循环。
用框图分别表示Do While循环的两种语法形式如下：
如果熟悉了Excel中的常用对象及其属性，也可以将上面的代码修改如下，实现相同的结果。
Sub DoWhile1()
Do While ActiveCell.Value > “”
MsgBox “当前单元格的内容为:” & ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
其中，Offset属性表示下移一个单元格，即当前单元格下面的单元格。（单元格的常用属性将在后续文章中详细介绍）
将条件放置在结尾处，前面的示例代码修改如下：
Sub DoWhile2()
Do
MsgBox “当前单元格的内容为:” & ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Loop While ActiveCell.Value > “”
End Sub
下面，为更深入理解Do While循环，我们来改写上一篇中用来说明For-Next循环的示例。
示例1：如果想要在工作表单元格区域A1:A10中依次填写数字1至10，也可以使用下面的包含Do While循环的代码：
Sub DoWhile3()
Dim i As Integer ‘声明变量
i = 1 ‘给变量赋初始值
‘循环
Do While i <= 10
Cells(i, 1).Value = i
i = i + 1
Loop
End Sub
注意，与For-Next循环不同的是，在进入循环之前，需要先给变量i赋初始值。在循环中，还需要能够增加变量的值。
示例2：下面的代码使用Do While循环求1至100的和，并显示结果。
Sub DoWhile4()
‘声明变量
Dim i As Integer
Dim sum As Integer
‘给变量赋初值
i = 1
sum = 0
‘循环并显示结果
Do While i <= 100
sum = sum + i
i = i + 1
Loop
MsgBox “1至100的和为：” & sum
End Sub
示例3：下面的代码使用Do While循环求1至100之间的偶数和并显示结果。
Sub DoWhile5()
‘声明变量
Dim i As Integer
Dim sum As Integer
‘给变量赋初值
i = 1
sum = 0
‘循环并显示结果
Do While i <= 100
If (i Mod 2 = 0) Then
sum = sum + i
End If
i = i + 1
Loop
MsgBox “1至100的和为：” & sum
End Sub
在编写程序时，我们可以使用多种方法实现想要的结果，您可以根据具体情况选择实现方式，这也是编程的一大美妙之处。
温馨提示：答案为网友推荐，仅供参考
