|
兔子嘎嘎 发表于 2011-11-13 01:41
可以这样写吗,dim arr(0 to i, 0 to j) i是row号,j是column号,然后调取对应的cells.value
ReDim Preserve 只能改变数组的最后一维.
ReDim Preserve arr3(1 To row2 + 10) '通过。
ReDim Preserve arr2(1 To row2, 1 To 18 + 10) '通过。
ReDim Preserve arr2(1 To row2 + 10, 1 To 18) '出错
如果要改变第一维,可以这样:用Transpose变为数组的最后一维,运行后再用Transpose 还原。
arr2 = WorksheetFunction.Transpose(Range(Cells(2, 1), Cells(row2, 18)))
ReDim Preserve arr2(1 To 18, 1 To row2 + 5)
For k = 1 To 18
arr2(k, row2 + 5) = k
Next
[A2].Resize(row2 + 5, 18) = WorksheetFunction.Transpose(arr2)
。。。
|
|