Excel'de benzersiz değerleri nasıl birleştirebilirim?

Excel'de benzersiz değerleri birleştirme, çeşitli yöntemlerle gerçekleştirilebilen yaygın bir görevdir. Bu makalede, bir sütundaki benzersiz değerleri birleştirme ve bu değerleri birleştirirken karşılık gelen değerlerin listesini çıkarma tekniklerini ele alacağız.

Bir sütundan yalnızca benzersiz değerleri birleştirme

• TEXTJOIN ve UNIQUE fonksiyonlarını kullanarak
• Kutools AI Asistanı kullanarak
• Kullanıcı Tanımlı Fonksiyon kullanarak

Benzersiz değerleri listeleme ve karşılık gelen değerleri birleştirme

• TEXTJOIN ve UNIQUE fonksiyonlarını kullanarak
• Kutoolsfor Excel kullanarak
• VBA kodu kullanarak

Bir sütundan yalnızca benzersiz değerleri birleştirme

Veri analizinde, Excel'deki bir sütundan benzersiz değerleri tek bir hücreye birleştirmeniz gereken durumlar olabilir. Bu görev, tercihinize ve veri setinin karmaşıklığına bağlı olarak formüller, VBA veya Kutools kullanılarak gerçekleştirilebilir. Aşağıda, bu işlemi verimli bir şekilde gerçekleştirmek için optimize edilmiş yöntemleri inceleyeceğiz.

Yöntem 1: TEXTJOIN ve UNIQUE fonksiyonlarını kullanma

Excel 365 veya Excel 2021 kullanıyorsanız, yeni TEXTJOIN ve UNIQUE fonksiyonları bir sütundaki benzersiz değerleri birleştirmek için basit ve etkili bir yol sunar.

Birleştirilmiş sonucu istediğiniz hücreye aşağıdaki formülü girin:

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A18))

Yöntem 2: Kutools AI Asistanı kullanma

Daha hızlı ve tam otomatik bir çözüm için, Kutools for Excel "Kutools AI Asistanı" adlı yenilikçi bir araç sunar. Görevinizi tanımlayın ve AI, herhangi bir el ile ayar yapmadan anında istenen sonuçları oluşturur. Bu, karmaşık formüller veya zaman alan yapılandırmalar ihtiyacını ortadan kaldırır ve birkaç saniye içinde doğru sonuçlar verir.

Kutools For Excel'i yükledikten sonra lütfen "Kutools" > "AI Asistanı" seçerek "Kutools AI Asistanı" panelini açın.

1. Sadece benzersiz değerleri birleştirmek istediğiniz hücreleri seçin;
2. Sohbet kutusuna gereksinimi yazın: örneğin:
   Seçili aralıktaki benzersiz değerleri virgülle birleştirin ve birleştirilmiş sonucu C2 hücresine yerleştirin
3. Ardından Enter tuşuna basın veya "Gönder" düğmesine tıklayın. Kutools AI soruyu analiz eder, işlem tamamlandıktan sonra "Yürüt" düğmesine tıklayarak sonucu alın.
   

Yöntem 3: Kullanıcı Tanımlı Fonksiyon kullanma

Daha fazla esnekliğe ihtiyaç duyan veya süreci otomatikleştirmek isteyen ileri düzey kullanıcılar için, özel bir VBA fonksiyonu (UDF) oluşturularak benzersiz değerler birleştirilebilir. Bu yöntem, kodlamaya alışkın olan veya tekrar kullanılabilir bir çözüme ihtiyaç duyan kullanıcılar için idealdir.

1. "ALT + F11" tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.

2. "Ekle" > "Modül" seçin ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Benzersiz değerleri tek bir hücreye birleştirme:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. Ardından çalışma sayfanıza geri dönün ve birleştirilmiş sonucu çıkarmak istediğiniz boş bir hücreye şu formülü girin: =ConcatUniq (A2:A18,",") ve Enter tuşuna basarak benzersiz birleştirilmiş sonucu alın, ekran görüntüsüne bakın:

Benzersiz değerleri listeleme ve karşılık gelen değerleri birleştirme

Excel'de, benzersiz değerleri listeleme ve karşılık gelen değerleri birleştirme yaygın bir iştir, özellikle özetleme veya birleştirme gerektiren veri setleriyle uğraşırken. Bu bölüm, bunu verimli bir şekilde gerçekleştirmek için kapsamlı bir kılavuz sağlar.

