VBA 怎么跳出for 循环？

     用语句exitfor来跳出for循环，这里跳出循环指的是跳出最里面一层的循环结构。

      代码实例如下：

      forii=1to1000

      ifii=500then

      exitfor

      endif

      next

      这里的代码表示ii从1到1000进行循环，如果ii为500时则跳出循环。

      扩展资料：

      通过一段VBA代码，可以实现画面的切换可以实现复杂逻辑的统计(比如从多个表中，自动生成按合同号来跟踪生产量、入库量、销售量、库存量的统计清单)等。

      掌握了VBA，可以发挥以下作用：

      1.规范用户的 *** 作，控制用户的 *** 作行为。

      2. *** 作界面人性化，方便用户的 *** 作。

      3.多个步骤的手工 *** 作通过执行VBA代码可以迅速的实现。

      4.实现一些VB无法实现的功能。

      5.用VBA制做EXCEL登录系统。

      6.利用VBA可以Excel内轻松开发出功能强大的自动化程序。

      参考资料：百度百科-VBA

For Each Process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process where name='EXCEL.EXE'")

        Process.Terminate (0)

Next

Sub 提前退出循环()

Dim i As Integer

Dim sum As Integer

For i = 1 To 10

sum = sum + i

If sum >20 Then

Exit For '满足条件提前结束for循环

End If

Next i

MsgBox "i=" &i &" sum= " &sum

End Sub

Sub 提前进行下一次循环()

Dim i As Integer

Dim arr

Dim str As String

arr = Array("我", "爱", "你", "中", "国")

For i = 0 To 4

If i = 2 Then

GoTo 忽略后面语句提前下一个 '提前进行后面的循环

End If

str = str &arr(i)

sum = sum + i

忽略后面语句提前下一个:Next i

MsgBox str '“我爱你中国”变成了“我爱中国”

End Sub

---