请教个简单数组写法

shizx98

从狼版主这里总能学到很多东西，谢谢了。

hhzjxss

谢谢了，数组偶是一知半解，先看看再说吧！

水星钓鱼

自己先做个再来仔细学习来高手们的

Sub a()
Dim arr, i%, j%, k
arr = Range("a1:a12")
For i = 1 To Range("b1:e3").Columns.Count
For j = 1 To Range("b1:e3").Rows.Count
Range("b1:e3").Cells(j, i) = arr(j + (i - 1) * 3, 1)
Next j
Next i
End Sub