求教，关于用redim重定义数组？

jiang42152

各位好，有一个redim的问题求教。
使用如下的代码：
dim arr
for i = 1 to 10
    redim arr(3)
    debug.print ubound(arr) ----   结果为3
    arr = range("A1:Z100")
    debug.print ubound(arr) ----   结果为100
next   
这是不是说明，使用单元格区域给数组型变量赋值，直接就改变了数组的维度和长度，之前redim定义的维度和长度可以被直接覆盖？求教，谢谢。

蓝桥玄霜

按你的例子是直接覆盖的，还有另外的用法：
r = r + 1
ReDim Preserve arr1(1 To r)
arr1(r) = i
可以保持前面的赋值继续存在，可以陆续增加。

jiang42152

明白了，非常感谢老师

柠檬酱酱籽

蓝桥玄霜 发表于 2017-2-5 09:36
按你的例子是直接覆盖的，还有另外的用法：
r = r + 1
ReDim Preserve arr1(1 To r)

请问 二维数组 重定义怎样才能保留原有赋值?

arr(1 to 13,1 to 16)
保留arr里的赋值,
重定redim arr(1 to 20,1 to 16)

该怎样写呢?

zxsea_7426

柠檬酱酱籽 发表于 2023-1-14 02:51
请问 二维数组 重定义怎样才能保留原有赋值?

arr(1 to 13,1 to 16)

变动的要在后面(第二维)
原始动态数组需要重新定义，最后再转置
arr(1 to 16,1 to 13)
保留arr里的赋值,
重定redim preserve arr(1 to 16,1 to 20)
输出时可以使用再转置application.transpose(如果数量大，转置不了的，可以再次<中转数组>进行赋值)

另外一种方法，就是初始定义一个容量较大的数组，然后根据计数器来进行赋值,
比如初始定义arr(1 to 10000,1 to 16)

然后赋值时进行计数，输出时根据计数器进行输出（使用resize）。



结果再转置

mmwwdd

上VBA论坛的人都这么穷吗?一本书都买不起?