T4068_Loop Using Arrays Template

https://excel-egy.com/forum/t4068
---------------------------------

Sub Loop_Using_Arrays_Template()
    Dim arr         As Variant
    Dim t           As Single
    Dim i           As Long

    arr = Range("A1:E" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    t = Timer

    For i = 1 To UBound(arr, 1)
        If arr(i, 3) = "A" Then
            arr(i, 5) = 1
        End If
    Next i

    Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
    MsgBox Timer - t
End Sub