Column into Rows

[Markovnikov13]

I have a very long column going from C1 to C1832 and would like to convert it into 4 rows of 458 values. I am not sure how to do this and any help is appreciated.

An example of what I am trying to do is if I have the following values in my column

4
5
6
7
1
2
3
4

I want to create rows of
4 5 6 7
1 2 3 4

 

[Joe4]

Welcome to the Board!

What cells/rows do you want these values to go into?

 

[Fluff]

How about

Sub Markovnikov()
   Dim Ary As Variant, Nary As Variant
   Dim x As Long, r As Long, nc As Long, nr As Long
   
   Ary = Range("C1", Range("C" & Rows.Count).End(xlUp)).Value2
   x = Application.RoundUp(UBound(Ary) / 4, 0)
   ReDim Nary(1 To 4, 1 To x)
   For r = 1 To UBound(Ary) Step x
      nr = nr + 1
      For nc = 1 To x
         If nc + r - 1 > UBound(Ary) Then Exit For
         Nary(nr, nc) = Ary(nc + r - 1, 1)
      Next nc
   Next r
   Range("E1").Resize(4, x).Value = Nary
End Sub

 

[Markovnikov13]

That works perfectly Fluff, but I mistyped and meant 4 columns of 458 values.

 

[Fluff]

Ok, how about

Sub Markovnikov()
   Dim Ary As Variant, Nary As Variant
   Dim x As Long, r As Long, nc As Long, nr As Long
   
   Ary = Range("C1", Range("C" & Rows.Count).End(xlUp)).Value2
   x = Application.RoundUp(UBound(Ary) / 4, 0)
   ReDim Nary(1 To x, 1 To 4)
   For r = 1 To UBound(Ary) Step 4
      nr = nr + 1
      For nc = 1 To 4
         If nc + r - 1 > UBound(Ary) Then Exit For
         Nary(nr, nc) = Ary(nc + r - 1, 1)
      Next nc
   Next r
   Range("E1").Resize(x, 4).Value = Nary
End Sub

 

[Joe4]

For a non-VBA solution, you can put this formula in cell E1 and copy down to H458:

=INDIRECT("C" & (ROW()*4)+COLUMN()-8)

 

[Markovnikov13]

Thank you that works perfectly, you are a lifesaver!