Comments on: VBA Function: Populating a Range http://www.automateexcel.com/2008/09/26/vba-function-populating-a-range/ Everything Excel. Only Excel. Mon, 21 Nov 2011 07:25:47 +0000 hourly 1 http://wordpress.org/?v=3.2.1 By: SuperT http://www.automateexcel.com/2008/09/26/vba-function-populating-a-range/comment-page-1/#comment-1178 SuperT Mon, 30 Mar 2009 23:51:46 +0000 http://www.automateexcel.com/?p=918#comment-1178 Excel throws a "Application-defined or object-defined error" when the length of the string in any of the array's element is > 911 characters. Excel throws a “Application-defined or object-defined error” when the length of the string in any of the array’s element is > 911 characters.

]]> By: Jon Peltier http://www.automateexcel.com/2008/09/26/vba-function-populating-a-range/comment-page-1/#comment-884 Jon Peltier Fri, 26 Sep 2008 18:27:10 +0000 http://www.automateexcel.com/?p=918#comment-884 This is around 10 times faster. Define an array the size of Cell_Range, populate the array with random numbers, and populate Cell_Range with the array. By only writing to the worksheet once for the whole routine, instead of once per cell, yoou can save lots of time. Sub Randomise_Range2(Cell_Range As Range) ' Will randomise each cell in Range Dim v Dim i As Long Dim j As Long 'Turn off screen alerts Application.ScreenUpdating = False ReDim v(1 To Cell_Range.Rows.Count, 1 To Cell_Range.Columns.Count) For i = 1 To Cell_Range.Rows.Count For j = 1 To Cell_Range.Columns.Count v(i, j) = Rnd * 1000 Next j Next i Cell_Range.Value = v Application.ScreenUpdating = True End Sub Your code took 0.46 to 0.68 seconds to populate A1:A5000 (in five trials), my code took 0.031 to 0.078 seconds. This is around 10 times faster. Define an array the size of Cell_Range, populate the array with random numbers, and populate Cell_Range with the array. By only writing to the worksheet once for the whole routine, instead of once per cell, yoou can save lots of time.

Sub Randomise_Range2(Cell_Range As Range)
‘ Will randomise each cell in Range
Dim v
Dim i As Long
Dim j As Long
‘Turn off screen alerts
Application.ScreenUpdating = False
ReDim v(1 To Cell_Range.Rows.Count, 1 To Cell_Range.Columns.Count)
For i = 1 To Cell_Range.Rows.Count
For j = 1 To Cell_Range.Columns.Count
v(i, j) = Rnd * 1000
Next j
Next i
Cell_Range.Value = v
Application.ScreenUpdating = True
End Sub

Your code took 0.46 to 0.68 seconds to populate A1:A5000 (in five trials), my code took 0.031 to 0.078 seconds.

]]>