İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də unikal dəyərləri necə birləşdirmək olar?

Bəzi təkrarlanan məlumatlarla dolu uzun bir dəyər siyahısına malik olsanız, indi yalnız unikal dəyərləri tapmaq və sonra onları tək bir hüceyrəyə birləşdirmək istəyirəm. Excel-də bu problemlə tez və asanlıqla necə məşğul ola bilərəm?

Sütundakı unikal dəyərləri tapın və onları bir VBA kodu ilə birləşdirin

Sütunda unikal dəyərləri tapın və onları Excel üçün Kutools ilə bir hüceyrəyə birləşdirin

Benzersiz dəyərləri göstərin və VBA koduyla müvafiq dəyərləri birləşdirin

Excel üçün Kutools ilə müvafiq dəyərləri sıralayın və müvafiq dəyərləri birləşdirin


arrow mavi sağ bubble Sütundakı unikal dəyərləri tapın və onları bir VBA kodu ilə birləşdirin


Aşağıdakı İstifadəçi Tanımlı İşlev bir siyahıdan tək bir hüceyrəyə yalnız unikal dəyərləri birləşdirməyə kömək edə bilər, xahiş edirəm:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: tək bir hüceyrəyə unikal dəyərləri birləşdirin:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice 20151228
    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. Sonra iş səhifəsinə geri qayıdın və bu formulu daxil edin: = ConcatUniq (A1: A17, ",") birləşdirilmiş nəticəni çıxmaq istədiyiniz boş bir hüceyrəyə daxil edin və basın Daxil edin unikal birləşdirilmiş nəticə əldə etmək üçün açar, bax ekran görüntüsü:

1 doc birləşdirir

QeydYuxarıda qeyd olunan formada, A1: A17 birləşmək istədiyin hüceyrələrin aralığının və virgülün ","Birləşdirilmiş dəyərləri ayırmaq üçün lazım olan ayırıcıdır, onları ehtiyacınıza dəyişə bilərsiniz.


arrow mavi sağ bubble Sütunda unikal dəyərləri tapın və onları Excel üçün Kutools ilə bir hüceyrəyə birləşdirin

VBA koduyla tanış deyilsinizsə, Excel üçün Kutools sizə də kömək edə bilər, siz birləşdirə bilərsiniz Duplicate & Unique Cells seçinBirləşdirmək sizə lazım olan nəticə əldə etmək üçün kommunal xidmətlər.

Excel üçün Kutools : 300-dən daha çox 60-dən istifadə etməklə, Excel-in əlavələri, XNUMX gündə heç bir məhdudiyyət yox idi.

Quraşdırıldıqdan sonra Excel üçün Kutools, xahiş edirəm :( İndi Excel üçün Pulsuz Kutools Download! )

1. Yalnız unikal dəyərləri birləşdirmək istədiyiniz hüceyrələrin siyahısını seçin.

2. Basın Kutools > seçmək > Duplicate & Unique Cells seçin, bax ekran görüntüsü:

2 doc birləşdirir

3. İçində Duplicate & Unique Cells seçin informasiya qutusu seçin Bütün unikal (1-dək dublikatları daxil olmaqla) altında seçimi Rule bölmədə bax:

Haqqındaİlk görünən cütlüyü istisna olmaqla unikal dəyərləri birləşdirmək istəyirsinizsə, onu yoxlayın Yalnız unikal dəyərlər seçin.

3 doc birləşdirir

4. Sonra basın OK düyməsini basın və yalnız unikal dəyərlər seçilmişdir və sonra basın Ctrl + C onları kopyalamaq və onları basaraq xüsusi yerə yapışdırmaq Ctrl + V, bax ekran görüntüsü:

4 doc birləşdirir

5. Yapıştırılmış unikal hüceyrələri seçin və sonra basın Kutools > Birləşdirmək, bax ekran görüntüsü:

5 doc birləşdirir

6. İçində Sütunları və ya Satırları birləşdirin dialoq qutusunu seçin Tək hücrə birləşdirin Altında Seçilən hüceyrələri aşağıdakı variantlara uyğun birləşdirmək, sonra birləşdirilmiş məlumatlarınız üçün bir ayırıcı seçin, ekran görünüşünə baxın:

