如何选择数组内的区域

mmczy2000

如何将数组内区域的值拷贝到表格里，例如arr(1,1)到arr(2,3)的值，复制到sheet1.range("a1")，除了用for语句实现，是否可以用offest选择数组的区域并select选择，并粘贴到sheet1.range("a1")。

lss001

'复制数组区域使用虚拟表转换比较方便

Sub 使用虚拟表复制数组指定区域()
    ar = [{1,2,3;4,5,6;7,8,9}] '二维数组
    Set sh = CreateObject("excel.sheet") '虚拟表
    With sh.ActiveSheet
    '先赋值到虚拟表
    .[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    '再复制虚拟表指定区域到Sheet1
    .Range("a1:b3").Copy  Sheet1.Range("a1")
    End With
    sh.Close '关闭虚拟表
End Sub