EXCEL VBA中如何使用Do循环？

1、Do循环的两种格式。

（一）格式一：

Do

语句体

[Exit Do]

语句体

Loop[while或until条件]

2、示例：计算1-100之间正整数和。

在EXCEL VBE中输入如下代码：

Sub summation()

n = 100

Dim j As Integer

Dim i As Integer

i = 1

Do

j = j + i

i = i + 1

Loop Until i > 100

MsgBox j

End Sub

运行程序，显示结果如下。

3、（二）格式二：

Do [while或until条件]

语句体

[Exit Do]

语句体

Loop

4、示例：计算1-100之间正整数和。

在EXCEL VBE中输入如下代码：

Sub summation()

n = 100

Dim j As Integer

Dim i As Integer

i = 1

Do Until i > 100

j = j + i

i = i + 1

Loop

MsgBox j

End Sub

运行程序，显示结果如下。