Exit for退出for循环语句示例

Sub e2()
    
     Dim x As Integer
        For x = 1 To 100
          Cells(1, 1) = x
          If x = 5 Then
            Exit For
          End If
         Next x
        
       Range("b1") = 100
     End Sub