带数组的每个循环需要索引

Question

我有一个数组，该数组是我用Excel表中的变量填充的。 然后，我使用一个each循环循环遍历此数组。 数组的分配与我要填充的某些单元格对齐。

'arRow is a Dynamic Array, that varies in size
For each vIndex in arRow
 if vIndex = 0 then
     'do nothing
   else
    'Populate corisponding cell
     Cells(2, ???).value = vIndex
  end if
next vindex

如何找到每个循环的索引？

Answer 1

您可以通过两种方式执行此操作。 这两种方法都需要一种“计数器”，因为数组没有可以访问的任何索引属性。

带柜台：

Dim i as Long
i = 0
For each vIndex in arRow
 i = i + 1
 if vIndex = 0 then
     'do nothing
   else
    'Populate corisponding cell
     Cells(2, i).value = vIndex
  end if
next vindex

或在数组上使用索引循环（假定为一维数组，但可以根据需要修改为多维）：

Dim i
For i = LBound(arRow) to UBound(arRow)

   ...

Next

Answer 2

这填充了B1:B3

arRow = Array(11, 22, 33)

For vIndex = 0 To UBound(arRow)
    Cells(vIndex + 1, 2).Value = arRow(vIndex)
Next