vb的FOR循环

'afix的数据筛选
Public Sub chooseDate()
MsgBox ("数据筛选开始")
With ActiveSheet
     r = 2
starts:
     If Sheets("afix").Cells(r, 1) = "" Then GoTo ends
     r = r + 1 '下移一行
     GoTo starts
ends:
     MsgBox ("结束")
MsgBox ("FOR循环")
'For i = 1 To 10 Step 1
'    If i = 2 Then
'    GoTo temps
'    End If
'    MsgBox i
'temps:  Next i


For i = 1 To 5 Step 1
    If i <> 2 Then
       MsgBox i
    End If
Next i
MsgBox ("FOR结束")
 End With
End Sub