将数组写入不连续的单元格范围

Question

我想将数据写入Excel中的非连续选区，如下所示：

我尝试在该范围内编写一个二维数组，但它似乎不起作用：

Dim arr()
ReDim arr(1 To 1, 1 To 5)
arr(1, 1) = 1
arr(1, 3) = 3
arr(1, 5) = 5

Dim r As Range
Set r = Range("A1,A3,A5")
r.Value = arr

我出错的任何想法？

Answer 1

在C＃和VBA中找到msdn上的答案：http://blogs.msdn.com/b/eric_carter/archive/2004/05/04/126190.aspx