模式
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