İ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

Birdən çox vergi dəyərini bir virgülle ayrılmış hüceyrədə necə qaytarmaq olar?

Excel-də, VLOOKUP funksiyasını bir cədvəl hüceyrələrindən ilk uyğun qiyməti qaytarmaq üçün tətbiq edə bilərik, lakin bəzən bütün uyğun dəyərləri çıxarmalı və daha sonra virgül, dash və s .. kimi xüsusi bir bölücü ilə ayrılmalıyıq. aşağıdakı ekran görüntüsü kimi hüceyrə göstərilir. Excel-də bir virgülle ayrılmış hüceyrədə birdən çox axtarış dəyərini necə əldə edə və geri ala bilərik?

doc birdən çox dəyər qaytarır virgülle ayrılmış 1

İstifadəçi Tanımlı funksiyası ilə birdən çox vergi dəyərini bir virgüllə ayrılmış hüceyrədə qaytarın

Excel üçün Kutools ilə birdən çox vergi dəyərini bir virgülle ayrılmış hüceyrədə qaytarın


İstifadəçi Tanımlı funksiyası ilə birdən çox vergi dəyərini bir virgüllə ayrılmış hüceyrədə qaytarın

Normalda, birdən çox eşleme dəyərini çıxarmaq və qaytarmaq və virgüllə bir hüceyrəyə ayrılmaq üçün birbaşa yol yoxdur, burada, bu işi həll etmək üçün İstifadəçi Tanımlı İşlev yarada bilərsiniz, 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: birdən çox axtarış dəyərini bir virgülle ayrılmış hüceyrəyə qaytarın

Function SingleCellExtract(LookupValue As String, LookupRange As Range, ColumnNumber As Integer, Char As String)
'Updateby20150824
    Dim I As Long
    Dim xRet As String
    For I = 1 To LookupRange.Columns(1).Cells.Count
        If LookupRange.Cells(I, 1) = LookupValue Then
            If xRet = "" Then
                xRet = LookupRange.Cells(I, ColumnNumber) & Char
            Else
                xRet = xRet & "" & LookupRange.Cells(I, ColumnNumber) & Char
            End If
        End If
    Next
    SingleCellExtract = Left(xRet, Len(xRet) - 1)
End Function

3. Sonra bu kodu saxlayın və Module pəncərəsini bağlayın, iş səhifənizə qayıdın və bu formulu daxil edin: = SingleCellExtract (D2, A2: B15,2, ",") nəticəni geri qaytarmaq istədiyiniz boş bir hüceyrəyə daxil edin. Və sonra basın Daxil edin nəticə əldə etmək üçün açar ekran görünüşünə baxın:

doc birdən çox dəyər qaytarır virgülle ayrılmış 2

QeydYuxarıdakı formada:

D2: aradığınız hüceyrə dəyərlərini göstərir;

A2: B15: data əldə etmək istədiyiniz məlumat üçündür;

2: 2 sayı dəyəri uyğun olan sütun nömrəsi qaytarılmalıdır;

,: vergül bir çox dəyərləri ayırmaq istədiyiniz ayırıcıdır.

Onları ehtiyaclarınıza dəyişə bilərsiniz.


Excel üçün Kutools ilə birdən çox vergi dəyərini bir virgülle ayrılmış hüceyrədə qaytarın


Əgər Excel üçün Kutoolsbu vəzifə artıq bir problem olmayacaq. Məqalələr Ətraflı qablar birləşdirin yardım proqramı sütuna əsaslanan bütün nisbi dəyərləri birləşdirməyə kömək edə bilə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 Kutoolsxahiş edirəm:

1. Bir sütuna əsaslanan bütün eşleşen değerleri birleştirmek istediğiniz veri aralığını seçin.

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

doc birdən çox dəyər qaytarır virgülle ayrılmış 3

3. İçində Sütun əsasında satırları birləşdirin informasiya qutusuna əsasən birləşdirmək istədiyiniz sütun adını basın və sonra basın İbtidai Key düyməsinə baxın, ekran görüntüsünə baxın:

doc birdən çox dəyər qaytarır virgülle ayrılmış 4

4. Sonra eşleşen değerleri birleştirmek istediğiniz diğer sütun adını basın və vurun Birləşdirmək Birləşdirilmiş dəyərləri ayırmaq üçün bir ayırıcı seçin, ekran bax:

doc birdən çox dəyər qaytarır virgülle ayrılmış 5

5. Sonra basın OK düyməsini, eyni dəyəri olan bütün müvafiq hüceyrələri virgülle ayrılan bir hüceyrəyə birləşdirilmişdir, ekran bax:

doc birdən çox dəyər qaytarır virgülle ayrılmış 6  2 doc birdən çox dəyər qaytarır virgülle ayrılmış 7

Bu Ətraflı Kombinə Satırlar proqramı haqqında daha ətraflı məlumat üçün tıklayın ...

Excel İndi Download və pulsuz sınaq Kutools!


Demo: Excel üçün Kutools ilə bir ədəd virgülle ayrılmış hüceyrədə birdən çox axtarış dəyərini qaytarın

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!



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.
    Js · 11 months ago
    VB command breaks when the range is longer than 154 rows (ie :B154)....
  • To post as a guest, your comment is unpublished.
    M Macklam · 1 years ago
    thank you, firstly i managed to get this to work without the slow down in performance. I'm using values rather that text so my question is i want to bring back all those with less than say 19 points in a list. Can the single cell Extract work for that or does it have to be a specific value?
  • To post as a guest, your comment is unpublished.
    A Ward · 1 years ago
    This simply does not work. I was unable to get it to work in my own application, so I copy/pasted the vba and the formula and it returned an error every time
  • To post as a guest, your comment is unpublished.
    K Ray · 1 years ago
    This works but slows down my excel majorly! Any tips to help speed?
  • To post as a guest, your comment is unpublished.
    Guest · 1 years ago
    Thanks for this post. Do you know how I would go about manipulating the two separate integers this is creating. For example, lets say that the '=SingleCellExtract' function now produces (1 , 2). Is there a way to have a cell next to it that does (1+.5 , 2+.5)?