Sub J_F()
    Dim r As Range, ar, ar1(1 To 1, 1 To 280), ar2    '(1 To 1, 1 To 280)
    Dim t!, tt!
    Set r = Range("A1:JT1000")
    t = Timer
    ar = r.Value
    For i = 1 To 280
        ar1(1, i) = ar(1, i)
    Next
    Debug.Print "t   =" & Format(Timer - t, "0.0000000000")
    tt = Timer
    ar2 = Application.Index(ar, 1, 0)    '.Value
    Debug.Print "tt   =" & Format(Timer - t, "0.0000000000")
End Sub