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

787851791

好东西大家分享
代码一：将预定单元格的值存储到数组中
　　----------------------------------------------------
　　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 为参考对象