|
5学分
如果是一维数组,下面的代码成立
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)
|
|