[已解决]数组输出1例

爱疯

fW7L7lOf.rar (7.28 KB, 下载次数: 1)

2010-9-2 19:38 上传

点击文件名下载附件
数组输出1例

当只需将数组某一部分内容输出时，请问有无简单办法？

谢谢！

 

Sub aa()
    Dim arr
    arr = [a1:h10]

    '输出
    '?????????????
End Sub

最佳答案

月排行榜 / 总排行榜

amulee

2010-9-2 20:06

Sub ABC()
    Dim arr
    arr = [a1:h10]

    For i = 3 To 6
        Cells(15, i - 2).Resize(UBound(arr, 1)) = WorksheetFunction.Index(arr, 0, i)
    Next i
End Sub

跳转到最佳答案楼层

amulee

Sub ABC()
    Dim arr
    arr = [a1:h10]

    For i = 3 To 6
        Cells(15, i - 2).Resize(UBound(arr, 1)) = WorksheetFunction.Index(arr, 0, i)
    Next i
End Sub

爱疯

谢谢阿木！

以为还能有神奇一句

[em04]