Ana içeriğe atla

Excel'de kopyalar olmadan bir sütundaki metinleri nasıl birleştirebilirim?

Excel'de kopyalar olmadan bir sütundaki metinleri bir hücreye nasıl birleştireceğinizi biliyor musunuz? Peki ya bir sütundaki metinleri belirli hücre değerine göre kopyalar olmadan birleştirirseniz? Bu makale sorunları çözmek için yöntemler sağlar.

Bir sütundaki metinleri, yinelemesiz olarak formülle birleştirin
VBA kodu ile başka bir hücre değerine dayalı olarak bir sütundaki metinleri kopyalar olmadan birleştirin
Harika bir araçla başka bir hücre değerine dayalı bir sütundaki metinleri kolayca birleştirin

Hücreleri birleştirmek için daha fazla eğitim…


Bir sütundaki metinleri, yinelemesiz olarak formülle birleştirin

Aşağıdaki ekran görüntüsünde gösterildiği gibi, A sütunundaki metinleri kopya olmadan tek bir hücrede birleştirmek istiyorsunuz. Lütfen aşağıdaki işlemleri yapın.

1. Boş bir hücre seçin, aşağıdaki formülü içine kopyalayın ve Ara Toplam + vardiya + Keşfet tuşlarını aynı anda kullanın.

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))

Not: Formülde, ", ”, Birleştirilmiş metinlerin ayırıcısıdır; A2: A12, birleştireceğiniz sütun hücreleridir. Lütfen ihtiyacınız olduğu gibi değiştirin.

Şimdi, belirtilen sütundaki metinler çoğaltılmadan birleştirilir.


VBA kodu ile başka bir hücre değerine dayalı olarak bir sütundaki metinleri kopyalar olmadan birleştirin

Bazen, aşağıda gösterilen ekran görüntüsü gibi, bir sütundaki metinleri, başka bir hücredeki değere dayalı olarak kopyalar olmadan birleştirmeniz gerekebilir, aşağıdaki gibi alabilirsiniz.

1. Çalışma sayfasında katılacağınız metinler yer alır, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > Modül, ve ardından aşağıdaki VBA kodunu Modül kodu penceresine kopyalayın.

VBA kodu: Bir sütundaki metinleri, başka bir hücre değerine göre kopyalar olmadan birleştirin

Sub JoinTextsWithoutDuplicates()
'Updated by Extendoffice 20190924
    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 xValue
    Dim xStr, xStrValue As String
    Dim xB As Boolean
    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
    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
            xStrValue = xArr(I, 2)
           xB = True
            For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
                If xStr = xStrValue Then
                    xB = False
                    Exit For
                End If
            Next
            If xB Then
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
            End If
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Haşhaşta Kutools for Excel iletişim kutusunda, hem metinleri temel alarak birleştireceğiniz değerleri hem de katılacağınız metinleri içeren aralığı seçin ve ardından OK düğmesine basın.

Daha sonra benzersiz değerler çıkarılır ve başka bir sütundaki karşılık gelen benzersiz metinleri birleştirilir ve yeni bir çalışma sayfasına yerleştirilir.


Harika bir araçla başka bir hücre değerine dayalı bir sütundaki metinleri kolayca birleştirin

Belki formül veya VBA kodunda iyi değilsiniz. İşte tavsiye Gelişmiş Kombine Satırları yarar Kutools for Excel senin için. Bu yardımcı programla, yalnızca birkaç tıklama ile başka bir hücredeki değere göre bir sütundaki metinleri kolayca birleştirebilirsiniz.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

Not: Yardımcı program doğrudan orijinal aralıkta uygulanacağından, lütfen aşağıdaki işlemi uygulamadan önce orijinal verilerin bir kopyasını alın.

1. Aralığı seçin (katılacağınız metinleri ve metinlere göre birleştireceğiniz değeri dahil edin), tıklayın Kutools > içerik > Gelişmiş Satırları Birleştirin. Ekran Bkz:

