从0开始循环(而不是1)
从0开始循环(而不是1)
提问于 2016-07-16 16:08:09
为什么我不能在0开始执行循环呢？
Dim counter As Integer
For counter = 1 To 10
Cells(0, counter).Value = arr(counter)
Next counter这将忽略数组中的第一个索引。
这个问题有没有可能的解决办法？
回答 3
Stack Overflow用户
回答已采纳
发布于 2016-07-16 16:23:45
作为@拉尔夫所指出的另一种选择，您可以使用Offset of Range (因此两者都使用)，您的数组和范围引用将从0开始：
Dim counter As Integer
For counter = 0 To 9
Cells(1, 1).Offset(0, counter).Value = arr(counter)
Next counterP.S.：避免命名数组array，因为这里有一个具有相同名称的VBA函数。您可以使用类似于arr的东西。
Stack Overflow用户
发布于 2016-07-16 17:13:11
您可以使用选项库1，但它对数组索引的内容和方式有有限的控制。
分裂函数总是创建一个基于零的一维数组，不管您是否将默认值更改为Option Base 1。
将工作表.Value大容量加载到变体数组中总是会产生基于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 counterStack Overflow用户
发布于 2016-07-16 16:19:38
很简单..。
Dim counter As Integer
For counter = 1 To 10
Cells(1, counter).Value = array(counter - 1)
Next counter页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/38412999
复制相关文章
相似问题
腾讯云开发者
