[已解决]数组 保留重新定义

釜底抽薪

1维数组就行，
Dim ar As Varian
dim c as Integer
ReDim ar(1 To 2)
if XX=XX THEN
             c = c + 2
            ReDim Preserve ar(1 To c)


2维数组就不行了
Dim ar As Varian
dim c as Integer
ReDim ar(1 To 1，1 to 5 )
if XX=XX THEN
             c = c + 2
            ReDim Preserve ar(1 To c，1 to 5)
循环1次能行  到了2次循环就不行了
2维数据 到了这里就是提示 小标越界

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-9-27 14:00

Preserve ——作用于数组的末维上
如：一维数组保留原值重新定义，是作用于下标  ReDim Preserve ar(1 To c)
     二维数组保留原值重新定义，是作用于二维（列）下标 ReDim Preserve ar(1 To 100，1 to c) ,行不能改变。
可以尝试把二维数组定义大一点，应该可以解决你的问题。如：redim ar(1 to 10000,1 to 5)

跳转到最佳答案楼层

哥儿-

Preserve ——作用于数组的末维上
如：一维数组保留原值重新定义，是作用于下标  ReDim Preserve ar(1 To c)
     二维数组保留原值重新定义，是作用于二维（列）下标 ReDim Preserve ar(1 To 100，1 to c) ,行不能改变。
可以尝试把二维数组定义大一点，应该可以解决你的问题。如：redim ar(1 to 10000,1 to 5)

釜底抽薪

哥儿- 发表于 2022-9-27 14:00
Preserve ——作用于数组的末维上
如：一维数组保留原值重新定义，是作用于下标  ReDim Preserve ar(1 To  ...

好吧，理解到了，2维不能保罗保留重新定义行