Hi there, I need some help.
I'm trying to transpose a 4-cell row into a column as shown in the example below:
Original data:
A1 B1 C1 D1
A2 B2 C2 D2
A3 B3 C3 D3
etc...
Transposed Data:
A1
B1
C1
D1
A2
B2
C2
D2
A3
B3
C3
D3
etc...
Is there any way to automate the process to transpose all the rows down to the last row/ the entire sheet and make my life easier? 
Many thanks in advance!
something like this maybe?
Sub transpose()
Dim a, b, i&, j&, k&
With ActiveSheet.Range("A1").CurrentRegion
a = .Value
ReDim b(1 To .Count, 1 To 1)
.ClearContents
End With
k = 0
For i = 1 To UBound(a)
For j = 1 To UBound(a, 2)
k = k + 1
b(k, 1) = a(i, j)
Next j
Next i
ActiveSheet.Range("A1").Resize(UBound(b)).Value = b
Erase a
Erase b
End Submake sure you try it on a copy first as it's a destructive process.
Hi Trunten,
It works, appreciate your support.
Thanks!
Don’t have an account yet? Register yourself now and be a part of our community!