[已解决]VBA 数组 往单元格里赋值

hoogle

VBA 数组 往单元格里赋值  该怎么写代码？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-16 13:39

梅一枝 发表于 2012-12-16 13:33
如果数组是二维的 就直接赋值
Range("j20").Resize(UBound(ARR), 2) = ARR
如果数组是一维的 需要转置

如果是一维的话，
Range("j20").Resize(UBound(ARR), 2) = application.transpose(ARR)
REsize列参数可以不用写了。
还有就是注意一维的维数。
Range("j20").Resize(UBound(ARR)+1) = application.transpose(ARR)
默认为0起点的时候，ubound要加1

跳转到最佳答案楼层

梅一枝

如果数组是二维的 就直接赋值
Range("j20").Resize(UBound(ARR), 2) = ARR
如果数组是一维的 需要转置
Range("j20").Resize(UBound(ARR), 2) = application.transpose(ARR)
这样的，单元格地址跟resize 区域 还有数组变量名称 根据实际情况作调整。

hwc2ycy

梅一枝 发表于 2012-12-16 13:33
如果数组是二维的 就直接赋值
Range("j20").Resize(UBound(ARR), 2) = ARR
如果数组是一维的 需要转置

如果是一维的话，
Range("j20").Resize(UBound(ARR), 2) = application.transpose(ARR)
REsize列参数可以不用写了。
还有就是注意一维的维数。
Range("j20").Resize(UBound(ARR)+1) = application.transpose(ARR)
默认为0起点的时候，ubound要加1

梅一枝

接受   改正

冠军欧洲2010

楼主是VBA的高手了，怎么还会问这个问题呢？