数组是一个相当好的变量集合，里面可以存放许多按实际要求但是不可意料其值的值！
要使用数组，首先要定义数组，方能使用，如何定义，在上一篇已做了说明，在此不再阐述！
数组根据不同的需求，可分为静态数组和动态数组，静态数组存储欲先设置话的值，相当于里面存储一个或多个静态变量的值；动态数组根据需要，可随时改变数组长度，并随时能修改存储的值；
本文提供几个简单的例子，以方便各位的学习！
代码一：将预定单元格的值存储到数组中
----------------------------------------------------
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 为参考对象；