Excel'de benzersiz değerler nasıl birleştirilir?
Bazı yinelenen verilerle doldurulmuş uzun bir değerler listem varsa, şimdi yalnızca benzersiz değerleri bulmak ve ardından bunları tek bir hücreye birleştirmek istiyorum. Excel'de bu sorunu hızlı ve kolay bir şekilde nasıl çözebilirim?
Bir sütunda benzersiz değerler bulun ve bunları VBA kodu ile tek bir hücreye birleştirin
Kutools for Excel ile bir sütunda benzersiz değerler bulun ve bunları tek bir hücreye birleştirin
Benzersiz değerleri listeleyin ve karşılık gelen değerleri VBA kodu ile birleştirin
Kutools for Excel ile benzersiz değerleri listeleyin ve karşılık gelen değerleri birleştirin
Bir sütunda benzersiz değerler bulun ve bunları VBA kodu ile tek bir hücreye birleştirin
Aşağıdaki Kullanıcı Tanımlı İşlev bir listeden tek bir hücreye yalnızca benzersiz değerleri birleştirmenize yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Benzersiz değerleri tek bir hücrede birleştirin:
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 dönün ve şu formülü girin: = ConcatUniq (A1: A17; ",") birleştirilmiş sonucun çıktısını almak istediğiniz boş bir hücreye girin ve Keşfet benzersiz birleştirilmiş sonucu elde etmek için ekran görüntüsüne bakın:
not: Yukarıdaki formülde, A1: A17 birleştirmek istediğiniz hücre aralığı ve virgül ",”, Birleştirilmiş değerleri ayırmak için ihtiyaç duyduğunuz ayırıcıdır, bunları ihtiyacınıza göre değiştirebilirsiniz.
Kutools for Excel ile bir sütunda benzersiz değerler bulun ve bunları tek bir hücreye birleştirin
VBA kodunu bilmiyorsanız, Kutools for Excel ayrıca size yardımcı olabilir, birleştirebilirsiniz Yinelenen ve Benzersiz Hücreleri Seçin ve Birleştirmek ihtiyacınız olan sonuca ulaşmak için yardımcı programlar.
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 Excellütfen şunları yapın :( Kutools for Excel'i Şimdi Ücretsiz İndirin! )
1. Yalnızca benzersiz değerleri birleştirmek istediğiniz hücre listesini seçin.
2. tıklayın Kutools > seç > Yinelenen ve Benzersiz Hücreleri Seçin, ekran görüntüsüne bakın:
3. In Yinelenen ve Benzersiz Hücreleri Seçin iletişim kutusunu seçin Hepsi benzersiz (1. kopyalar dahil) altında seçenek Kural bölümü, ekran görüntüsüne bakın:
İpuçları: İlk görünen kopyalar hariç benzersiz değerleri birleştirmek istiyorsanız, Yalnızca benzersiz değerler seçeneği.
4. Sonra tıklayın OK düğmesine tıklayın ve yalnızca benzersiz değerler seçildi ve ardından Ctrl + C kopyalamak ve belirli bir konuma yapıştırmak için Ctrl + V, ekran görüntüsüne bakın:
5. Yapıştırılan benzersiz hücreleri seçin ve ardından Kutools > Birleştir ve Böl > Veri Kaybetmeden Satırları, Sütunları veya Hücreleri Birleştirme, ekran görüntüsüne bakın:
6. In Sütunları veya Satırları Birleştirme diyalog kutusunu seçiniz Tek hücrede birleştirin altında Seçilen hücreleri aşağıdaki seçeneklere göre birleştirmek içinve ardından birleştirilmiş verileriniz için bir ayırıcı belirtin, ekran görüntüsüne bakın:
7. Sonra tıklayın Ok or Tamam düğmesi, çıkarılan benzersiz değerler aşağıda gösterilen ekran görüntüsü gibi tek bir hücreye birleştirilmiştir:
Kutools for Excel'i Şimdi Ücretsiz İndirin!
Benzersiz değerleri listeleyin ve karşılık gelen değerleri VBA kodu ile birleştirin
Başka bir durumda, iki sütun içeren bir veri aralığına sahipsiniz ve şimdi, aşağıdaki sonucu elde etmek için yalnızca benzersiz değerleri listelemek ve başka bir sütunun karşılık gelen değerlerini birleştirmek istiyorsunuz, bu işi bitirmek için herhangi bir iyi yolunuz var mı Excel'de mi?
Burada, bu işle başa çıkmak için aşağıdaki VBA kodunu uygulayabilirsiniz, lütfen aşağıdaki işlemleri yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Benzersiz değerleri listeleyin ve karşılık gelen verileri birleştirin
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
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
xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
End If
Next
Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve benzersiz değerlere göre birleştirmek istediğiniz veri aralığını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. tıklayın OK, benzersiz değerler çıkarılmış ve başka bir sütundaki karşılık gelen değerleri birlikte yeni bir çalışma sayfasına birleştirilmiştir.
not: Yukarıdaki kodda kırmızı virgülü değiştirebilirsiniz xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) bu komut dosyasında, birleştirilmiş verileri ayırmak istediğiniz diğer sınırlayıcılara.
Kutools for Excel ile benzersiz değerleri listeleyin ve karşılık gelen değerleri birleştirin
Eğer varsa Kutools for Excel, Onun ile Gelişmiş Kombine Satırları özelliği sayesinde bu sorunu herhangi bir kod kullanmadan hızlı ve kolay bir şekilde çözebilirsiniz.
Kurduktan sonra Kutools for Excellütfen şunları yapın :( Kutools for Excel'i Şimdi Ücretsiz İndirin! )
1. İlk olarak, orijinal verileri saklamak istiyorsanız orijinal verilerinizin bir kopyasını almalısınız. Ardından, benzersiz değerlere göre birleştirmek istediğiniz veri aralığını seçin.
2. Sonra tıklayın Kutools > Birleştir ve Böl > Gelişmiş Kombine Satırları, ekran görüntüsüne bakın:
3. In Gelişmiş Kombine Satırları iletişim kutusunda, yalnızca benzersiz değerleri listelemek istediğiniz sütun adını tıklayın ve Birincil anahtar, ekran görüntüsüne bakın:
4. Ardından birleştirmek istediğiniz başka bir sütun adını tıklayın ve Birleştirmekve birleştirilmiş verilerinizi ayırmak için bir sınırlayıcı seçin, ekran görüntüsüne bakın:
5. Ve sonra tıklayın Ok düğmesi, değerler aşağıda gösterilen ekran görüntüsü gibi başka bir sütunun benzersiz değerlerine göre birleştirilmiştir:
Kutools for Excel'i Şimdi Ücretsiz İndirin!
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!