Excel yan yana sütunları ,tek bir sütunda alt alta yazma

[cihan100]

Merhaba,forumdada aramama rağmen istediğim sonucu bulamadım.A,,B,C,D sütunum var hepsi 1300 satırdan oluşuyor.Bu sütunları E sütununa ,ilk önce A sütununun hepsi,sonra b,c ve d gelecek şekilde en pratik yoldan nasıl yapabilirim...Cevaplarınız için şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

1300 satırlık veriler arasında boş satır var mı.

.

 

[cihan100]

hayır hepsi dolu...

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    
    For i = 1 To 4
        sat = Cells(Rows.Count, "E").End(3).Row + 1
        If i = 1 Then sat = 1
        Range(Cells(1, i), Cells(1300, i)).Copy Cells(sat, "E")
    Next i
    
End Sub

. . .

 

[cihan100]

çok teşekkür ederim.burada A,B,C,D sütunlarının sayısı artasa;örneğin:K'ya kadar giderse hepsini L'ye atmak istesek kodun hangi kısmını değiştirmemiz lazım?

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    
    For i = 1 To [COLOR="Red"]4[/COLOR] [COLOR="Green"]' k nın sütun sayıyısı 11 gibi[/COLOR]
        sat = Cells(Rows.Count, "[COLOR="red"]E[/COLOR]").End(3).Row + 1 [COLOR="green"]' yapıştırılacak sütun harfi[/COLOR]
        If i = 1 Then sat = 1
        Range(Cells(1, i), Cells(1300, i)).Copy Cells(sat, "[COLOR="red"]E[/COLOR]")[COLOR="green"] ' yapıştırılacak sütun harfi[/COLOR]
    Next i
    
End Sub

. . .

 

[cihan100]

herşey için çok teşekkür ederim ,,,