Excel VBA - 特定の値を持つForループ

Question

私はForループを作成しようとしていますが、いくつかの値を選択するだけですが、構文を解決できないか、

私はそれが

Dim i As Integer 
For i = 1,3,8,15 Then 
Do something 
Next i 

のように任意のアイデアになりたいですか？

Answer 1

はあなたがすることはできません

Sub Demo() 
    Dim indexArr As Variant 
    Dim i As Long 

    indexArr = Array(1, 3, 8, 15) 
    For i = LBound(indexArr) To UBound(indexArr) 
     Debug.Print indexArr(i) 
    Next i 
End Sub 

Answer 2

を試してみてください。パターンがある場合は、追加する必要があります何のパターンが存在しないため

あなたはこの場合1,3,5,7,...

を行いますどのStep

For i = 1 to 15 Step 2 

を使用することができますIfまたはSelect Case：

Dim i As Integer 
For i = 1 to 15 Then 
    Select Case i 
     Case 1,3,8,15 
      'Do Something 
    End Select 
Next i 

Answer 3

if文を使用できます。

Dim i As Integer 
For i = 1 To 15 Then 
    If i = 1 or i = 3 or i = 8 or i = 15 Then 
     'Do something 
    End If 
Next i 

このヘルプが必要です。