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ť“
- Najskôr kliknite na prázdnu bunku, kam chcete umiestniť zlúčené a sčítané údaje.
- Potom sa obráťte na kartu „Údaje“ a kliknite na tlačidlo „Konsolidovať“.
- V rozbaľovacom dialógovom okne skontrolujte, či je v poli „Funkcia“ vybratá položka „Sum“.
- Ďalej kliknite na tlačidlo
tlačidlo.
- Neskôr vyberte rozsah, ktorý chcete skonsolidovať, a kliknite na tlačidlo.
- Potom kliknite na tlačidlo „Pridať“ v dialógovom okne „Konsolidovať“.
- Následne začiarknite možnosti „Horný riadok“ a „Ľavý stĺpec“.
- Nakoniec kliknite na tlačidlo „OK“.
- Naraz sú riadky spojené, ako ukazuje nasledujúca snímka obrazovky.
tlačidlo.
tlačidlo.
Metóda 2: Použite kód Excel VBA
- Hneď na začiatku vyberte požadovaný rozsah.
- Potom spustite editor VBA podľa „Ako spustiť kód VBA v programe Excel".
- Ďalej skopírujte nasledujúci kód VBA do modulu.
Sub MergeRowsSumValues () Dim objSelectedRange As Excel. Range Dim varAddressArray As Variant Dim nStartRow, nEndRow ako celé číslo Dim strFirstColumn, strSecondColumn ako reťazec Dim objDictionary ako objekt Dim nRow ako celé číslo Dim objNewWorkbook ako Excel.Workbook Dim objNewWorksheet ako Excel.Worksheet Dim varItems, varValues ako variant pri chybe GoTo ErrorHandler Set = 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). Hodnota strValue = ActiveSheet.Range (strSecondColumn & nRow). Hodnota If objDictionary.Exists (strItem) = False Then objDictionary.Add strItem, strValue Else = objDictionary.Item (strItem) + strValue End If Next Set objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets (1) varItems = objDictionary.keys varValues = objDictionary.itys nRow = 0 pre i = LBL = 1 ) Na UBound (varItems) nRow = nRow + 1 s objNewWorksheet. Cells (nRow, 2) = varItems (i) .Cells (nRow, XNUMX) = varValues (i) Koniec s ďalšími objNewWorksheet.Columns ("A: B") . AutoFit ErrorHandler: Exit sub End Sub
- Potom stlačte „F5“, aby ste teraz spustili toto makro.
- 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
| výhody | Nevýhody | |
| Metóda 1 | Ľahká obsluha | Nie je možné spracovať dva stĺpce, ktoré nie sú vedľa seba |
| Metóda 2 | 1. Pohodlné na opätovné použitie | 1. Trochu ťažké pochopiť pre nováčikov VBA |
| 2. Nepoškodí pôvodný hárok programu Excel tým, že vloží zlúčené údaje do nového súboru | 2. Nie je možné spracovať dva stĺpce, ktoré nie sú vedľa seba |
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
Páčia sa mi cenné informácie, ktoré uvádzate vo svojich článkoch. Uložím si váš blog ako záložku a budem ho tu často kontrolovať. Som si celkom istý, že sa tu naučím veľa nových vecí! Veľa šťastia nabudúce!