Alt alta olan satirlari yan yana siralamak

[husem]

Excelde alt alta devam eden binlerce veri var.
Alt alta olan verileri yatay olarak 10 sütun halinde Alt alta sıralamak istiyorum.
Yardımcı olabilir misiniz?
1
2
3
4
5
5
6
7
8
9
10
11
12
13
......

1 2 3 4 5 6 7 8 9 10
11 12 13 .......

Gibi olacak

 

[Necdet]

Amacınız 10'arlı gruplar halinde alt alta yazdırmak mı, yoksa aynı zamanda verilerin sıralanmasını da mı istiyorsunuz?

 

[husem]

Amacınız 10'arlı gruplar halinde alt alta yazdırmak mı, yoksa aynı zamanda verilerin sıralanmasını da mı istiyorsunuz?

alt alta sıralı olan verileri

10 sütun halinde aynı sırasında yan yana yazdırmak.
örneğin alt alta 1 den 1000 e kadar olan veriyi
yan yana olacak şekilde
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
bu şekilde devam etmek

 

[ÖmerBey]

Merhaba,
Verilerinizin A1:A1000 aralığında olduğunu varsayarsak, aşağıdaki formülü deneyiniz.
Formülü hücreye uyguladıktan sonra sağa ve aşağı çekerek çoğaltınız.

=EĞERHATA(İNDİS($A$1:$A$1000;10*(SATIR($A1)-1)+SÜTUN(A$1));"")

 

[husem]

Merhaba,
Verilerinizin A1:A1000 aralığında olduğunu varsayarsak, aşağıdaki formülü deneyiniz.
Formülü hücreye uyguladıktan sonra sağa ve aşağı çekerek çoğaltınız.

=EĞERHATA(İNDİS($A$1:$A$1000;10*(SATIR($A1)-1)+SÜTUN(A$1));"")

TEŞEKKÜR EDERİM, SÜPERSİN.
FORMÜLLE OLABİLECEĞİNİ HİÇ DÜŞÜNMEMİŞTİM.
İYİ ÇALIŞMALAR DİLERİM.

 

[ÖmerBey]

Rica ederim,
Ben de konunun Makro bölümüne açıldığını fark etmemiştim.
Dilerseniz aşağıdaki kodu deneyebilirsiniz.
İyi çalışmalar...

Sub kod()
Dim stn As Byte, b As Byte
Dim a As Integer, s As Integer
Dim dz As Variant
stn = 10 'sütun sayısı
With Range("A1:A1000") 'Veri aralığı
    s = Int(.Cells.Count / stn) + 1
    ReDim dz(1 To s, 1 To stn)
    For a = LBound(dz) To UBound(dz)
        For b = LBound(dz, 2) To UBound(dz, 2)
            s = stn * (a - 1) + b
            If s <= .Cells.Count Then dz(a, b) = .Cells(s)
        Next
    Next
End With
Range("C1").Resize(UBound(dz), UBound(dz, 2)).Value = dz 'Yeni listenin yazılacağı alan: C1
End Sub