[已解决]引用数组中的连续几列的表示方法

jiangslly

  Sheets("DDDD").[ai1].Resize(UBound(arr)) = Application.Index(arr, , 35)
如果我想把数组中的15-28列放到单元格中，怎么表示

最佳答案

月排行榜 / 总排行榜

爱疯

2017-1-12 16:28

    Sheets("在职").Select
    [a3].Resize(UBound(brr), UBound(brr, 2)) = brr
    '这里想根据需要，只要把上面运算变化的列复制到单元格就好（16-22、12、33），
    '    其他的不从数组中输出，因为第23列有公式，不想有变化
    [w3] = "=SUM(R3:V3)"
    Range("w3:w" & k + 1).FillDown
    [ap3] = "=SUM(AK3:AO3)"
    Range("ap3:ap" & k + 1).FillDown




在数组全部输出后，加这4句，是这样吗

跳转到最佳答案楼层

望帝春心

RESIZE要加上列的参数

jiangslly

望帝春心 发表于 2017-1-12 09:28
RESIZE要加上列的参数

要怎么加？

爱疯

把数组全部输出，再删去1到14列所占的区域。

如果不愿这么做，建议上传附件。

望帝春心

jiangslly 发表于 2017-1-12 10:07
要怎么加？

没附件不知道怎么加

jiangslly

爱疯 发表于 2017-1-12 10:18
把数组全部输出，再删去1到14列所占的区域。

如果不愿这么做，建议上传附件。

附件在此，谢谢

jiangslly

爱疯 发表于 2017-1-12 10:18
把数组全部输出，再删去1到14列所占的区域。

如果不愿这么做，建议上传附件。

有解了没

上清宫主

循环取数比Index快多了

爱疯

    Sheets("在职").Select
    [a3].Resize(UBound(brr), UBound(brr, 2)) = brr
    '这里想根据需要，只要把上面运算变化的列复制到单元格就好（16-22、12、33），
    '    其他的不从数组中输出，因为第23列有公式，不想有变化
    [w3] = "=SUM(R3:V3)"
    Range("w3:w" & k + 1).FillDown
    [ap3] = "=SUM(AK3:AO3)"
    Range("ap3:ap" & k + 1).FillDown




在数组全部输出后，加这4句，是这样吗