[已解决]2维数组如何直接赋值给多行多列单元格？

和气生财

arr(1,2,3,4,5; a,b,c,d,e) 如何直接赋值给2行5列，
就像 range("a1:e1") = arr(1,2,3,4,5) 一样？

是否只能用循环？

谢谢。

[此贴子已经被作者于2009-12-23 11:41:14编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-23 12:16

Sub Test()
    Dim Arr(1 To 5, 1 To 2) '5行2列
    '以下语句为操作该数组。根据自己需要。
    For i = 1 To 5
        For j = 1 To 2
            Arr(i, j) = i & j
        Next j
    Next i
    '以下语句为输出，用Resize
    Range("A1").Resize(5, 2) = Arr
End Sub

跳转到最佳答案楼层

amulee

Sub Test()
    Dim Arr(1 To 5, 1 To 2) '5行2列
    '以下语句为操作该数组。根据自己需要。
    For i = 1 To 5
        For j = 1 To 2
            Arr(i, j) = i & j
        Next j
    Next i
    '以下语句为输出，用Resize
    Range("A1").Resize(5, 2) = Arr
End Sub

和气生财

QUOTE:

以下是引用amulee在2009-12-23 12:16:00的发言：

Sub Test()
    Dim Arr(1 To 5, 1 To 2) '5行2列
    '以下语句为操作该数组。根据自己需要。
    For i = 1 To 5
        For j = 1 To 2
            Arr(i, j) = i & j
        Next j
    Next i
    '以下语句为输出，用Resize
    Range("A1").Resize(5, 2) = Arr
End
  Sub

看来是我的数组存储是出了问题，而不是将数组赋值给单元格时出的问题。辛苦了，阿木，哈哈