EXCEL VBA中如何使用Do循环

1、Do循环的两种格式。（一）格式一：Do语句体[Exit Do]语句体Loop[while或until条件]

2、示例：计算1-100之间正整数和。在EXCEL VBE中输入如下代码：Sub summation()n = 100Dim j As IntegerDim i As Integeri = 1肛舀辨乔Doj = j + ii = i + 1Loop Until i > 100MsgBox jEnd Sub运行程序，显示结果如下。

3、（二）格式二：Do[while或until条件]语句体[Exit Do]语句体Loop

4、示例：计算1-100之间正整数和。在EXCEL VBE中输入如下代码：Sub summation()n = 100Dim j As IntegerDim i As Integeri = 1肛舀辨乔Do Until i > 100j = j + ii = i + 1LoopMsgBox jEnd Sub运行程序，显示结果如下。