2 მარტივი გზა თქვენს Excel-ში რიგების კონსოლიდაციისთვის

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.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის კორუმპირებული SQL Server და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად