Excel-də sətirləri birləşdirməyin 2 asan yolu

Excel Həlləri Oktyabr 3, 2025

Excel-də məlumatları təhlil edərkən, birdən çox təkrarlanan sətir ehtiva etdiyini görə bilərsiniz. Bu halda, sətirləri tez bir zamanda birləşdirmək istəyə bilərsiniz. Bu yazıda onu əldə etməyin 2 sürətli yolu təqdim olunacaq.

Bir çox istifadəçi tez-tez təkrarlanan sətirləri birləşdirməli və Excel-də müvafiq dəyərləri cəmləməlidir. Məsələn, Excel iş vərəqində aşağıdakı ekran görüntüsü kimi çoxlu dublikat qeydləri ehtiva edən bir sıra məlumatım var. Beləliklə, mən dublikat sətirləri birləşdirmək və müvafiq dəyərləri başqa bir sütunda toplamaq istəyirəm. Bunu əl ilə etsəm, şübhəsiz ki, çətin olacaq. Buna görə də, mən bunu həyata keçirmək üçün aşağıdakı 2 yoldan istifadə edirəm.

Metod 1: "Birləşdirmək" funksiyasından istifadə edin

Əvvəlcə birləşdirilmiş və cəmlənmiş məlumatları yerləşdirmək istədiyiniz boş xananı vurun.
Sonra "Məlumatlar" sekmesine keçin və "Birləşdirin" düyməsini basın.
Açılan informasiya qutusunda “Funksiya” qutusunda “Cəmi” seçildiyinə əmin olun.
Daha sonra basın düyməsini basın.
Daha sonra birləşdirmək istədiyiniz aralığı seçin və üzərinə klikləyin düyməsini basın.
Bundan sonra, "Birləşdirin" dialoq qutusunda "Əlavə et" düyməsini basın.
Sonra, "Üst sıra" və "Sol sütun" seçimini yoxlayın.
Nəhayət, "OK" düyməsini basın.
Aşağıdakı ekran görüntüsündə göstərildiyi kimi, dərhal sıralar birləşdirilir.

Metod 2: Excel VBA kodundan istifadə edin

Ən başlanğıcda istədiyiniz aralığı seçin.
Sonra "VBA redaktorunu işə salın"Excel-də VBA kodunu necə işlətmək olar".
Sonra, aşağıdakı VBA kodunu modula köçürün.

Sub MergeRowsSumValues()
    Dim objSelectedRange As Excel.Range
    Dim varAddressArray As Variant
    Dim nStartRow, nEndRow As Integer
    Dim strFirstColumn, strSecondColumn As String
    Dim objDictionary As Object
    Dim nRow As Integer
    Dim objNewWorkbook As Excel.Workbook
    Dim objNewWorksheet As Excel.Worksheet
    Dim varItems, varValues As Variant
 
    On Error GoTo ErrorHandler
    Set objSelectedRange = Excel.Application.Selection
    varAddressArray = Split(objSelectedRange.Address(, False), ":")
    nStartRow = Split(varAddressArray(0), "$")(1)
    strFirstColumn = Split(varAddressArray(0), "$")(0)
    nEndRow = Split(varAddressArray(1), "$")(1)
    strSecondColumn = Split(varAddressArray(1), "$")(0)
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
    For nRow = nStartRow To nEndRow
        strItem = ActiveSheet.Range(strFirstColumn & nRow).Value
        strValue = ActiveSheet.Range(strSecondColumn & nRow).Value
  
        If objDictionary.Exists(strItem) = False Then
           objDictionary.Add strItem, strValue
        Else
           objDictionary.Item(strItem) = objDictionary.Item(strItem) + strValue
        End If
    Next
 
    Set objNewWorkbook = Excel.Application.Workbooks.Add
    Set objNewWorksheet = objNewWorkbook.Sheets(1)
 
    varItems = objDictionary.keys
    varValues = objDictionary.items
 
    nRow = 0
    For i = LBound(varItems) To UBound(varItems)
        nRow = nRow + 1
        With objNewWorksheet
             .Cells(nRow, 1) = varItems(i)
             .Cells(nRow, 2) = varValues(i)
        End With
    Next
    objNewWorksheet.Columns("A:B").AutoFit
 
ErrorHandler:
    Exit sub
End Sub

Bundan sonra bu makronu indi işə salmaq üçün “F5” düyməsini sıxın.
Makro tamamlandıqda, yeni bir Excel iş kitabı görünəcək, burada aşağıdakı şəkildəki kimi birləşdirilmiş sətirləri və cəmlənmiş məlumatları görə bilərsiniz.

Müqayisə

	Üstünlüklər	Dezavantajları
Metod 1	Asan	Bir-birinin yanında olmayan iki sütunu emal etmək mümkün deyil
Metod 2	1. Təkrar istifadə üçün əlverişlidir	1. VBA-ya yeni başlayanlar üçün başa düşmək bir qədər çətindir
Metod 2	2. Orijinal Excel vərəqini qarışdırmayacaq, çünki birləşdirilmiş məlumatları yeni fayla yerləşdirir	2. Bir-birinin yanında olmayan iki sütunu emal etmək mümkün deyil

Excel qəzası ilə qarşılaşdıqda

Hamımızın bildiyi kimi, Excel vaxtaşırı çökə bilər. Bu vəziyyətdə, ən pis halda, cari Excel faylı birbaşa pozula bilər. O zaman cəhd etməkdən başqa çarəniz yoxdur Excel bərpası. O, sizdən ya peşəkarlardan kömək istəmənizi və ya xüsusi Excel təmir alətindən istifadə etməyi tələb edir, məsələn DataNumen Excel Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc satqın SQL Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com