For...NEXT小结与实例

nnsea

'For...NEXT小结与实例

'For...Next 语句
'以指定次数来重复执行一组语句


'-----------------------------------------------------
'语法
'For 计数变量 = 初始值 To 终止值 [Step 步长值]
'[执行的一条或多条语句]
'[Exit For]
'[执行的一条或多条语句]
'Next [计数变量]可以忽略不写
'-----------------------------------------------------


'1.循环中可以在任何位置放置任意个 Exit For 语句，随时退出循环。
'2.Exit For与 If...Then经常一起使用，目的是：找到符合条件后，跳出循环，而不必再进行不必要的循环。


Sub test()
For i = 1 To 16
   If Cells(i, 1) = "2班" Then Exit For '找到2班的起始位置
Next i
For j = 1 To 16
    If Cells(j, 1) = "3班" Then Exit For '找到3班起始位置
Next j
MsgBox "2班的人数为:" & j - i '3班起始位置-2班起始位置
End Sub



'3.可以将一个 For...Next 循环放置在另一个 For...Next 循环中，组成嵌套循环。
'    For I = 1 To 10
'        For J = 1 To 10
'            For K = 1 To 10
'                ...
'            Next K
'        Next J
'    Next I

Sub 理解计数变量的运行()

    For i = 1 To 2
        For j = 1 To 3
            k = "外层的第" & i & "次的，内层的第" & j & "次"
        Next j
    Next i
End Sub