İ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

Satırları Excel-də qrupa əsaslanan bir hüceyrəyə necə bağlamaq olar?

Burada bir neçə sütun var, biri sinif siyahısı, ikincisi isə tələbə adları siyahısı. Gördüyünüz kimi, bəzi tələbələr eyni sinifdədir, bəziləri isə deyil. İndi eyni sinifdə olan tələbələri bir ekrana aşağıda göstərilən ekran şəklində birləşdirmək istərdim, necə tez Excel-də idarə edə bilərəm?
1 qrupu ilə doc bağlayın

Qrup və formulalar və Filtre funksiyası ilə birləşmək

Qrupu və VBA kodu ilə əlaqələndirin

Qrup və Advanced Combine Satırları ilə əlaqələndirinyaxşı fikir3

Asanlıqla Excel-də data itirilmədən sütunları və ya satırları birləşdirin

Çox dublikat qeydləri olan bir iş ilə işləyirsinizsə və indi eyni dəyəri əsasında satırları birləşdirməlisiniz və birləşdirməlisiniz və cəmi, ortalama, təkrarlanan satırlar hesabı kimi bəzi hesablamalara ehtiyacınız var. Bununla Ətraflı qablar birləşdirin of Kutools for Excel, tez eyni dəyərlər / eyni məlumatları və ya satırları müvafiq hüceyrələrə birləşdirə bilərsiniz. 60 gün pulsuz sınaq üçün tıklayın!
doc qabaqcıl satırları birləşdirir
Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan cəhd etmək üçün 60-dən çox lazımlı Excel eklentisi ilə.

Qrup və formulalar və Filtre funksiyası ilə birləşmək

Excel-də bir sütun əsasında birləşdirilmiş satırlar üçün formulalar tətbiq edə bilərsiniz, sonra nəticə göstərmək üçün Filtr funksiyasından istifadə edin.

Qeyd: Aşağıdakı addımlardan əvvəl məlumatlarınızı sinifə görə sıralamaq lazımdır.

1. Məsələn, C13 məlumat aralığının yanında boş bir hüceyrədə bu formu yazın =IF(A13=A12,C12&", "&B13,B13)mətbuat Enter düyməsini doldurun və doldurma işarəsini sürükləyən hüceyrələrə formula doldurun.
2 qrupu ilə doc bağlayın

Formada, A13 "Class" sütununda ilk məlumatdır, B13 "Ad" sütununda ilk məlumatdır, "," birləşən məzmunu məhdudlaşdırmaq üçün ayırıcıdır.

2. Sonra növbəti sütun, D13, bu formula yazın =IF(A13<>A14,"Last","") , lazım olan hüceyrələrə formula tətbiq etmək üçün doldurun.
3 qrupu ilə doc bağlayın

3. İndi formullar daxil olmaqla bütün məlumatların aralığını seçin və vurun Tarix > Filter əlavə etmək Filter icons məlumatlara.
4 qrupu ilə doc bağlayın

4. Basın Filter icon sonuncu formula başlığında, yoxlayın Last açılır siyahıdan yalnız onay kutusunu basın və vurun OK.
5 qrupu ilə doc bağlayın

İndi nəticə aşağıda göstərilmişdir, heç də ehtiyacınız olmadığı halda, son köməkçi sütununu çıxara bilərsiniz.
6 qrupu ilə doc bağlayın


Qrupu və VBA kodu ilə əlaqələndirin

Burada da bu işi həll edə biləcək bir VBA kodu var.

1. Basın Alt + F11 düymələri təmin etmək üçün Microsoft Visual Basic for Applications pəncərə.

2. Sonra pəncərədə basın Tools > References imkan verir References dialoq və yoxlayın Microsoft Scripting Runtime. Ekran görüntüsünə baxın:
7 qrupu ilə doc bağlayın
8 qrupu ilə doc bağlayın

3. klik OKvə basın Insert > Module VBA penceresinde və VBA kodunun altına kopyalayıp yapıştırın Module skript. Ekran görüntüsünə baxın:

VBA: Qrupa əsaslanan bir hüceyrə halına salın

  Sub ConcatenateCellsIfSameValues()
'UpdatebyExtendoffice20180201
    Dim I As Long
    Dim J As Long
    Dim xRg As Range
    Dim xRgKey As Range
    Dim xRgVal As Range
    Dim xStr As String
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
    If xRgKey Is Nothing Then
        MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
    End If
    Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
    For I = 1 To xRgKey.Count
        If I > xRgKey.Count Then Exit For
        xStr = ""
        For J = 1 To xRgVal.Columns.Count
            xStr = xStr & " " & xRgVal(I, J)
        Next
        If xDic.Exists(xRgKey(I).Text) Then
            xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
            xRgKey(I).EntireRow.Delete
            I = I - 1
       Else
            xDic.Add xRgKey(I).Text, xStr
        End If
    Next
    For I = 1 To xRgVal.Count
        xRgVal(I).Value = xDic(xRgKey(I).Text)
    Next
End Sub

9 qrupu ilə doc bağlayın

4. Basın F5 düyməsini basın və açılış dialoqunda istifadə etdiyiniz məlumatların aralığını seçin.
10 qrupu ilə doc bağlayın

5. klik OK qruplaşdırmaq istədiyiniz əsas sütunu seçmək üçün.
11 qrupu ilə doc bağlayın

6. klik OK, indi nəticə aşağıda göstərilir:
12 qrupu ilə doc bağlayın


Qrup və Advanced Combine Satırları ilə əlaqələndirin

Burada bir köməkçi vasitədir Excel üçün Kutools, Advanced Combine Satır, satırları birləşdirə və ya Excel-də əsas sütuna əsaslanan hesablamaları həyata keçirə bilər.

Excel üçün Kutools, daha çox 120 lazımlı funksiyaları, işinizi asanlaşdırır.

Quraşdırıldıqdan sonra Excel üçün Kutools, aşağıdakıları edin:(Excel İndi Pulsuz İndir Kutools!)

1. Istifadə etdiyiniz məlumat aralığını seçin və vurun Kutools > Content > Ətraflı qablar birləşdirin.
13 qrupu ilə doc bağlayın

2. İçində Advanced Combine Rows pəncərəyə əsaslanan satırları birləşdirmək istədiyiniz sütunu seçin və basın Primary Key onu əsas sütun kimi təyin etmək.
14 qrupu ilə doc bağlayın

3. Birləşdirmək üçün lazım olan sütunu seçin, vurun Combinebirləşdirilmiş məzmunu ayırmaq üçün istifadə etdiyiniz bir ayırıcı seçin.

15 qrupu ilə doc bağlayın doc arrow sağ 16 qrupu ilə doc bağlayın

4. klik Ok. Nəticə bu şəkildə göstərilir:
17 qrupu ilə doc bağlayın

QeydProqramı tətbiq etməzdən əvvəl, orijinal məlumatların bir nüsxəsi daha yaxşı olardı.



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.

Be the first to comment.