一维数组赋值和输出的问题

这几天在研究直接通过单元格区域给数组赋值，有些很玄的东西真是搞不懂。特求教于高手。

Sub test2() Dim myData() Dim MyRange As Range Dim i As Integer Set MyRange = Range("A1:A27") ReDim myData(1 To 27) 'myData() = MyRange.Value For i = 1 To 27 myData(i) = Cells(i, 1).Value Next Range("C1:C27").Value = myData() For i = 1 To 27 Cells(i, 5) = myData(i) Next End Sub 在test2过程里面假设A1:A27单元格里面为1到27的数字，如果这样给数组赋值： myData() = MyRange.Value 那么，数组可以用以下方式输出： Range("C1:C27").Value = myData() ’C列得到1到27 但是，不可以按下述方式输出，出现下标越界的错误： For i = 1 To 27 Cells(i, 5) = myData(i) Next 为什么？? 如果以下述方法给数组赋值： For i = 1 To 27 myData(i) = Cells(i, 1).Value Next 那么，用下述语句输出数组时，只能得到第一个值1 Range("C1:C27").Value = myData() ’C列全是1 但是可以用下面的方式得到1到27的结果： For i = 1 To 27 Cells(i, 5) = myData(i) Next 为什么？？？

Sub test3() Dim myData() Dim MyRange As Range Dim i As Integer Set MyRange = Range("A1:B27") ReDim myData(1 To 27, 1 To 2) myData() = MyRange.Value For i = 1 To 27 myData(i, 1) = Cells(i, 1).Value myData(i, 2) = Cells(i, 2).Value Next ‘Range("C1:D27").Value = myData() For i = 1 To 27 Cells(i, 7) = myData(i, 1) Cells(i, 8) = myData(i, 2) Next i End Sub 对于二维数组，好像没有上面奇怪的问题。

myData() = MyRange.Value myData()是垂直数组

For i = 1 To 27 myData(i) = Cells(i, 1).Value Next myData()是水平数组

Sub test() Dim myData(1 To 20) Dim i As Integer

For i = 1 To 20 myData(i) = Cells(i, 1).Value Next Range("C1:C20").Value = myData End Sub

我倾向于接受二楼的解释，因为，上面的运行结果还是数组的第一个值。

我认为CHENJUN兄的解释更透彻。水平数组、垂直数组的概念没有听说过，孤陋寡闻啊。

确实是我们孤陋寡闻哦，请看贴图，这是下面代码的运行结果。

Sub test() Dim myData(1 To 20) Dim i As Integer

For i = 1 To 20 myData(i) = Cells(i, 1).Value Next 'Range("C1:C20").Value = myData Range(Cells(1, 2), Cells(1, 21)).Value = myData End Sub

Range("C1:C27").Value = myData() 返回一个1为数组，通常1唯数组可以用例如myData(10)来表示， 等价于myData(10,0)其中0可以省略，excel内定数组由0起始，也可以人为定义起始数，如myData(1 to 10,1 to 1).由Range("C1:C27").Value = myData() 所获得的数组就属于这种情况（列和行对应序号由1开始而不是0，类似于range()的调用）。调用数组可以用：

For i = 1 To 27 Cells(i, 5) = myData(i，1) Next

Sub test()

Dim myData(1 To 20)

Dim i As Integer

For i = 1 To 20

myData(i) = Cells(i, 1).Value

Next

Range("C1:C20").Value = Application.Transpose(myData) '垂直与水平一说见 Transpose 说明 End Sub

起始列（或行）为0的1唯数组，0可以省略，起始列（或行）为1的1唯数组1不能省略，多唯数组唯数标示均不可省略