colum split

Copper Contributor

I have a single column of 70K plus entries that I want to split into multiple columns of about 50 each. Any suggestions?

4 Replies


Sub fifty()

Dim i As Long
Dim j As Long
Dim k As Long
Dim m As Long

i = Range("A" & Rows.Count).End(xlUp).Row
k = 3
m = 1

For j = 1 To i

Cells(m, k).Value = Cells(j, 1).Value
m = m + 1

If j Mod 50 = 0 Then
k = k + 1
m = 1
End If

Next j

End Sub

Maybe with these lines of code. In the attached file you can click the button in cell B2 to run the macro.


Three possibilities with formulas:






WRAPCOLS() is only available for Excel Insiders.


An alternative could be Power Query. In the attached file you can add data in the blue dynamic table. Then you can click in any cell of the green table and right-click with the mouse. Then you can select refresh to update the result.



As variant

hWrap = LAMBDA(array, n,
        nR, ROWS(array),
            nR <= n,
            LET(a, hWrap(DROP(array, n), n), IFNA(HSTACK(DROP(array, n - nR), a), ""))