HELP on TRANSPOSE related function.

[sunj99]

HELP PLEASE!

I have a large excel spreadsheet. The layout is like this:

A SDF ED
B EFD BR
C ERT RT

How do I transpose everything using VB so they are in one column lik
this:

A
SDF
ED
B
EFD
BR
C
ERT
RT

THANKS A LOT!

 

[davidm]

Suppose your data occupies Cols A,B,C try:


Sub TransposeThreeSome()
num = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To num
For j = 1 To 3
Cells([d65536].End(xlUp).Row + 1, "D") = Cells(i, j).Value
Next
Next
Range("d2:d" & [d65536].End(xlUp).Row).Cut Range("d1")
Columns("a:c").Delete
End Su