ReDim Preserve 二维数组逐渐增加

xdwy81129 · 发表于 2011-1-20 18:49

如果是一维数组，下面的代码成立
Dim arrbiao()
dim k&
for i = 1 to n
If arr(i, 1)<> Then
k=k+1
ReDim Preserve arrbiao(k)
arrbiao(k) = arr(i, 1)
next i

现在我需要把上面例子中的arrbiao改变为二维数组，应该怎么定义呢？？

Sub 重新二维数组()
Dim arrbiao()
Dim k&
arr = [h2:h600]
n = 599
jn = 5
ReDim arrisq(1 To jn, 1 To 1)
For i = 1 To n
For j = 1 To jn

If arr(i, 1) <> "" Then
arrisq(j, 1) = arrisq(j, 1) + 1
ReDim Preserve arrbiao(arrisq(j, 1), j) '此处可以设定为能增加的二维数组
   If arr(i, 1) = 14 Then
   Stop

   arrbiao(arrisq(j, 1), j) = arr(i, 1)

   GoTo 1234

   ElseIf arr(i, 1) = 12 Then

   arrbiao(arrisq(j, 1), j) = arr(i, 1)

   GoTo 1234

' elseif ……
End If
End If
Next j
1234
Next i
'Stop
End Sub

红字部分运行提示错误：下标越界
经在不查看，发现是arrisq(j, 1) 刚开始=2时出现错误，不知道应该怎么纠正，请指教

注明：问的是渔，不是问鱼

重新二维数组.rar (10.92 KB, 下载次数: 31)

开辆小富康 · 发表于 2011-1-20 19:34

ReDim Preserve arrbiao(arrisq(j, 1), j)
只有末尾可以反复重新定义，也就是说你这个数组的第一维不能用arrisq(j, 1)来重新定义的

xdwy81129 · 发表于 2011-1-20 19:37

回复开辆小富康的帖子

那应该怎么来解决这个问题呢？？

arrisq(j, 1)也是一个常数了，怎么不可以用呢？？？

开辆小富康 · 发表于 2011-1-20 19:43

只有末维可以反复重新定义。你的所谓常数，在循环体中，值在不断变化，是一个变量。

xdwy81129 · 发表于 2011-1-20 19:47

回复开辆小富康的帖子

意思是二维数组只可以让列变为变量，不可以让行变成变量？？？

放浪形骸 · 发表于 2011-1-20 19:57

xdwy81129 发表于 2011-1-20 19:47
回复开辆小富康的帖子

意思是二维数组只可以让列变为变量，不可以让行变成变量？？？

是这样的意思。
或者你想把后面的当成行，前面的当成列的话也是可以理解的。

放浪形骸 · 发表于 2011-1-20 19:57

或者你想把后面的当成行，前面的当成列的话也是可以的，就可以达到你所需要的反过来的效果

龙猫 · 发表于 2011-1-20 20:00

同意小富观点

xdwy81129 · 发表于 2011-1-20 20:02

回复放浪形骸的帖子

写成：ReDim Preserve arrbiao（ j，arrisq(j, 1)）？？

这里j是也要变的数据，只是知道范围，arrisq(j, 1)是逐渐增加的

xdwy81129 · 发表于 2011-1-20 20:06

回复放浪形骸的帖子

写成： ReDim Preserve arrbiao(j, arrisq(j, 1))
arrbiao(j, arrisq(j, 1)) = arr(i, 1)

还是提示下标越界

		自动登录	找回密码
密码			注册