[已解决]数组输出到单元格区域

爱疯

经常遇到，数据源到数组，运算完，输出时，结果区域却只需要其中不连续的几列。

我只想到：

方法1、输出到“中转区域”，删除不要的列，将结果复制回结果区。

方法2、有直接在数组内完成删除的方法吗？

请问：应怎样对待这种情况，会用到方法2吗，如果会方法2怎么做，还是用更好方式。

谢谢！

rowM82y6.rar (6.6 KB, 下载次数: 32)

2009-10-10 23:47 上传

点击文件名下载附件
数组输出到单元格区域

最佳答案

月排行榜 / 总排行榜

amulee

2009-10-11 00:48

Sub Test()
    arr = Sheet1.Range("A1:H27")
    arr2 = Array(1, 2, 5, 7)
    For i = 0 To 3
        Sheet2.Cells(1, i + 1).Resize(UBound(arr, 1), 1) = WorksheetFunction.Index(arr, 0, arr2(i))
    Next i
End Sub

跳转到最佳答案楼层

函数小菜鸟

方法1：速度较慢，不建议采用

方法2：数组删除方法好象没有，只有数组初始化，但所有数据都没有了

建议采用：

重新定义一个新数组，然后利用循环把原数组中需要的值赋值给新数组就可以了

amulee

直接取呗，用Worksheetfuncion.Index

爱疯

谢谢函数小菜鸟，amulee！

都说重新组合数组，那用Worksheetfuncion.Index后，都成1列列了。

如附件输出4列，不是要4次输出呀

[em04]

amulee

Sub Test()
    arr = Sheet1.Range("A1:H27")
    arr2 = Array(1, 2, 5, 7)
    For i = 0 To 3
        Sheet2.Cells(1, i + 1).Resize(UBound(arr, 1), 1) = WorksheetFunction.Index(arr, 0, arr2(i))
    Next i
End Sub

爱疯

学习了，以后就照这样做[em04]

函数小菜鸟

重构数组  INDEX引用都是可以解决的方法。只是习惯不同而已。

至于速度有多大差异，没有测试，爱疯可以测试下。感觉还是数组快些。

zsd5237

学习[em02][em02]

zgwei050

学习[em01]

爱疯

QUOTE:

以下是引用函数小菜鸟在2009-10-11 0:51:00的发言：

重构数组  INDEX引用都是可以解决的方法。只是习惯不同而已。

至于速度有多大差异，没有测试，爱疯可以测试下。感觉还是数组快些。

谢谢函数小菜鸟！！

[em27][em27]