copy every next 10 values to next column

[raj soni]

hello friends ,
i have some data in column a
number of data changes ......

now i would like to copy value of
from a1 to a10 to b1 to b10
from a11 to a20 to c1 to c10
from a21 to a30 to d1 to d10

basically i want to copy every next 10 values in column b to column c , column d and so on ....

please have a look at sample file attach

thanks in advance

[sktneer]

You may try this.....

Please Login or Register  to view this content.

[mike7952]

Try this

Please Login or Register  to view this content.

[JimBobBowie]

Hi,

This code works on your sample data.

Sub SplitList() 
 
Dim FSRow, SRow, LSRow, Trow, TCol 
 
FSRow = 1 
SRow = FSRow 
Trow = FSRow 
LSRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 
TCol = 2 
For SRow = FSRow To LSRow 
    Cells(Trow, TCol).Value = Cells(SRow, 1).Value 
    Trow = Trow + 1 
    If Trow > FSRow + 9 Then 
        Trow = FSRow 
        TCol = TCol + 1 
    End If 
Next 
 
End Sub  

Cheers,

JimBobBowie

[raj soni]

wow , we have many experts here ....

thanks @sktneer @mike7952 @JimBobBowie

different ways but giving same results