iki sütundaki metinleri tek sütunda birleştirme.

[Ahmet TUNALI]

Herkese iyi çalışmalar
Ekli dosyada a ve b sütundaki isimleri c sütununda toplamak istiyorum.
her iki hücrede olan ismlerin biri alınacak.

 

[Necdet]

Merhaba,

Pratik yöntem :
A sütununu C sütununa kopyalayın
B sütununu C sütununun sonundan itibaren kopyalayın
C sütununu seçin Veri-Yinelenenleri kaldır

Makrosuz, formülsüz çözümdür.

 

[Korhan Ayhan]

Bu da alternatif olsun;

 

[Ahmet TUNALI]

Necdet bey ve Korhan bey her ikinizede ilgilerinizden dolayı teşekkür ederim.
Korhan beyin formilasyonu daha kullanışlı geldi.
teşekkürler
Herşey gönlünüzce olsun.

 

[Ahmet TUNALI]

Korhan bey,
A ve B satır sayısı örneğin 20 şer olursa formül nasıl değişir.
Biraz uğraştım ama YOK hatası verdi.
Yani A sütünunda en fazla 20 satıra kadar isim, B Sütünunda da en fazla 20 satıra kadar isim olursa:

 

[Ahmet TUNALI]

Korhan bey, sorunu çözdüm. deneme yanılma ile istediğim şekilde yapabildim.

 

[Necdet]

Merhaba,

Soru Fonksiyon bölümünde sorulmuş ama makro ile de örnek verelim.

Sub Birlestir()

    Dim d, _
        i As Long, _
        h As Range, _
        t As String, _
        v
    
    Set d = CreateObject("Scripting.Dictionary")
    
    i = Range("A:B").Find("*", , , , xlByRows, xlPrevious).Row
    
    For Each h In Range("A1:B" & i)
        t = Application.WorksheetFunction.Trim(h)
        If Not t = "" And Not d.exists(t) Then d.Add Trim(t), ""
    Next h
    
    v = d.keys
    
    Range("C:c").ClearContents
    Range("C1").Resize(UBound(v) + 1, 1) = Application.WorksheetFunction.Transpose(v)
    
End Sub

 

[Ahmet TUNALI]

Necdet bey,
Teşekkürler, bu makroyuda adapte ederek kullanabilirim.
Herşey gönlünüzce olsun.