ReDim Preserve 下标越界

12111683

Sub test1()
Dim arr
arr = Range("a1:b10")
ReDim Preserve arr(1 To 20, 1 To 2)
End Sub


把A1到B10添加到arr数组，生成一个数组，以前用只用ReDim，重新定义一个数组数据就清空了，后来看教程说是用ReDim Preserve可以，在这个arr后面再加10行，就提示我下标越界，看帖子说应该是ReDim Preserve arr(1 To 2， 1 To 20) 也是越界。问下各位老师这个ReDim Preserve语法怎么使用啊

cidanji

只能改变第二维（最后一维）

xunanming

数组可分为固定数组,动态数组.如dim arr,brr(1 to 10,1 to5)是固定数组.dim crr()就是动态数组.
固定数组是无法进行redim的.
动态数组则可以.如,redim crr(n). 或redim preserve crr(1 to 8, 1 to n).

全党

单元格区域生成的是二维数组，arr = Range("a1:a10")也是二维，redim只能改最后一维