下标越界

emmahhm

Sub dd()
arr = [a1].CurrentRegion
ReDim brr(1 To 10001)
For i = 0 To UBound(arr)
     s = arr(i)
   If InStr(s, ",") Then
      b = Split(s, ",")
      For j = 0 To UBound(b)
         n = n + 1
         brr(n) = b(j)
      Next
    Else
       n = n + 1
       brr(n) = s
    End If
Next
[b1].Resize(UBound(brr)) = brr
End Sub

一直提示下表越界，请教高手哪里越界了？

sandorn

所有单元格赋值给数组的，不管是怎么形状的单元格，所得的数组都是二维数组。我的理解是  一维数组下标从0开始，就是一行数据，横排的；


二维数组下标1开始

emmahhm

For i = 1 To UBound(arr) 改成1 还是提示下标越界

望帝春心

emmahhm 发表于 2017-4-7 17:35
For i = 1 To UBound(arr) 改成1 还是提示下标越界

点一下重新设置，再运行程序试试

emmahhm

不行啊

emmahhm

或者是代码哪里是错的？

raymanrrr

sandorn 发表于 2017-4-7 17:27
所有单元格赋值给数组的，不管是怎么形状的单元格，所得的数组都是二维数组。我的理解是  一维数组下标从0 ...

基本百分百的编程语言的数组下标都是从0开始的，vb也不例外，只是把单元格写入数组的方法得到的下标是从1开始，和一维二维没有任何关系

楼主的问题是使用一个下标去索引二维数组   for 需要从1开始    s = arr(i) 需要使用两个下标

代码我也没细看，顺带吐个槽……我寻思着arr是array的简写，arr brr crr的命名方法不知道是何人传播开的，点美感都没有

至于横排的单元格还是二维数组，只不过是(1,1) (1,2) (1,3)...(1,n) 的形式

再给个提示就是如果直接运行会提示下标越界，单步执行会到越界那行才提示，下次哪里再下标越界楼主就知道怎么看了吧

kaio

上传附件，还有你的BRR边界是否低于arr的边界

sandorn

arr(1,1)