2 jednoduché spôsoby konsolidácie riadkov v programe Excel

Pri analýze údajov v programe Excel môžete zistiť, že obsahujú viac duplicitných riadkov. V takom prípade možno budete chcieť riadky rýchlo skonsolidovať. Toto post ponúkne 2 rýchle prostriedky na jeho získanie.

Mnoho používateľov často musí zlúčiť duplicitné riadky a sčítať príslušné hodnoty v programe Excel. Mám napríklad celý rad údajov v pracovnom hárku programu Excel, ktorý obsahuje veľa duplicitných záznamov, ako napríklad nasledujúci obrázok obrazovky. Preto by som chcel skonsolidovať duplicitné riadky a sčítať zodpovedajúce hodnoty v inom stĺpci. Bude to určite nepríjemné, ak to urobím ručne. Preto využívam nasledujúce 2 spôsoby, ako si to uvedomiť.

Metóda 1: Použite funkciu „Konsolidovať“

1. Najskôr kliknite na prázdnu bunku, kam chcete umiestniť zlúčené a sčítané údaje.
2. Potom sa obráťte na kartu „Údaje“ a kliknite na tlačidlo „Konsolidovať“.
3. V rozbaľovacom dialógovom okne skontrolujte, či je v poli „Funkcia“ vybratá položka „Sum“.
4. Ďalej kliknite na tlačidlo  tlačidlo.
5. Neskôr vyberte rozsah, ktorý chcete skonsolidovať, a kliknite na  tlačidlo.
6. Potom kliknite na tlačidlo „Pridať“ v dialógovom okne „Konsolidovať“.
7. Následne začiarknite možnosti „Horný riadok“ a „Ľavý stĺpec“.
8. Nakoniec kliknite na tlačidlo „OK“.
9. Naraz sú riadky spojené, ako ukazuje nasledujúca snímka obrazovky.

Metóda 2: Použite kód Excel VBA

1. Hneď na začiatku vyberte požadovaný rozsah.
2. Potom spustite editor VBA podľa „Ako spustiť kód VBA v programe Excel".
3. Ďalej skopírujte nasledujúci 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. Potom stlačte „F5“, aby ste teraz spustili toto makro.
5. Po dokončení makra sa zobrazí nový zošit programu Excel, v ktorom uvidíte zlúčené riadky a sčítané údaje, ako je obrázok nižšie.

Porovnanie

Pri stretnutí s programom Excel Crash

Ako všetci vieme, program Excel môže občas zlyhať. Za týchto okolností, v najhoršom prípade, môže byť aktuálny súbor Excel poškodený priamo. V tom čase ti nezostáva nič iné, ako sa pokúsiť Excel zotavenie. Vyžaduje od vás, aby ste požiadali o pomoc profesionálov, alebo využili špecializovaný nástroj na opravu programu Excel, ako je napr DataNumen Excel Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skazený SQL Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S