Divide one column into multi small columns

[beekobeeko]

Hi all

I want to copy data from column A and divide it to small column each one has 20 cells

tt.png

[Norie]

Try this.

Please Login or Register  to view this content.

[Marc L]

A color EZ way :

Sub Demo1()
        [C4].CurrentRegion.Clear
        Application.ScreenUpdating = False
        C& = 2
    For R& = 1 To [A1].CurrentRegion.Rows.Count Step 20
             C = C + 1
             Cells(R, 1).Resize(20).Copy Cells(4, C)
             K& = K& Mod 5 + 1
        With Range(Cells(4, C), Cells(Rows.Count, C).End(xlUp))
            .HorizontalAlignment = xlCenter
            .Interior.ColorIndex = 35 + K
            .Borders.LineStyle = xlContinuous
        End With
    Next
        Application.ScreenUpdating = True
End Sub 

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !