[已解决]如何不用循环直接给一个二维数组赋值？

被禁锢的风

我定义了一个2行3列的数组。

想给他直接赋值下面的值：

            第一列   第二例   第三列

第一行     11        12          13

第二行     21        22          23

如何编写代码？

最佳答案

月排行榜 / 总排行榜

oobird

2010-1-18 11:25

Sub yy()
arr = [{1,2,3,4,5;6,7,8,9,10}]
[a1:e2] = arr
End Sub

跳转到最佳答案楼层

喜多多

Sub t()
Dim arr(1 To 2, 1 To 3) As String
Dim i As Integer
Dim j As Integer
For i = 1 To 2
    For j = 1 To 3
        arr(i, j) = i & j
    Next
Next

End Sub

leolee82

dim arr

arr=[a1:c2]

雨狐

QUOTE:

以下是引用leolee82在2010-1-15 18:04:00的发言：

dim arr

arr=[a1:c2]

同解

喜多多

QUOTE:

以下是引用leolee82在2010-1-15 18:04:00的发言：

dim arr

arr=[a1:c2]

小李子，如果[a1:C2]空空呢

被禁锢的风

要求：

1不用循环。

2直接赋值，不是通过先赋值给单元格，再赋值给数组的。

oobird

Sub yy()
arr = [{1,2,3,4,5;6,7,8,9,10}]
[a1:e2] = arr
End Sub