Hi,

try the code

Code
-------------------

Sub test()
Dim a
With Range("a1").CurrentRegion
a = .Value
.Clear
End With
For i = LBound(a, 1) To UBound(a, 1)
For ii = LBound(a, 2) To UBound(a, 2)
iii = iii + 1: Range("a" & iii) = a(i, ii)
Next
Next
End Sub

-------------------

sunj99 Wrote:
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!

--
jindo
-----------------------------------------------------------------------
jindon's Profile: http://www.excelforum.com/member.php...fo&userid=1313
View this thread: http://www.excelforum.com/showthread.php?threadid=37566