Satırdan sütuna dönüştürme

[lovekiller]

Bir satırda bulunan 100'e yakın veriyi sütun halinde alt alta nasıl dizdirebilirim?

 

[Haluk]

Ã?rneğin veriler B1:K1 aralığında olsun ve siz bunları A1:A10 aralığına yerleştirmek istiyorsunuz. (Ã?nemli olan yatayda ve düşeyde aynı hücre sayısı olmalıdır).

1] A1:A10 aralığını fare ile seçtikten sonra, formul çubuğuna aşağıdaki formulü yazın:

=TRANSPOSE(B1:K1)

2] Formulü, Ctrl + Shift + Enter tuş bileşeniyle girin. (Bu bir dizi formulüdür)

Edit: Pardon, makro ile cevap istemişiniz...

Makro kullanarak;

Sub Test()
    Range("A1:A10") = Application.Transpose(Range("B1:K1"))
End Sub

 

[lovekiller]

Çok teşekkür ediyorum