sütunları tek sütuna birleştirmek

[uslu45]

herkese merhaba,

ekteki örnekteki rakamları "a" sütununa dizmek istiyorum. sanırım makro işimi görüyor. yardımcı olabilirseniz sevinirim.
sırayla b,c,d,e,... sütunundaki yukardan aşağıya 70 satırlık verileri a sütununa yukardan aşağıya sıralı bir biçimde dizdirmek istiyorum. örneğin "b" deki 70 satır "a" daki 70 satırın altına dizilecek sonra "c" deki ,"a"nın altına devam edecek. en sonunda a sütununda 17500 satırlık veri olacak. ama sütunlardaki verilerin sırasınn bozulmaması çok önemli.
yardımlarınız için şimdiden teşekkürler...

 

[N.Ziya Hiçdurmaz]

yanıt

Sub ayadiz()
Dim sat, s As Long
s = 71
    For sut = 2 To 251
    For sat = 1 To 70
        Cells(s, "a") = Cells(sat, sut).Value
        s = s + 1
    Next: Next
End Sub

 

[uslu45]

çok teşekkürler sn. ziya hiçdurmaz
kolay gelsin...

 

[Orion1]

Dosyanız ektedir.

Sub sutuna_diz()
Dim i As Long, sat As Long, sut As Long, sat2 As Long
Application.ScreenUpdating = False
Range("A:A").ClearContents
sat = Cells(65536, "B").End(xlUp).Row
sat2 = 1
For i = 1 To sat
    sut = Cells(i, 256).End(xlToLeft).Column
    If sut > 1 Then
        Range("A" & sat2).Resize(sut - 1, 1) = Application.Transpose(Range(Cells(i, 2), Cells(i, sut)).Value)
        sat2 = sat2 + sut - 1
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
    
End Sub

 

[uslu45]

teşekkürler sn evren gizlen çok hızlı ve güzel bir makro çok işime yaradı saolun...

 

[ismail ozboran]

hocam size bir soru sormalıyım. exel i yeni öğreniyorum ve vermiş olduğnuz kodu nereye yapıştıracağımı bilmiyorum bana yardımcı olursanız sevinirim