Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Array to Columns

Sub ArrayToColumns()     Dim MyArray()     Dim Cols As Integer     Cols = 5     ReDim MyArray(1 To Cols)     Cells.Clear     i = 1     For c = 1 To Cols         MyArray(c) = i         i = i + 1     Next c     Range(Cells(1, 1), Cells(1, Cols)) = MyArray End Sub