VBA数组读写Excel行列单元格的值

　　数组是一个相当好的变量集合，里面可以存放许多按实际要求但是不可意料其值的值！

　　要使用数组，首先要定义数组，方能使用，如何定义，在上一篇已做了说明，在此不再阐述！

　　数组根据不同的需求，可分为静态数组和动态数组，静态数组存储欲先设置话的值，相当于里面存储一个或多个静态变量的值；动态数组根据需要，可随时改变数组长度，并随时能修改存储的值；

　　本文提供几个简单的例子，以方便各位的学习！

　　代码一：将预定单元格的值存储到数组中

　　----------------------------------------------------

　　Sub ArrayGetValue() '
　　　 MyArray = Range("E3:E8")
　　　 For i = 1 To 6
　　　　 MsgBox MyArray(i, 1)
　　　Next
　　End Sub

　　----------------------------------------------------

　　代码解释：

　　MyArray = Range("E3:E8")　'将E3到E8单元格的值存储到数组MyArray中；

　　For i = 1 To 6
　　　　 MsgBox MyArray(i, 1)
　　Next
　　'通过循环语句，读取MyArray的值并通过对话框形势显示出来；

　　代码二：将一列数据存储到数组中

　　----------------------------------------------------

　　Sub ArrayGetValue() '
　　　Dim MyArray() As String
　　　Dim iNum As Integer
　　　Dim i As Integer
　　　iNum = Sheets("sheet1").[E65536].End(xlUp).Row
　　　ReDim Preserve MyArray(iNum) As String
　　　For i = 1 To iNum
　　　　MyArray(i - 1) = Sheets("sheet1").Range("E" & i).Value
　　　MsgBox MyArray(5) '用于测试E6单元格的值，因为数组下标从0开始！
　　End Sub

　　----------------------------------------------------

　　代码解释：

　　iNum = Sheets("sheet1").[E65536].End(xlUp).Row　'获取E列单元格的个数；

　　ReDim Preserve MyArray(iNum) As String　　'重新定义数组的长度；以 iNum 为参考对象；

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