循环语句格式

模式

For counter = start to end [Step 1]

[statements]

[Exit For]

[statements]

Next [counter]

 

Cells( Rows.Counnt, 1 ) . End( xlUp )  . Row               代表非空最多到第几行

WorkSheets(1).Cells( i ,1) . End(xlToRight).Column    指定第一个表的第 i 行最后一个非空单元格的列数

 

Do

　　[statements]

[Exit Do]，if i...Then Exit Do

　　[statements]，i=i+1

Loop

 

Do While condition

　　[statements]

[Exit Do]

　　[statements]

Loop

 

Do Until condition'直到不符合

　　[statements]

[Exit Do]

　　[statements]

Loop

 

Do 

　　[statements]

[Exit Do]

　　[statements]

Loop While condition

 

Do 

　　[statements]

[Exit Do]

　　[statements]

Loop Until condition

转载于:https://www.cnblogs.com/AntipasChen/p/7147116.html