Yanyana Olan Sütunları Tek Bir Sütunda Alt Alta yazdırmak

[mokajunyir]

her bir sütunda aşağıya doğru en az olanı 2 satır ve her bir sütunda en fazla ise aşağıya doğru 32 satıra kadara olan ve sağa doğru ise toplamda 7721e kadara devam eden bir tablom var.


7721 sütundaki yanyana olan bu sütunları tek bir sütunda alt alta yazdırmak istiyorum.

Bu konuda bir çözümü yada formül,makro önerisi olan varmı

bana bir öneriniz çözümünüz olabilir mi acaba?
Bu konuda sorumu cevaplayabilecek olan varsa şimdiden teşekkür ediyorum.

 

[Ömer]

Merhaba,

Sayfa1 A sütunundan başlayarak 7721 sütunu, Sayfa2 A sütununa alt alta sıralar.

Sub Tablo()

    Dim S2 As Worksheet, sat As Long, i As Integer, son As Long
    
    Set S2 = Sheets("Sayfa2")
    
    Sheets("Sayfa1").Select
    S2.Range("A:A").ClearContents
    
    sat = 1
    For i = 1 To 7721
        son = Cells(Rows.Count, i).End(xlUp).Row
        Cells(1, i).Resize(son, 1).Copy S2.Cells(sat, "A")
        sat = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    Next i
    
End Sub

.

 

[mokajunyir]

merhaba hocam cevabınız için teşekkürler

makro içine yazdım . sayfa 2 de sadece ilk 98 satırı altalta yazdı.

Bir yanlışlık yapmış olabilir miyim.

 

[mokajunyir]

A sütununda sağa doğru 7721 sütun yani KJY sütununa kadar yanyana sıralı
Aşağıda doğru ise en fazla satır 32 sıra.

 

[Ömer]

#2 nolu mesajı düzenledim. Yeni kodlara göre yeniden deneyiniz.

 

[mokajunyir]

Desteğinizden dolayı size çok teşekkür ederim

 

[Asri]

Alterntif Eklenti ile;

Bu konudaki Excel mouse sağ tuş daki eklenti ile de yapabilirsiniz.

* Tüm kolonları tek kolonda topla

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html