VBA Code:
Sub TestSpeed()
sheet1.Range("A42") = Time()
Dim r, k, i, j As Integer, rg As Range, arr As Variant
Set rg = sheet1.Range("A1:BB40")
arr = rg.Value
k = 1
r = 1
For i = LBound(arr, 1) To UBound(arr, 1)
For j = LBound(arr, 2) To UBound(arr, 2)
sheet2.Cells(r, k) = arr(i, j)
k = k + 1
Next j
Next i
sheet1.Range("A43") = Time()
End Sub
It takes 3 full seconds.
Is it possible to write to sheet2 in 1 row faster, without using screenupdating and enableevents etc.