Yanyana satırları düşey olarak yazma. ACİL!

[emek17]

Arkadaşlar şimdi sorum şu olacak, hatta örnek ile anlatayim:

Bu şekilde olanı,
a b c d e
f g h i j
k l m n o

Şu şekile sokmak istiyorum.
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o


ama yaklaşık 3600 satır olduğu için bir türlü beceremedim. ödev yapmam lazım bir an evvel. teşekkürler şimdiden.

 

[emek17]

ekte gönderdim exceli.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub Transpose()
Sheets("Sayfa2").Columns("A:A").ClearContents

x = 0
ss = Sheets("Sayfa1").Range("a65536").End(3).Row
For i = 1 To ss
For j = 1 To 5
x = x + 1
Sheets("Sayfa2").Cells(x, 1) = Sheets("Sayfa1").Cells(i, j)
Next j
Next i
MsgBox "bittim!"
End Sub

 

[hamitcan]

Bir tane de benden.

Sub test()
    Columns("f").Clear
    x = [a65536].End(3).Row
    For i = 1 To x
        c = Cells(i, 256).End(xlToLeft).Column
        s = [f65536].End(3).Row
        Range(Cells(s + x, "f"), Cells(s + c + x, "f")) = WorksheetFunction.Transpose(Range(Cells(i, 1), Cells(i, Cells(1, 256).End(xlToLeft).Column)))
        x = 0
    Next
    MsgBox "İşlem Tamam"
End Sub