如何定义二维数组，其中一维大小确定，另外一维动态

yundong95

如何定义二维数组，其中一维大小确定，另外一维动态

小白，百度没百度到，希望大神能解答

yundong95

哒哒哒哒哒

maditate

yundong95 发表于 2018-2-6 10:58
哒哒哒哒哒

Sub test()
ReDim arr(1 To 10, 1 To 20)
For h = 20 To 25
ReDim Preserve arr(1 To 10, 1 To h + 1)

MsgBox "数据未维下界值为" & UBound(arr, 2)

Next h
End Sub

fyure

只能最后一维动态定义，如果要动态定义第一维得用transpose转置下，不过有限制。

cui26896

maditate 发表于 2018-2-6 11:09
Sub test()
ReDim arr(1 To 10, 1 To 20)
For h = 20 To 25

这里的Preserve是否一定不能省了，如果不能省，对上万数据是否会有速度上较大的影响，请侠圣有空了给个答复。

yjh_27

cui26896 发表于 2019-6-13 08:52
这里的Preserve是否一定不能省了，如果不能省，对上万数据是否会有速度上较大的影响，请侠圣有空了给个答 ...

Preserve不能省，否则原数据丢失了。循环可省，一步到位。

maditate

cui26896 发表于 2019-6-13 08:52
这里的Preserve是否一定不能省了，如果不能省，对上万数据是否会有速度上较大的影响，请侠圣有空了给个答 ...

这个省不省要看自已的具体情况而定了。如果省去，则数组里原有存储的数据就不见了，等于重新定义数组。如果不加上Preserve，意思是数组里的已经存在的数据仍然给你保持着。

cui26896

谢谢两位前辈的答复。