我试图找出如何跳过For
循环的迭代。我做了一些研究,发现我可以使用Continue For
,但这并不能解决我的问题。这是我想做的一个例子:
For i As Long = 1 to 7 Step 1
If (i= 2, 5 and 7) Then
'perform this action
Else
'perform other action.
End If
Next i
我制定了以下内容,但不幸的是,它适用于我的循环的<= 2
和Else
部分以及5
和7
,执行相同的操作正如我在Else
部分要求做的那样。
For i As Long = 1 To 7 Step 1
If (i <= 2 AndAlso 5 AndAlso 7) Then
strRange = ("A:D")
Else
strRange = ("A:A")
End If
xlRefSheets = ClientSheets(i)
With xlRefSheets
.Cells.EntireColumn.AutoFit()
.Range(strRange).EntireColumn.Hidden = True
End With
Next i
答案 0 :(得分:2)
如何将if
子句重新设置为
If (i <= 2) or (i = 5) or ( i =7) Then
...
所以你的代码变成了:
For i As Long = 1 To 7 Step 1
If (i <= 2) OR (i = 5) OR (i = 7) Then
strRange = ("A:D")
Else
strRange = ("A:A")
End If
xlRefSheets = ClientSheets(i)
With xlRefSheets
.Cells.EntireColumn.AutoFit()
.Range(strRange).EntireColumn.Hidden = True
End With
Next i