[已解决]一个数组下标为何是从0开始循环的问题

秋意正浓

一个数组下标为何是从0开始循环的问题:
Sub e2()
   Dim ARR, arr1, arr2(1 To 1000, 1 To 2), arr3
  Set d = CreateObject("scripting.dictionary")
   ARR = Range("a2:c6")
    For x = 1 To UBound(ARR)
      d(ARR(x, 1) & "-" & ARR(x, 2)) = d(ARR(x, 1) & "-" & ARR(x, 2)) + ARR(x, 3) '把需要汇总的列进行连接
    Next x
   
    arr1 = d.Keys
    For y = 0 To UBound(arr1) '问题，为什么不是for y =1 to ubound(arr1)???
      arr3 = Split(arr1(y), "-") '
      arr2(y + 1, 1) = arr3(0) '问题,arr3(0),代表什么意思，是不是和arr3(0,1)相同的意思？
      arr2(y + 1, 2) = arr3(1)
    Next y
   Range("f2").Resize(d.Count, 2) = arr2
   Range("h2").Resize(d.Count) = Application.Transpose(d.Items)
  End Sub
有附件

最佳答案

月排行榜 / 总排行榜

zjdh

2012-9-21 17:39

1.  d.Keys 赋值给数组下标就是0
2.  Split(arr1(y), "-") 赋值给数组，数组是一维数组，下标也是0

跳转到最佳答案楼层

zjdh

1.  d.Keys 赋值给数组下标就是0
2.  Split(arr1(y), "-") 赋值给数组，数组是一维数组，下标也是0