0开始for循环（而不是1）
为什么我不能在0开始for循环？
Dim counter As Integer For counter = 1 To 10 Cells(0, counter).Value = arr(counter) Next counter 这将错过数组中的第一个索引。
这个问题有没有可能的解决办法？
作为@Ralph指出的替代scheme，您可以使用Range Offset量 – 因此 – 您的数组和范围参考将从0开始：
Dim counter As Integer For counter = 0 To 9 Cells(1, 1).Offset(0, counter).Value = arr(counter) Next counter
PS：避免命名你的数组，因为有一个名字相同的VBA函数。 你可以用类似arr东西来代替。
您可以使用Option Base 1，但是对数组索引的内容和方式的控制有限。
Split函数总是创build一个基于零的单维数组，无论您是否将默认值更改为Option Base 1 。
批量加载工作表.Value到一个variables数组总是会生成一个基于1的二维数组，无论您是明确设置了Optiona Base 0还是只引用单个行或单个列的单元格。
我发现最好总是使用LBound和UBound函数来获取数组的范围。 调整数字，以免引用单元格A0或类似的东西（例如#REF! ）。
Dim counter As Long debug.print Lbound(arr) & ":" & uBound(arr) For counter = LBound(arr) To UBound(arr) Cells(1, counter + 1).Value = arr(counter) Next counter
简单….
Dim counter As Integer For counter = 1 To 10 Cells(1, counter).Value = array(counter - 1) Next counter