二维动态数组定义的时候有局限性，怎么解决？

Kmasbox

Sub 弯沉()
Dim arr(), brr(), arr1()
arr = Range("a1:c29")
brr = Range("w3:w202")

'此处找路基段落
For i = 1 To UBound(arr)
If arr(i, 1) = "路基" Then

n = n + 1
ReDim Preserve arr1(1 To n, 1 To 3)----此处会显示下标越界，我看了一下，动态数组定义保存只对最后一位生效，这个咋解决？
arr1(n, 1) = arr(i, 1)
arr1(n, 2) = arr(i, 2)
arr1(n, 3) = arr(i, 3)

End If
Next i

ykcbf1100

ReDim Preserve arr1，这个定义没必要吧
可以这样定义：dim arr1(1 to 10000,1 to 100)

ynzsvt

方法一、
在for循环前ReDim arr1(1 To ubound(Arr), 1 To 3)
浪费点内存空间以方便编程
方法二、
在for循环内ReDim Preserve arr1(1 To 3, 1 To n)
数组转置存放后，循环结束再转置回去
方法三、
采用字典等方式获取一维数据，然后组合。

Kmasbox

ykcbf1100 发表于 2024-11-24 16:12
ReDim Preserve arr1，这个定义没必要吧
可以这样定义：dim arr1(1 to 10000,1 to 100)

那个arr（）里面有桥，也有路基，而且每次在Range("a1:c29")填的东西都同，要判断一下，把路基的提出来

Kmasbox

ynzsvt 发表于 2024-11-24 16:14
方法一、
在for循环前ReDim arr1(1 To ubound(Arr), 1 To 3)
浪费点内存空间以方便编程

感谢大佬

ykcbf1100

Kmasbox 发表于 2024-11-24 16:19
那个arr（）里面有桥，也有路基，而且每次在Range("a1:c29")填的东西都同，要判断一下，把路基的提出来

和你不在一起频道上，算了

dambcer

直接搞10万行的

leolee82

用转置的方法

leolee82

或者更有效的是，写个ReimPreserve函数。预先定义一个相对较大的数组，函数里判断是否需要扩容，需要的话就定义一个更大的（原数组的2倍或1.5倍），再复制原数组数据进去。

opiona

如果数组较小 可以 Reim Preserve
如果数组较大 建议声明一个足够大的空数组
https://blog.csdn.net/lon0619/article/details/97041036