[已解决]求助，为何redim后 re的数组里面值全为空？

likeblue

Sub aa()
Dim arr, x, aa, bb, xx, cc, d, s
arr3 = Range("x5").CurrentRegion.Value
'x5 的区域都是非空数值
ReDim re(1 To UBound(arr3) * 8, 1 To 1)
MsgBox re(6, 1)
For i = 1 To UBound(arr3)
For ii = 1 To 8
Cells(i, ii) = re(i, 1)
Next
Next
End Sub

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-4-3 15:19

1. Sub aa()
   
2.     Dim arr, x, aa, bb, xx, cc, d, s
   
3.     Dim re()  '下面需要重新定义数组，所以开始要先定义re为一个数组
   
4.     arr3 = Range("x5").CurrentRegion.Value
   
5.     'x5 的区域都是非空数值
   
6.     ReDim re(1 To UBound(arr3) * 8, 1 To 1) '因为重新定义了数组，所以数组是空的
   
7.     '如果重新定义前，数组赋值过，REDIM 后也会把数组清空的
   
8.     '如果数组赋值过，REDIM 时还要保留源数据，需要加上 Preserve关键字
   
9.     '写法  ReDim Preserve re(1 To UBound(arr3) * 8, 1 To 1)
   
10.     '新数组re赋值，可以使用循环的方法进行赋值
    
11.    
    
12.     MsgBox re(6, 1)
    
13.     For i = 1 To UBound(arr3)
    
14.         For ii = 1 To 8
    
15.             Cells(i, ii) = re(i, 1)
    
16.         Next
    
17.     Next
    
18. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

你没有加preserve关键字，所以全空了。
redim preserve试试。

likeblue

hwc2ycy 发表于 2014-4-3 12:33
你没有加preserve关键字，所以全空了。
redim preserve试试。

提示类型不匹配~~~

likeblue

Sub aa()
Dim arr, x, aa, bb, xx, cc, d, s
arr3 = Range("x5").CurrentRegion.Value
'x5 的区域都是非空数值
Cells(1,1).resize(7,8) = arr3
End Sub

请问能否这样 得到数组里面的值，数组是7x8

ghostjiao

你前面也没定义re数组啊，怎么会用redim呢{:1312:} 第二种方法能得到值

hwc2ycy

如果要保留值改变数组的大小，只能修改数组的最后一维大小。
类型不匹配是因为re没有声明，你改成dim re()

likeblue

hwc2ycy 发表于 2014-4-3 13:11
如果要保留值改变数组的大小，只能修改数组的最后一维大小。
类型不匹配是因为re没有声明，你改成dim re() ...

求助

比如是个10X10的数组，我只取其中 从第三行开始，3X3 怎么形成以个新的数组？？？？

hwc2ycy

likeblue 发表于 2014-4-3 14:17
求助

比如是个10X10的数组，我只取其中 从第三行开始，3X3 怎么形成以个新的数组？？？？

通过循环取。

hwc2ycy

1. Sub demo()
   
2.     Dim arr, arr2()
   
3.     Dim i%, j%
   
4.     arr = Range("a1:j10").Value
   
5.     ReDim arr2(1 To 3, 1 To 3)
   
6.     For i = 3 To 5
   
7.         For j = 1 To 3
   
8.             arr2(i - 2, j) = arr(i, j)
   
9.         Next
   
10.     Next
    
11.     'Stop
    
12. End Sub
    

复制代码

那么的帅

1. Sub aa()
   
2.     Dim arr, x, aa, bb, xx, cc, d, s
   
3.     Dim re()  '下面需要重新定义数组，所以开始要先定义re为一个数组
   
4.     arr3 = Range("x5").CurrentRegion.Value
   
5.     'x5 的区域都是非空数值
   
6.     ReDim re(1 To UBound(arr3) * 8, 1 To 1) '因为重新定义了数组，所以数组是空的
   
7.     '如果重新定义前，数组赋值过，REDIM 后也会把数组清空的
   
8.     '如果数组赋值过，REDIM 时还要保留源数据，需要加上 Preserve关键字
   
9.     '写法  ReDim Preserve re(1 To UBound(arr3) * 8, 1 To 1)
   
10.     '新数组re赋值，可以使用循环的方法进行赋值
    
11.    
    
12.     MsgBox re(6, 1)
    
13.     For i = 1 To UBound(arr3)
    
14.         For ii = 1 To 8
    
15.             Cells(i, ii) = re(i, 1)
    
16.         Next
    
17.     Next
    
18. End Sub

复制代码