对于每个通过单维的多维数组

Question

我有一个2D数组 - aArray（1，变量），想知道如何通过数组的第一个等级 For Each ，即只读取aArray（0，变量）

这更多是出于自我教育的目的，如何可能的话。我可以用for循环来做到这一点：

Dim a As Integer: For a = 0 to ?
  Range("A1").Value = aArray(0,a)
Next a

但是对使用For Each循环感兴趣。到目前为止我已经

了

Dim a As Variant: For Each S In aArray
  Range("A1").Value = S
Next a

但它迭代遍历所有数组（0,0）（1,0）（0,1）（1,1）等...

Answer 1

你做不到。您必须将第一个排名输出到一个新数组中，然后迭代它。

无论如何都没有充分的理由使用For Each因为速度较慢 - 请参阅：https://support.microsoft.com/en-us/kb/129931