循环范围与循环数组之间的性能差异

Question

在循环范围Vs时，性能（速度）会有任何差异Vs将相同范围分配给数组并循环数组？

Answer 1

循环遍历数组比遍历范围要快得多。

见下面我的测试：

Option Explicit 

Const strRANGE_ADDRESS As String = "A1:A100000" 

Sub LoopRangeAddOne() 

    Dim r As Range 
    Dim lStart As Double 
    Dim lEnd As Double 

    lStart = Timer 

    For Each r In Range(strRANGE_ADDRESS) 
     r.Value = r.Value + 1 
    Next r 

    lEnd = Timer 

    Debug.Print "Duration = " & (lEnd - lStart) & " seconds" 

End Sub 

Sub LoopArrayAddOne() 

    Dim varArray As Variant 
    Dim var As Variant 
    Dim lStart As Double 
    Dim lEnd As Double 

    lStart = Timer 

    varArray = Range(strRANGE_ADDRESS).Value 
    For Each var In varArray 
     var = var + 1 
    Next var 
    Range(strRANGE_ADDRESS).Value = varArray 

    lEnd = Timer 

    Debug.Print "Duration = " & (lEnd - lStart) & " seconds" 

End Sub 

结果：

LoopRangeAddOne持续时间=2.2734375秒

LoopArrayAddOne持续时间=0.08203125秒

这使得通过阵列的速度比96.39％循环通过一个循环。

希望这会有所帮助:)