Ձեր Excel- ում շարքերը համախմբելու 2 հեշտ եղանակ

Excel-ում տվյալները վերլուծելիս կարող եք հայտնաբերել, որ դրանք պարունակում են բազմաթիվ կրկնօրինակ տողեր: Այս դեպքում, հնարավոր է, ցանկանաք արագ միավորել տողերը: Այս գրառումը կառաջարկի դրանք ստանալու 2 արագ միջոց:

Շատ օգտվողներ հաճախ պետք է միաձուլեն կրկնօրինակ տողերը և Excel- ում համապատասխան գումարներ ամփոփեն: Օրինակ, ես Excel- ի աշխատանքային թերթում ունեմ մի շարք տվյալներ, որոնք պարունակում են բազմաթիվ կրկնօրինակ գրառումներ, ինչպես հետևյալ սքրինշոթը: Հետևաբար, ես կցանկանայի համախմբել կրկնօրինակ տողերը և համապատասխան արժեքներն ամփոփել մեկ այլ սյունակում: Դա միանշանակ անհանգստացնող կլինի, եթե ձեռքով կատարեմ դա: Հետևաբար, ես օգտագործում եմ դա իրացնելու հետևյալ 2 եղանակները:

Մեթոդ 1. Օգտագործեք «Համախմբել» գործառույթը

1. Սկզբից կտտացրեք դատարկ բջիջին, որտեղ ցանկանում եք տեղադրել միավորված և ամփոփ տվյալները:
2. Դրանից հետո անցեք «Տվյալներ» ներդիրին և կտտացրեք «Համախմբել» կոճակին:
3. Պատուհանի երկխոսության պատուհանում համոզվեք, որ «Գումարը» ընտրված է «Գործառույթ» վանդակում:
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.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված SQL Server և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com