Yöntem 1: TEXTJOIN ve UNIQUE fonksiyonlarını kullanma

Excel'in modern fonksiyonları olan UNIQUE, FILTER ve TEXTJOIN, karmaşık formüllere gerek kalmadan benzersiz değerleri listelemek ve karşılık gelen değerleri birleştirmek için kolay bir yol sunar.

1. UNIQUE fonksiyonunu kullanarak sütun A'daki tüm benzersiz değerleri listeleyin:

=UNIQUE(A2:A17)

2. TEXTJOIN ve FILTER fonksiyonlarını uygulayarak benzersiz değer için karşılık gelen değerleri birleştirin, formülü aşağıya doğru sürükleyerek diğer hücreleri doldurun, ekran görüntüsüne bakın:

=TEXTJOIN(", ", TRUE, FILTER($B$2:$B$17, $A$2:$A$17 =D2))

Yöntem 2: Kutools for Excel kullanma

Kutools for Excel'in güçlü "Gelişmiş Satırları Birleştir" özelliği, herhangi bir kodlama veya karmaşık formüller olmadan benzersiz değerleri listelemek ve karşılık gelen değerleri birleştirmenizi sağlar. Verilerinizi seçin, ayarları yapılandırın ve Kutools'un gerisini halledin, profesyonel sonuçları birkaç saniye içinde teslim eder.

1. Orijinal verileri başka bir hücreye kopyalayıp yapıştırarak verileri yedekleyin. Veri aralığını seçin ve ardından "Kutools" > "Birleştir ve Böl" > "Gelişmiş Satırları Birleştir" seçin, ekran görüntüsüne bakın:

2. "Gelişmiş Satırları Birleştir" iletişim kutusunda ayarları yapılandırın:

• Çiftlikleri birleştirmek istediğiniz sütun adını tıklayın ve ardından "İşlem" sütunundaki açılır listeden "Anahtar" seçeneğini seçin;
• Ardından, değerleri birleştirmek istediğiniz sütun adını seçin ve ardından "İşlem" sütunundaki açılır listeden değerleri ayırmak için bir sınırlayıcı seçin;
• Son olarak, Tamam düğmesine tıklayın.
  

Sonuç:

Kutools, belirtilen sınırlayıcı ile benzersiz değerleri çıkarma ve karşılık gelen değerleri birleştirme işlemini otomatikleştirir.

Yöntem 3: VBA kodu kullanma

Excel'in UNIQUE ve TEXTJOIN gibi yerleşik fonksiyonları bu işlemi belli ölçüde gerçekleştirebilse de, karmaşık senaryolarla veya Excel'in eski sürümleriyle uğraşırken yetersiz kalabilirler. Bu kılavuz, size VBA kodu kullanarak benzersiz değerleri listeleme ve karşılık gelen değerleri birleştirme adımlarında rehberlik edecektir.

1. "ALT + F11" tuşlarına basılı tutarak "Microsoft Visual Basic for Applications" penceresini açın.

2. "Ekle" > "Modül" seçin ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Benzersiz değerleri listeleme ve karşılık gelen verileri birleştirme

Sub test()
    'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    Dim xOutputRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutputRg = Application.InputBox("Please select the output cell", "Kutools for Excel", Type:=8)
    If xOutputRg Is Nothing Then Exit Sub
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    xOutputRg.Resize(xDic.Count, 2).Value = xArr
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve size benzersiz değerlere göre birleştirmek istediğiniz veri aralığını seçmenizi hatırlatan bir uyarı kutusu açılır, ekran görüntüsüne bakın:

4. Tamam'a tıklayın, size sonucu yerleştireceğiniz hücreleri seçmenizi hatırlatan başka bir uyarı kutusu açılır:

5. Tamam'a tıklayın, benzersiz değerler çıkarılır ve başka bir sütundaki karşılık gelen değerler birleştirilir. Ekran görüntüsüne bakın:

Sonuç olarak, Excel'de benzersiz değerleri birleştirme, farklı uzmanlık seviyelerine ve ihtiyaçlara göre uyarlanmış birden fazla yöntemle etkili bir şekilde gerçekleştirilebilir. Size en uygun yöntemi seçerek veri işleme sürecini hızlandırabilir ve Excel'de benzersiz değerleri yönetme verimliliğini artırabilirsiniz. Daha fazla Excel ipucu ve hilesini keşfetmek istiyorsanız, web sitemiz binlerce öğretici sunmaktadır.