Sütunlardaki verileri tek sütuna toplamak

[jarajar]

Merhaba Arkadaşlar,
Ekteki dosyada sütunlarda dağınık numaralar var ben bu numaraları tek sütuna toplamak istiyorum. Farklı makrolardan kendime çözüm bulmaya çalıştım fakat beceremedim yardımlarınızı rica ediyorum.

Bu arada bu liste gibi 100-200 sütunlu listeleri de benzer şekilde nasıl düzenleyebilceğimi açıklarsanız sevinirim.

Saygılar,

 

[Ömer]

Merhaba,

Tek sütunda toplanırken, aradaki boşluklar kalacak mı, yoksa hiç boşluk olmayacak mı?

Örneğin B6:B8 arasındaki boşluk gibi.

 

[jarajar]

Aslında fark etmez boşluklu da olabilir boşluksuz da

teşekkürler

 

[Ömer]

Bu şekilde deneyin.

Veriler Sheet2 sayfasında istediğiniz formatta dizilir.

Sub Duzenle()
    
    Dim S2 As Worksheet, i As Integer, j As Long, son As Long

    Set S2 = Sheets("Sheet2")
    
    Application.ScreenUpdating = False
    Sheets("Sheet1").Select
    S2.Columns("A:A").Clear
    
    For i = 1 To Cells.Find("*", , , , xlByColumns, xlPrevious).Column
        j = Cells(Rows.Count, i).End(xlUp).Row
        son = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
        Cells(1, i).Resize(j, 1).Copy S2.Cells(son, "A")
    Next i
    
    S2.Select
    Columns("A:A").EntireColumn.AutoFit
    Application.ScreenUpdating = True
    
End Sub