For Each 多维数组的单秩答案

【问题标题】：For Each through single rank of multidimensional arrayFor Each 多维数组的单秩
【发布时间】：2015-05-22 10:57:03
【问题描述】：

我有一个二维数组 - aArray(1,variable) 并想知道如何For Each 通过数组的第一排，即只读取 aArray(0 , variable)

这更多是出于自我教育的目的，如果可能的话，如何做到这一点。我可以用 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) 等...

【问题讨论】：

【解决方案1】：

你不能那样做。您必须将第一个排名输出到一个新数组中，然后对其进行迭代。

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

【讨论】：