6 doc birləşdirir

7. Sonra basın Ok or tətbiq etmək düyməsi, çıxarılmış unikal dəyərlər aşağıdakı ekran görüntüsü kimi bir tək hücrə bağlanmışdır:

7 doc birləşdirir

İndi Excel üçün Pulsuz Kutools Download!


arrow mavi sağ bubble Benzersiz dəyərləri göstərin və VBA koduyla müvafiq dəyərləri birləşdirin

Başqa bir vəziyyətdə, iki sütun olan bir sıra məlumatınız vardır və indi, yalnız unikal dəyərləri sadalamaq və bir nəticə əldə etmək üçün digər sütunların müvafiq dəyərlərini birləşdirmək istəyirsinizsə, bu işi bitirmək üçün yaxşı yollarınız var Exceldə?

8 doc birləşdirir

Burada, bu işlə məşğul olmaq üçün aşağıdakı VBA kodunu tətbiq edə bilərsiniz:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Unikal dəyərləri göstərin və müvafiq məlumatları birləşdirin

Sub test()
'updateby Extendoffice 20151228
    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. Sonra basın F5 bu kodu çalıştırmak üçün bir tuşa basın ve benzersiz değerlere göre birleştirmek istediğiniz veri aralığını seçmenizi hatırlatmak üçün bir istek qutusu açılır, ekran görüntüsüne baxın:

9 doc birləşdirir

4. Basın OK, unikal dəyərlər çıxarılıb və digər sütundakı müvafiq dəyərlər birlikdə yeni bir işə çevrilmişdir.

Qeyd: Yuxarıda göstərilən kodda, qırmızı vergülləri dəyişə bilərsiniz xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2),"& xArr (I, 2) bu skriptdə birləşdirilmiş məlumatları ayırmaq istədiyiniz hər hansı bir məhdudlaşdırıcıya aiddir.


arrow mavi sağ bubble Excel üçün Kutools ilə müvafiq dəyərləri sıralayın və müvafiq dəyərləri birləşdirin

Əgər Excel üçün KutoolsOnun ilə Ətraflı qablar birləşdirin xüsusiyyətindən istifadə edərək, bu problemi heç bir kod olmadan tez və asanlıqla həll edə bilərsiniz.

Quraşdırıldıqdan sonra Excel üçün Kutools, xahiş edirəm :( İndi Excel üçün Pulsuz Kutools Download! )

1. Birincisi, orijinal məlumatları saxlamaq istəyirsinizsə, orijinal məlumatlarınızın surətini çıxarmalısınız. Və sonra unikal dəyərlərə əsasən birləşmək istədiyiniz məlumatların aralığını seçin.

2. Sonra basın Kutools > məzmun > Ətraflı qablar birləşdirin, bax ekran görüntüsü:

10 doc birləşdirir

3. İçində Ətraflı qablar birləşdirin informasiya qutusunda, yalnız unikal dəyərlər siyahısını yazmaq istədiyiniz sütun adını basın və vurun İbtidai Key, bax ekran görüntüsü:

11 doc birləşdirir

4. Sonra birləşdirmək istədiyiniz başqa bir sütun adı basın və vurun Birləşdirmək, birləşdirilmiş məlumatlarınızı ayırmaq üçün bir məhdudlaşdırıcı seçin, ekran görüntüsünə baxın:

12 doc birləşdirir

5. Və sonra basın Ok düyməsi, göstərilən ekran görüntüsü kimi dəyərlər digər sütunun unikal dəyərlərinə əsasən birləşdirilmişdir:

13 doc birləşdirir

İndi Excel üçün Pulsuz Kutools Download!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MSBrown · 2 years ago
    I was successfully using the VBA function but something has gone wrong with it - I am only having a #VALUE! error returned now in places where it was working previously. I have combed my data for errors and tried removing and re-creating the VBA module, and renaming the function, nothing seems to be working. Any help would be appreciated, thanks!
  • To post as a guest, your comment is unpublished.
    Marek · 2 years ago
    Thank you! Great and simple function works perfect for me!

    https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1