Hi all
I want to copy data from column A and divide it to small column each one has 20 cells
tt.png
Hi all
I want to copy data from column A and divide it to small column each one has 20 cells
tt.png
Try this.
Please Login or Register to view this content.
If posting code please use code tags, see here.
A color EZ way :
PHP Code:
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 » !
Last edited by Marc L; 03-22-2018 at 06:52 AM. Reason: optimization …
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks