vba Do Until,vba do until eof(1)

一、Do Until语法

第一种语法：

Do Until 条件式

条件式为True为止，循环处理

Loop

第二种语法：

Do

条件式为True为止，循环处理

Loop Until 条件式

二、Do Until的例子

下面分别针对如上的两种语法，给出相应的例子：

如下代码功能为：'单元格A1～A10内，填入1～10

i = 1

Do Until i = 11

Worksheets("Sheet1").Cells(i, 1).Value = i

i = i + 1

Loop

如下代码的功能为：'单元格A1～A10内，填入1～10

i = 10

Do

Worksheets("Sheet1").Cells(i, 1).Value = i

i = i + 1

Loop Until i = 11