Excel'deki ölçütlere göre metni kolayca nasıl birleştirebilirim?
Bazı kopyaları ve bir sütun adı içeren bir kimlik numarası sütunum olduğunu varsayarsak, şimdi, gösterilen sol ekran görüntüsü gibi benzersiz kimlik numaralarına dayalı olarak adları bir araya getirmek istiyorum, metni ölçütlere göre hızlı bir şekilde birleştirmek için, nasıl yapabiliriz? Excel'de ne yapmalı?
Kullanıcı Tanımlı İşlev ile ölçütlere göre metni birleştirin
Kutools for Excel ile ölçütlere göre metni birleştirin
Kullanıcı Tanımlı İşlev ile ölçütlere göre metni birleştirin
Metni benzersiz kimlik numaralarıyla birleştirmek için, önce benzersiz değerleri çıkarabilir ve ardından adları benzersiz kimliğe göre birleştirmek için bir Kullanıcı Tanımlı İşlev oluşturabilirsiniz.
1. Aşağıdaki verileri örnek olarak alın, önce benzersiz kimlik numaralarını çıkarmanız gerekir, lütfen bu dizi formülünü uygulayın: =IFERROR(INDEX($A$2:$A$15, MATCH(0,COUNTIF($D$1:D1, $A$2:$A$15), 0)),""), Bu formülü boş bir hücreye girin, örneğin D2, ardından Ctrl + Üst Karakter + Enter anahtarlar birlikte, ekran görüntüsüne bakın:
Bahşiş: Yukarıdaki formülde, A2: A15 benzersiz değerleri çıkarmak istediğiniz liste veri aralığıdır, D1 çıkarma sonucunu çıkarmak istediğiniz sütunun ilk hücresidir.
2. Ardından, boşluklar görüntülenene kadar tüm benzersiz değerleri çıkarmak için dolgu tutamacını aşağı doğru sürükleyin, ekran görüntüsüne bakın:
3. Bu adımda, bir Kullanıcı Tanımlı İşlev isimleri benzersiz kimlik numaralarına göre birleştirmek için lütfen ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
4. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: ölçütlere göre metni birleştirin
Function ConcatenateIf(CriteriaRange As Range, Condition As Variant, ConcatenateRange As Range, Optional Separator As String = ",") As Variant
'Updateby Extendoffice
Dim xResult As String
On Error Resume Next
If CriteriaRange.Count <> ConcatenateRange.Count Then
ConcatenateIf = CVErr(xlErrRef)
Exit Function
End If
For i = 1 To CriteriaRange.Count
If CriteriaRange.Cells(i).Value = Condition Then
xResult = xResult & Separator & ConcatenateRange.Cells(i).Value
End If
Next i
If xResult <> "" Then
xResult = VBA.Mid(xResult, VBA.Len(Separator) + 1)
End If
ConcatenateIf = xResult
Exit Function
End Function
5. Ardından bu kodu kaydedin ve kapatın, çalışma sayfanıza geri dönün ve bu formülü E2 hücresine girin, = CONCATENATEIF ($ A $ 2: $ A $ 15, D2, $ B $ 2: $ B $ 15, ",") , ekran görüntüsüne bakın:
6. Ardından doldurma tutamacını bu formülü uygulamak istediğiniz hücrelere sürükleyin ve ilgili tüm isimler kimlik numaralarına göre birleştirilmiştir, ekran görüntüsüne bakın:
İpuçları:
1. Yukarıdaki formülde, A2: A15 dayalı olarak birleştirmek istediğiniz orijinal veridir, D2 çıkardığınız benzersiz değerdir ve B2: B15 birleştirmek istediğiniz ad sütunudur.
2. Gördüğünüz gibi, virgülle ayrılan değerleri birleştirdim, formülün virgülünü "" istediğiniz gibi değiştirerek başka herhangi bir karakteri kullanabilirsiniz.
Kutools for Excel ile ölçütlere göre metni birleştirin
Eğer varsa Kutools for Excel, Onun ile Gelişmiş Kombine Satırları yardımcı program, metin tabanını ölçütlere göre hızlı ve kolay bir şekilde birleştirebilirsiniz.
Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excel, aşağıdaki adımları uygulayın:
1. Bir sütuna göre birleştirmek istediğiniz veri aralığını seçin.
2. tıklayın Kutools > Birleştir ve Böl > Gelişmiş Kombine Satırları, ekran görüntüsüne bakın:
3. In Sütuna Göre Satırları Birleştirme iletişim kutusunda, Kimlik sütununu tıklayın ve ardından Birincil anahtar bu sütunu, birleştirilmiş verilerinizin dayandığı anahtar sütun yapmak için ekran görüntüsüne bakın:
4. Ve sonra tıklayın İsim değerleri birleştirmek istediğiniz sütunu, ardından Birleştirmek seçeneğini belirleyin ve birleştirilmiş veriler için bir ayırıcı seçin, ekran görüntüsüne bakın:
5. Bu ayarları tamamladıktan sonra OK iletişim kutusundan çıkmak için B sütunundaki veriler A anahtar sütununa göre birleştirilmiştir. Ekran görüntüsüne bakın:
Bu özellik sayesinde aşağıdaki sorun mümkün olan en kısa sürede çözülecektir:
Birden çok satırı tek bir satırda birleştirmek ve Excel'de kopyaları toplamak nasıl?
Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!
Demo: Kutools for Excel ile başka bir sütundaki aynı hücreye dayalı metni birleştirin
En İyi Ofis Üretkenlik Araçları
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...
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!