Excel дээр мөрүүдийг нэгтгэх 2 хялбар арга

Excel дээр өгөгдлийг шинжлэх үед та олон давхардсан мөр агуулж байгааг олж мэдэх болно. Энэ тохиолдолд та мөрүүдийг хурдан нэгтгэхийг хүсч магадгүй юм. Энэ нийтлэлд үүнийг авах 2 хурдан аргыг санал болгоно.

Олон хэрэглэгчид давхардсан мөрүүдийг нэгтгэж, Excel-ийн дагуу утгуудыг нэгтгэх шаардлагатай болдог. Жишээлбэл, би Excel-ийн ажлын хуудсанд дараахь дэлгэцийн агшин шиг олон тооны давхардсан оруулгуудыг агуулсан өгөгдлийн хүрээтэй байна. Тиймээс би давхардсан мөрүүдийг нэгтгэж, харгалзах утгуудыг өөр баганад нэгтгэхийг хүсч байна. Хэрэв би үүнийг гараар хийвэл энэ нь мэдээж хэцүү байх болно. Тиймээс би үүнийг хэрэгжүүлэх дараах 2 аргыг ашиглаж байна.

Арга 1: "Нэгдэх" функцийг ашигла

1. Нэгдүгээрт, нэгтгэсэн болон нэгтгэсэн өгөгдлийг байрлуулахыг хүссэн хоосон нүдийг дарна уу.
2. Дараа нь, "Мэдээлэл" таб руу шилжиж, "Нэгдэх" товчийг дарна уу.
3. Гарч ирэх цонхны цонхонд “Функц” хайрцагт “Sum” сонгосон эсэхийг шалгана уу.
4. Дараа нь  товчлуур.
5. Дараа нь нэгтгэх хүрээгээ сонгоод товшино уу  товчлуур.
6. Үүний дараа "Нэгдэх" харилцах цонхны "Нэмэх" товчийг дарна уу.
7. Дараа нь "Дээд эгнээ" ба "Зүүн багана" сонголтыг шалгана уу.
8. Эцэст нь “OK” товчийг дарна уу.
9. Дараахь дэлгэцийн агшинд харуулсны дагуу эгнээ нэг дор нэгтгэгдэнэ.

Арга 2: Excel VBA код ашиглах

1. Хамгийн эхэнд хүссэн хүрээгээ сонго.
2. Дараа нь VBA редакторыг “VBA кодыг Excel програм дээрээ хэрхэн ажиллуулах вэ".
3. Дараа нь дараахь VBA кодыг модульд хуулж ав.

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

4. Үүний дараа “F5” товчийг дарж энэ макро одоо ажиллуулна уу.
5. Макро дуусахад Excel-ийн шинэ ажлын дэвтэр гарч ирэх бөгөөд доорх зураг шиг нэгтгэсэн мөр, нэгтгэсэн өгөгдлийг харах боломжтой.

харьцуулалт

Excel-ийн сүйрэлтэй тулгарах үед

Excel-ийн үе үе эвдэрч болзошгүйг бид бүгд мэднэ. Энэ нөхцөлд хамгийн муу нь одоогийн Excel файл шууд гэмтсэн байж болзошгүй юм. Тэр үед та оролдохоос өөр аргагүй болно Excel сэргээх. Энэ нь мэргэжлийн хүмүүсээс тусламж хүсч эсвэл Excel-ийн тусгай засварын хэрэгслийг ашиглахыг шаарддаг DataNumen Excel Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлигад автсан SQL Server програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com