Preserve保留数据扩充数组大小，总是报错下标越界

cjq253 · 发表于 2019-6-13 10:15

本帖最后由 cjq253 于 2019-6-13 10:27 编辑

代码如下
ReDim DataChangeArr(1 To 1, 1 To 9)       ‘定义1行9列数组
DataChangeArr = Sheet3.Range("B2:J2")    ’将单元格数据写入数组
DataChangeArr = Application.WorksheetFunction.Transpose(DataChangeArr)    ‘转置数组
ReDim Preserve DataChangeArr(9, UBound(DataChangeArr, 2) + 1)    ’扩充数组，将末维扩充，报错下标越界

找到原因了，定义数组时加了1 to  x，扩充时也必须加1 to x~

cjq253 · 发表于 2019-6-13 10:22

另有一个一维数组扩充也是失败，什么原因？
ReDim ChangeArr(1 To 1)
ReDim Preserve ChangeArr(UBound(ChangeArr) + 1) ‘报错下标越界。。。

w609053988 · 发表于 2019-6-13 10:36

两次申明格式要保持一致，改成1 to ubound(arr)

w609053988 · 发表于 2019-6-13 10:37

另外数组扩充，只能更改最后一维的长度

		自动登录	找回密码
密码			免费注册

[已解决] Preserve保留数据扩充数组大小，总是报错下标越界

评分