2 jednostavna načina za konsolidaciju redova u vašem Excelu

Prilikom analize podataka u Excelu, možete otkriti da sadrže više dupliciranih redova. U tom slučaju, možda ćete htjeti brzo konsolidirati redove. Ovaj članak će ponuditi 2 brza načina da to postignete.

Mnogi korisnici često moraju spojiti duple redove i zbrojiti odgovarajuće vrijednosti u Excelu. Na primjer, imam niz podataka u Excel radnom listu koji sadrži mnogo duplikata, kao što je sljedeći snimak ekrana. Stoga želim konsolidirati duple redove i zbrojiti odgovarajuće vrijednosti u drugoj koloni. Definitivno će biti problematično ako ovo uradim ručno. Stoga koristim sljedeća 2 načina da to realizujem.

Metoda 1: Koristite funkciju „Konsolidacija“.

1. Prvo, kliknite na praznu ćeliju u koju želite da postavite spojene i zbrojene podatke.
2. Zatim idite na karticu „Podaci“ i kliknite na dugme „Konsolidiraj“.
3. U iskačućem dijaloškom okviru, uvjerite se da je “Sum” odabrano u okviru “Function”.
4. Zatim kliknite na dugme  dugme.
5. Kasnije odaberite raspon koji želite konsolidirati i kliknite  dugme.
6. Nakon toga, kliknite na dugme "Dodaj" u dijalogu "Konsolidacija".
7. Nakon toga, provjerite opciju "Gornji red" i "Ljeva kolona".
8. Na kraju kliknite na dugme “OK”.
9. Redovi su odjednom konsolidovani, kao što je prikazano na sledećem snimku ekrana.

Metoda 2: Koristite Excel VBA kod

1. Na samom početku odaberite raspon koji želite.
2. Zatim pokrenite VBA editor prema “Kako pokrenuti VBA kod u vašem Excelu".
3. Zatim kopirajte sljedeći VBA kod u modul.

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. Nakon toga, pritisnite “F5” da sada pokrenete ovaj makro.
5. Kada se makro završi, pojavit će se nova Excel radna knjiga u kojoj možete vidjeti spojene redove i zbrojene podatke, kao na slici ispod.

poređenje

Kada naiđete na pad programa Excel

Kao što svi znamo, Excel se s vremena na vrijeme može srušiti. Pod ovim okolnostima, u najgorem slučaju, trenutna Excel datoteka može biti direktno oštećena. U tom trenutku nemate izbora osim da pokušate Excel oporavak. Zahtijeva da ili zatražite pomoć od profesionalaca ili koristite specijalizirani Excel alat za popravku, kao što je DataNumen Excel Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući korumpiran SQL Server i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com