2 snadné způsoby konsolidace řádků v aplikaci Excel

Při analýze dat v Excelu můžete zjistit, že obsahují více duplicitních řádků. V takovém případě budete možná chtít řádky rychle sloučit. Tento příspěvek nabízí 2 rychlé způsoby, jak toho dosáhnout.

Mnoho uživatelů často potřebuje sloučit duplicitní řádky a sečíst odpovídající hodnoty v aplikaci Excel. Například mám řadu dat v listu aplikace Excel, který obsahuje spoustu duplicitních položek, jako je následující snímek obrazovky. Proto bych chtěl konsolidovat duplicitní řádky a sečíst odpovídající hodnoty v jiném sloupci. Bude to určitě problematické, pokud to udělám ručně. Proto využívám následující 2 způsoby, jak to realizovat.

Metoda 1: Použijte funkci „Konsolidovat“

1. Nejprve klikněte na prázdnou buňku, kam chcete umístit sloučená a sečtená data.
2. Poté přejděte na kartu „Data“ a klikněte na tlačítko „Konsolidovat“.
3. V rozbalovacím dialogovém okně zkontrolujte, zda je v poli „Funkce“ vybrán „Součet“.
4. Dále klikněte na tlačítko  .
5. Později vyberte rozsah, který chcete sloučit, a klikněte  .
6. Poté klikněte na tlačítko „Přidat“ v dialogu „Konsolidovat“.
7. Následně zaškrtněte možnosti „Horní řádek“ a „Levý sloupec“.
8. Nakonec klikněte na tlačítko „OK“.
9. Najednou jsou řádky sloučeny, jak ukazuje následující snímek obrazovky.

Metoda 2: Použijte kód Excel VBA

1. Na samém začátku vyberte požadovaný rozsah.
2. Poté spusťte editor VBA podle „Jak spustit kód VBA v aplikaci Excel".
3. Dále zkopírujte následující kód VBA do modulu.

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. Poté spusťte toto makro stisknutím klávesy „F5“.
5. Po dokončení makra se zobrazí nový sešit aplikace Excel, ve kterém uvidíte sloučené řádky a sečtená data, jako je obrázek níže.

Porovnání

Při setkání s Excel Crash

Jak všichni víme, Excel může občas selhat. Za těchto okolností, v nejhorším případě, může být aktuální soubor Excel poškozen přímo. V té době vám nezbývá než se pokusit Obnova aplikace Excel. Vyžaduje, abyste požádali o pomoc odborníky, nebo využili specializovaného nástroje pro opravu aplikace Excel, jako je DataNumen Excel Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkažený SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com