Excelde sütunları birleştirme

[adede2459]

Arkadaşlar merhaba, Excelde birden fazla sütunu tek bir sütunda alt alta hızlıca nasıl birleştirebilirim?

Örneğin: a dan f ye kadar dolu sütunlar var bunların tamamını a sütununa eklemek istiyorum.

 

[dEdE]

Aşağıdaki link yardımcı olabilir.

Soru - Sütunları Toplu Birleştirme

Arkadaşlar merhaba; Aşağıdaki ekran görüntüsünde F Sütununda bir mahalle listesi var. Yaptırmak istediğim işlem şu şekilde. A, B ve C sütunlarını F sütununda yer alan mahalle adı ile birleştirip D sütununa alt alta yazdırmak istiyorum. 1. Mahalle adı eklenip listelendiğinde 2. mahalleye geçip...

www.excel.web.tr

 

[adede2459]

Aşağıdaki link yardımcı olabilir.

Soru - Sütunları Toplu Birleştirme

Arkadaşlar merhaba; Aşağıdaki ekran görüntüsünde F Sütununda bir mahalle listesi var. Yaptırmak istediğim işlem şu şekilde. A, B ve C sütunlarını F sütununda yer alan mahalle adı ile birleştirip D sütununa alt alta yazdırmak istiyorum. 1. Mahalle adı eklenip listelendiğinde 2. mahalleye geçip...

www.excel.web.tr

işte bunun gibi ama kendime nasıl uyarlayabilirim bunu?

 

[winstoncash]

hocam en sondaki sütuna (G1'e) =A1&" "&B1&" "&C1&" "&D1&" "&E1&" "&F1 yazın (verilerin arasına boşluk yerine başka işaret koymak isterseniz tırnak içindeki boşlukları ona göre değiştirin), aşağı kadar çekin. daha sonra bu sütunu kopyalayıp A1 sütununa "değerleri yapıştır" diyerek yapıştırın. kalan sütunları silin.

 

[adede2459]

hocam en sondaki sütuna (G1'e) =A1&" "&B1&" "&C1&" "&D1&" "&E1&" "&F1 yazın (verilerin arasına boşluk yerine başka işaret koymak isterseniz tırnak içindeki boşlukları ona göre değiştirin), aşağı kadar çekin. daha sonra bu sütunu kopyalayıp A1 sütununa "değerleri yapıştır" diyerek yapıştırın. kalan sütunları silin.

Hocam sütünu birleştirme derken metinsel olarak değil tüm sütunları tek bir sütuna eklemek gibi

 

[dEdE]

Merhaba,
Aşağıdaki kodlardan istediğinizi kullanabilirsiniz.

Sub SutunuTasi1() ' son sütundan başlayarak
sk = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 2 To sk
        ss = Cells(Rows.Count, "A").End(3).Row+1
        sk = Cells(1, Columns.Count).End(xlToLeft).Column
        Range(Cells(1, sk), Cells(ss, sk)).Cut Range("A" & ss)
    Next i
End Sub

Sub SutunTaşı2() ' ilk sütundan başlayarak
sk = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 2 To sk
        ss = Cells(Rows.Count, "A").End(3).Row+1
        ss1 = Cells(Rows.Count, i).End(3).Row
        Range(Cells(1, i), Cells(ss1, i)).Cut Range("A" & ss)
    Next i
End Sub

 

[adede2459]

Merhaba,
Aşağıdaki kodlardan istediğinizi kullanabilirsiniz.

Sub SutunuTasi1() ' son sütundan başlayarak
sk = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 2 To sk
        ss = Cells(Rows.Count, "A").End(3).Row
        sk = Cells(1, Columns.Count).End(xlToLeft).Column
        Range(Cells(1, sk), Cells(ss, sk)).Cut Range("A" & ss)
    Next i
End Sub

Sub SutunTaşı2() ' ilk sütundan başlayarak
sk = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 2 To sk
        ss = Cells(Rows.Count, "A").End(3).Row
        ss1 = Cells(Rows.Count, i).End(3).Row
        Range(Cells(1, i), Cells(ss1, i)).Cut Range("A" & ss)
    Next i
End Sub

hocam kod çalışıyor ama şöyle bir sorun var,

ilk sütundan başla dediğimde tüm sütunları silip a1 hücresine ilk sütunu getiriyor,
son sütündan başla dediğimde yine tüm sütunları silip a1 hücresine son sütunu getiriyor.
bunu alt alta ekletme durumu olamaz mı?

 

[dEdE]

Örnek dosya paylaşırsanız kolayca çözüm bulunur.

 

[adede2459]

Örnek dosya paylaşırsanız kolayca çözüm bulunur.

Örnek dosya ekte hocam, yapmaya çalıştığımın da ekran görüntüsünü paylaştım

 

[dEdE]

Dener misiniz?

Sub SutunTaşı2()
sk = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 2 To sk
        ss = Cells(Rows.Count, "A").End(3).Row + 1
        ss1 = Cells(Rows.Count, i).End(3).Row
        Range(Cells(1, i), Cells(ss1, i)).Cut Range("A" & ss)
    Next i
End Sub

 

[adede2459]

Dener misiniz?

Sub SutunTaşı2()
sk = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = 2 To sk
        ss = Cells(Rows.Count, "A").End(3).Row + 1
        ss1 = Cells(Rows.Count, i).End(3).Row
        Range(Cells(1, i), Cells(ss1, i)).Cut Range("A" & ss)
    Next i
End Sub

hocam çok sağol tam aradığım kod buydu