ReDim Preserve 能不能用于把单元格装数组？

jinbo3535 · 发表于 2013-9-25 22:31

本帖最后由 jinbo3535 于 2013-9-25 22:36 编辑

sub A()

sj= .Range("a21:u" & 处理区_终点行数)
···············
ReDim Preserve sj= .Range("a21:u" & 处理区_终点行数+1)
···················
Endsub

还是只能先把数组赋值给单元格，再把单元格装入数组？

HHAAMM · 发表于 2013-9-25 22:36

sj= .Range("a21:u" & 处理区_终点行数).Value
这句运行后sj就已经是数组了

jinbo3535 · 发表于 2013-9-25 22:37

本帖最后由 jinbo3535 于 2013-9-25 22:40 编辑

HHAAMM 发表于 2013-9-25 22:36
sj= .Range("a21:u" & 处理区_终点行数).Value
这句运行后sj就已经是数组了

那想用ReDim Preserve，保留之前的数据的功能，数据加一行，有没有其它方法？

jinbo3535 · 发表于 2013-9-25 22:38

HHAAMM 发表于 2013-9-25 22:36
sj= .Range("a21:u" & 处理区_终点行数).Value
这句运行后sj就已经是数组了

还是只能先把数组赋值给单元格，再把单元格区域+1行再装入数组？

HHAAMM · 发表于 2013-9-25 22:43

ub xx()
Dim sj() As Variant
处理区_终点行数 = 100
sj = Range("a21:u" & 处理区_终点行数).Value
ReDim Preserve sj(1 To UBound(sj, 1), 1 To UBound(sj, 2) + 1)
End Sub

HHAAMM · 发表于 2013-9-25 22:46

如果想扩展第一维的下标，就得将数组转置

jinbo3535 · 发表于 2013-9-25 22:52

HHAAMM 发表于 2013-9-25 22:46
如果想扩展第一维的下标，就得将数组转置

我就是要加第一维，刚刚测试了一下，提示下标越界····

jinbo3535 · 发表于 2013-9-25 22:56

HHAAMM 发表于 2013-9-25 22:46
如果想扩展第一维的下标，就得将数组转置

谢谢您，那再向您请教一下：像这样的数组转置怎么写？转置后要赋值给单元格，是不是又要转置回来？

老谭酸菜 · 发表于 2013-9-25 22:57

ReDim Preserve 只允许扩展数组的末维。

HHAAMM · 发表于 2013-9-25 23:01

Sub xx()
Dim arr()
ReDim arr(1 To 1, 1 To 100)
MsgBox UBound(arr, 1) & " " & UBound(arr, 2)
arr = Application.Transpose(arr)
MsgBox UBound(arr, 1) & " " & UBound(arr, 2)
End Sub

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

[求助] ReDim Preserve 能不能用于把单元格装数组？

评分

评分

评分

[求助] ReDim Preserve 能不能用于 把单元格装数组？

评分

评分

评分

[求助] ReDim Preserve 能不能用于把单元格装数组？