[已解决]谢谢北部湾老师 分类汇总出错了

lhj323323

老师：
上传的附件中有详细的说明，并附有写好的程序，但是提示越界了，请帮忙看看我错在哪儿了，谢谢。

最佳答案

月排行榜 / 总排行榜

北部湾

2011-4-5 08:28

For k = 0 To Dic1.Count-1  

ReDim Arr2(1 To UBound(Arr4)+2 , 1 To 3 + Dic1.Count)

跳转到最佳答案楼层

北部湾

  For k = 0 To Dic1.Count   字典Dic1是从1到4 有4个数据
  'If Arr1(j, 5) = Arr3(k) Then '如果证券简称相同
  If InStr(Arr1(j, 5), Arr3(k)) > 0 Then '如果证券简称相同  
数组Arr3从0开始到3结束，你让他循环到4 ，它没地方给你装4，挤爆了
Arr2(I + 2, 3) = Arr2(I + 2, 3) + Arr1(j, 7) '"合计"
Arr2(I + 2, k + 4) = Arr2(I + 2, k + 4) + Arr1(j, 7)
End If
Next k

北部湾

Arr2(I + 2, 1) = Arr4(I)

也是同样的问题

你前面再定义语句ReDim Arr2(1 To UBound(Arr4) , 1 To 3 + Dic1.Count)
限定了ARR2的最大行和ARR4一致，Arr2(I + 2, 1) 装那？别说+2，+1都挤爆了

lhj323323

回复 北部湾 的帖子

那该怎么改呢？

北部湾

lhj323323 发表于 2011-4-4 20:23
回复 北部湾 的帖子

那该怎么改呢？

{:111:}
+1 、+2修正啊

lhj323323

北部湾 发表于 2011-4-4 20:48
+1 、+2修正啊

那在哪一句加1，哪一句加2呢

For k = 0 To Dic1.Count   字典Dic1是从1到4 有4个数据   'If Arr1(j, 5) = Arr3(k) Then '如果证券简称相同   If InStr(Arr1(j, 5), Arr3(k)) > 0 Then '如果证券简称相同   数组Arr3从0开始到3结束，你让他循环到4 ，它没地方给你装4，挤爆了 Arr2(I + 2, 3) = Arr2(I + 2, 3) + Arr1(j, 7) '"合计" Arr2(I + 2, k + 4) = Arr2(I + 2, k + 4) + Arr1(j, 7) End If Next k

北部湾

For k = 0 To Dic1.Count-1  

ReDim Arr2(1 To UBound(Arr4)+2 , 1 To 3 + Dic1.Count)

lhj323323

回复 北部湾 的帖子

北部湾老师：
我修改后，程序虽然不报错了，但是又出现了问题，现，我将附件上传上来，请看看

lhj323323

回复 lhj323323 的帖子

向朋友们求助