Hi:


I have >50 arrays with 30 elements each. On a sheet, it would look like a 50rows x 30columns table.
For now, I can live with the row loops. But, I really need a way so I can populate my columns (Ax:ADx) with my array elements without doing the column loops. What I have right now is a very simple column loop but hurts the performance really bad.

Range("A1").Activate
For i = 1 To 30
  ActiveCell.Value = Array1(i)
  ActiveCell.Next.Activate
Next i

Does anyone have a better solution?


Regards,
Adrian T

You're hurting performance because you are selecting each cell in turn... Try something like this:

'Application.ScreenUpdating = False
For I = 1 To 30
    ActiveSheet.UsedRange.Columns("A").Cells(I).Value = Array1(I)
Next
'Application.ScreenUpdating = True

You can also increase performance by turning off screen redraws until your loop is finished.