2. içinde Gelişmiş Kombine Satırları iletişim kutusu, lütfen aşağıdaki işlemleri yapın:

  • Metinleri temel alarak birleştireceğiniz değerleri içeren sütunu seçin ve tıklayın Birincil anahtar;
  • Bir hücreye katılacağınız metinleri içeren sütunu seçin ve tıklayın Birleştirmek > Virgül;
  • Kalan sütun varsa, lütfen bunlar için koşulları belirtin. Bu durumda, Satış sütununu seçiyorum ve Hesaplanmış > Toplam.
  • Tıkla OK buton. Ekran görüntüsüne bakın:

Ardından, belirtilen sütundaki tüm metinlerin anahtar sütununa göre birleştirildiğini görebilirsiniz. Ekran görüntüsüne bakın:

  Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.


İlgili Makaleler

Yinelenen satırları birleştirin ve değerleri Excel'de toplayın
Excel'de, bazı yinelenen girdileri içeren bir dizi veriye sahip olduğunuzda ve şimdi yinelenen verileri birleştirmek ve karşılık gelen değerleri başka bir sütunda toplamak istediğinizde bu sorunu her zaman karşılayabilirsiniz, bu sorunu nasıl çözebilirsiniz? Bu makaledeki yöntemleri deneyin.

Excel'de Boşluk, Virgül veya diğer ayırıcılarla Birden Çok Hücreyi Bir Hücrede Birleştirme
Birden çok sütun veya satırdaki hücreleri tek bir hücrede birleştirdiğinizde, birleştirilmiş veriler hiçbir şeyle ayrılmayabilir. Ancak bunları boşluk, virgül, noktalı virgül veya diğerleri gibi belirli işaretlerle ayırmak istiyorsanız, nasıl yapabilirsiniz? Bu eğitimde sizin için bazı yöntemler tanıtılacaktır.

Excel'de sayı / tarih biçimlendirmesini koruyarak hücreleri birleştirin
Excel'de BİRLEŞTİR işlevini uyguladığımızda, tarih biçimini (2014-01-03) ve para birimi biçimi (734.7 $), yüzde biçimi (% 48.9), ondalık basamaklar (24.5000) vb. Gibi sayı biçimini fark etmiş olabilirsiniz. kaldırılır ve birleştirme sonuçlarında genel sayılar olarak gösterilir. Bu makalede, verileri Excel'de tarih veya sayı biçimlendirmesini koruyarak birleştirmek için birkaç geçici çözüm bulduk.

Excel'de birleştirme işlevini tersine çevirin
Hepimizin bildiği gibi, Excel'deki Birleştirme işlevi birden çok hücreyi tek bir hücrede birleştirmemize yardımcı olabilir, ancak bazen Birleştirme işlevinin tersini yapmak istersiniz, bu, hücreleri birleştirmek değil, hücre değerini birden çok ayrılmış hücreye bölmek anlamına gelir. Bu makaledeki yöntemler sorunu çözmeye yardımcı olacaktır.

Excel'de başka bir sütunda aynı değer varsa hücreleri birleştirin
Bu makale, Excel'deki başka bir sütunda aynı değer varsa hücreleri kolayca birleştirmenize yardımcı olacak yöntemler sağlar.

Hücreleri birleştirmek için daha fazla eğitim…

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I like this formula, but often times i will have a blank cell in my data range and yet this formula won't work with blanks. how would i handle blank cells?
This comment was minimized by the moderator on the site
Thanks! This was helpful. I found that the formula below did the trick. I just needed to select a range to combine text, but didn't want to duplicate values.
=TEXTJOIN(", ",TRUE,UNIQUE($A2:$K2,TRUE))
This comment was minimized by the moderator on the site
This is a much easier way to join unique items based on another column:

=TEXTJOIN(", ",TRUE,UNIQUE(IF(Table1[Category]=Table2[Unique Categories],Table1[Items to Join],"")))

Works a treat, I use it a lot.
This comment was minimized by the moderator on the site
Thanks a Lot. You saved me.
This comment was minimized by the moderator on the site
Omg. You're a lifesaver, I was trying way more complex formulas and this worked like a charm! Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations