【VBA研究】如何将单元格数据赋给数组

作者：iamlaosong

将工作表中的数据赋给数组或者将数组的数据赋给工作表，一般有两种，一种是循环的方法，一个一个的传，这种方法一般用于需要对每个数据特别处理的场合，另一种是一次性用赋值语句传，就速度来说，第二种方法要快得多。看下面例程：

Sub tt()
    Dim arr1(240000, 4)
    Dim arr2()
    
    lineno = [A1048576].End(xlUp).Row      '行数
    '循环给数组赋值，数组myarr必须先定义大小
    t1 = Now()
    For i = 3 To lineno
        k = i - 2
        arr1(k, 1) = Cells(i, 1)
        arr1(k, 2) = Cells(i, 2)
        arr1(k, 3) = Cells(i, 3)
        arr1(k, 4) = Cells(i, 4)
    Next i
    t2 = Now()
    Cells(2, 5) = TimeValue(t2) - TimeValue(t1)
    '一次性给数组赋值，数组arr不能定义大小和类型
    t1 = Now()
    arr2 = Range("a3:d" & lineno)
    t2 = Now()
    Cells(2, 6) = TimeValue(t2) - TimeValue(t1)
    MsgBox arr1(20000, 2) & "=" & arr2(20000, 2)


End Sub

测试发现，即使20多万条数据，第一种方法用时很少（4.62963E-05），而第二种方法也几乎不用时间（0）。

【VBA研究】如何将单元格数据赋给数组

原文：http://blog.csdn.net/iamlaosong/article/details/46878321