'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
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