Excel VBA-具有特定值的For Loop

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

您可以执行以下操作：

    Dim i as Variant
    Dim iArray as Variant
    iArray=Array(1,3,8,15)

    For Each i In iArray
         'Do Something
    Next i

干杯