[已解决]改变二维数组维数，错在哪里？

dpdmlym

Sub 增加数组维数()
    '我想把原数组(2行4列)扩充到3行4列,前三行要保留原来的数据
    Dim Myarr
    Myarr = Range("a1:d2")
    Myarr = Application.WorksheetFunction.Transpose(Myarr)
    ReDim Preserve Myarr(0 To 3, 0 To 2)    '为什么不行？应该如何？

1. '下标用错了，应该
   
2. ReDim Preserve Myarr(1 To 4, 1 To 3)

复制代码

Myarr = Application.WorksheetFunction.Transpose(Myarr)
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-11-29 08:58

Sub 增加数组维数()
    Dim Myarr
    Myarr = Range("a1:d2")
    Myarr = Application.WorksheetFunction.Transpose(Myarr)
    ReDim Preserve Myarr(1 To 4, 1 To 3)  
    Myarr = Application.WorksheetFunction.Transpose(Myarr)
End Sub

跳转到最佳答案楼层

zjdh

Sub 增加数组维数()
    Dim Myarr
    Myarr = Range("a1:d2")
    Myarr = Application.WorksheetFunction.Transpose(Myarr)
    ReDim Preserve Myarr(1 To 4, 1 To 3)  
    Myarr = Application.WorksheetFunction.Transpose(Myarr)
End Sub

兰色幻想

如二楼所说，在使用ReDim Preserve重置数组大小时，只能对最后一维的数组大小进行调整，有时为了调整第一维的大小，先转置，再扩充，扩充后再转置回来

dpdmlym

哈哈，知道错哪了
应该： ReDim Preserve Myarr(1 To 4, 1 To 3)
这样就行了

兰色幻想

建议楼主多使用F1，如果查看一下ReDim Preserve的帮助，你就可以找到原因了

dpdmlym

兰色幻想 发表于 2012-11-29 09:06
建议楼主多使用F1，如果查看一下ReDim Preserve的帮助，你就可以找到原因了

谢谢啦   兰色幻想
得到你回复，真是荣幸