2 Madaling Mga Paraan upang pagsamahin ang Mga Rows sa Iyong Excel

Kapag sinusuri ang datos sa Excel, maaaring makita mong naglalaman ito ng maraming duplicate na row. Sa kasong ito, marahil ay gugustuhin mong mabilis na pagsama-samahin ang mga row. Ang post na ito ay mag-aalok ng 2 mabilis na paraan upang makuha ito.

Maraming mga gumagamit ang madalas na kailangang pagsamahin ang mga duplicate na hilera at ibigay ang mga naaayon na halaga sa Excel. Halimbawa, mayroon akong isang saklaw ng data sa isang worksheet ng Excel na naglalaman ng maraming mga duplicate na entry, tulad ng sumusunod na screenshot. Samakatuwid, nais kong pagsamahin ang mga dobleng hilera at ibigay ang mga katumbas na halaga sa isa pang haligi. Tiyak na magiging mahirap ito kung manu-manong gawin ko ito. Samakatuwid, ginagamit ko ang sumusunod na 2 mga paraan upang mapagtanto ito.

Paraan 1: Gumamit ng "Pagsamahin" na Pag-andar

1. Una, mag-click sa isang blangko na cell kung saan mo nais na ilagay ang pinagsama at buod na data.
2. Pagkatapos, buksan ang tab na "Data" at mag-click sa pindutang "Pagsamahin".
3. Sa popup dialog box, tiyaking napili ang "Sum" sa kahon na "Pag-andar".
4. Susunod, i-click ang  button.
5. Mamaya, piliin ang saklaw na nais mong pagsamahin at i-click  button.
6. Pagkatapos nito, i-click ang pindutang "Idagdag" sa dialog na "Pagsamahin".
7. Kasunod, suriin ang pagpipiliang "Nangungunang hilera" at "Kaliwang haligi".
8. Panghuli, i-click ang pindutan na "OK".
9. Nang sabay-sabay, ang mga hilera ay pinagsama, tulad ng ipinakita sa sumusunod na screenshot.

Paraan 2: Gumamit ng Excel VBA Code

1. Sa simula pa lang, piliin ang saklaw na gusto mo.
2. Pagkatapos, mag-trigger ng VBA editor ayon sa “Paano Patakbuhin ang VBA Code sa Iyong Excel".
3. Susunod, kopyahin ang sumusunod na VBA code sa isang module.

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. Pagkatapos nito, pindutin ang "F5" upang patakbuhin ang macro na ito ngayon.
5. Kapag natapos ang macro, lalabas ang isang bagong workbook ng Excel, kung saan maaari mong makita ang mga pinagsamang mga hilera at na-summed na data, tulad ng imahe sa ibaba.

paghahambing

Kapag Nakakatagpo ng Excel Crash

Tulad ng alam nating lahat, ang Excel ay maaaring mag-crash paminsan-minsan. Sa ilalim ng pangyayaring ito, sa pinakamasama nito, ang kasalukuyang file ng Excel ay maaaring direktang masira. Sa oras na iyon, wala kang pagpipilian kundi ang magtangka Paggaling ng Excel. Hinihiling nito sa iyo na humingi ng tulong sa mga propesyonal o gumamit ng isang dalubhasang tool sa pag-aayos ng Excel, tulad ng DataNumen Excel Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sira SQL Server at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa