For Next循环语句

VBA让工作效率飞起来！

专门代写EXCEL VBA中小型 程序代码。

本人以诚信立足 ，另欢迎加友交流学习！

For Next循环语句

进行循环处理的时候使用For Next语句。

For 循环变量 = 初始值 To 最大值

处理

Next

来看下面的例子。
首先，往循环变量v中代入初始值1，然后判断v的值有没有超过最大值10，没有超过最大值的话将v的值代入表格中;再把v的值递增1，再一次判断v的值有没有超过10。依次循环，直至v的值超过10的时候停止for语句的执行。

Sub main()

For v = 1 To 10

Worksheets('Sheet1').Cells(v, 1).value = v

Next

End Sub

在For Next语句中，默认情况下循环变量每次递增1。其实可以用Step来指定每次递增的数值。

For 循环变量 = 初始值 To 最大值 Step 递增值

处理

Next

来看下面的例子。
首先，往循环变量v中代入初始值1，然后判断v的值有没有超过最大值10，没有超过最大值的话将v的值代入表格中;再把v的值递增2，再一次判断v的值有没有超过10。依次循环，直至v的值超过10的时候停止for语句的执行。

Sub main()

For v = 1 To 10 Step 2

Worksheets('Sheet1').Cells(v, 1).value = v

Next

End Sub