循環範圍與循環數組之間的性能差異

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％循環通過一個循環。

希望這會有所幫助:)