distributing columns evenly

  • Thread starter Thread starter Deepak
  • Start date Start date
D

Deepak

Hi again

I've a list of 200 nos. in a single column (say A1:A200)

I want to distrubute it like this:

A1:A50 contains 50 nos.; B1:B50 contains 50 nos. and so on

Please help
 
try this
Sub movenums()
lr = Cells(Rows.Count, "a").End(xlUp).Row
For i = 51 To lr Step 50
lc = Cells(1, "iv").End(xlToLeft).Column + 1
Cells(i, "a").Resize(50, 1).Cut Cells(1, lc)
Next
End Sub
 
Back
Top