Kun analysoit tietoja Excelissä, saatat huomata, että ne sisältävät useita päällekkäisiä rivejä. Tässä tapauksessa ehkä haluat yhdistää rivit nopeasti. Tämä sost tarjoaa 2 nopeaa tapaa saada se.
Monien käyttäjien on usein yhdistettävä päällekkäiset rivit ja laskettava yhteen vastaavat arvot Excelissä. Minulla on esimerkiksi joukko tietoja Excel-laskentataulukossa, joka sisältää paljon päällekkäisiä merkintöjä, kuten seuraava kuvakaappaus. Siksi haluan yhdistää päällekkäiset rivit ja laskea vastaavat arvot toiseen sarakkeeseen. Se on ehdottomasti hankalaa, jos teen tämän manuaalisesti. Siksi käytän seuraavia kahta tapaa sen toteuttamiseksi.
Tapa 1: Käytä "Yhdistä" -toimintoa
- Napsauta ensin tyhjää solua, johon haluat sijoittaa yhdistetyt ja summatut tiedot.
- Käännä sitten "Data" -välilehteä ja napsauta "Consolidate" -painiketta.
- Varmista ponnahdusikkunassa, että ”Toiminto” -ruutuun on valittu ”Summa”.
- Napsauta sitten painiketta
painiketta.
- Valitse myöhemmin alue, jonka haluat yhdistää, ja napsauta painiketta.
- Napsauta sen jälkeen "Lisää" -painiketta "Yhdistä" -valintaikkunassa.
- Tarkista tämän jälkeen vaihtoehdot "Ylärivi" ja "Vasen sarake".
- Napsauta lopuksi “OK” -painiketta.
- Rivit yhdistetään kerralla, kuten seuraavassa kuvakaappauksessa näkyy.
painiketta.
painiketta.
Tapa 2: Käytä Excelin VBA-koodia
- Valitse alussa haluamasi alue.
- Käynnistä sitten VBA-editoriKuinka suorittaa VBA-koodi Excelissä".
- Kopioi seuraavaksi seuraava VBA-koodi moduuliin.
Sub MergeRowsSumValues () Dim objSelectedRange As Excel.Range Dim varAddressArray As Variant Dim nStartRow, nEndRow Kokonaislukuna 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 ErrorHandlerAsetus = Split (objSelectedRange.Address (, False), ":") nStartRow = Jaettu (varAddressArray (0), "$") (1) strFirstColumn = Jaettu (varAddressArray (0), "$") (0) nEndRow = Jaettu (varAddressArray (1), "$") (1) strSecondColumn = Jaettu (varAddressArray (1), "$") (0) Aseta objDictionary = CreateObject ("Scripting.Dictionary") For nRow = nStartRow To nEndRow strItem = ActiveSheet.Range (strFirstColumn & nRow) .Arvo strValue = ActiveSheet.Range (strSecondColumn & nRow) .Arvo Jos objDictionary.Exists (strItem) = False Sitten objDictionary.Add strItem, strValue Else objDtem.It = objDictionary.Item (strItem) + strValue End If Next Set Seuraava Aseta objNewWorkbook = Excel.Application.Workbooks.Add Set objNewWorksheet = objNewWorkbook.Sheets (1) varItems = objDictionary.keys varValues = objDictionary.items nRow = 0 For i = LBound (varIt ) UBoundiin (varItems) nRow = nRow + 1 ObjNewWorksheet .Cells (nRow, 1) = varItems (i) .Cells (nRow, 2) = varValues (i) End With Next objNewWorksheet.Columns ("A: B") AutoFit ErrorHandler: Poistu alaosasta
- Sen jälkeen paina “F5” suorittaaksesi tämän makron nyt.
- Kun makro on valmis, näkyviin tulee uusi Excel-työkirja, jossa näet yhdistetyt rivit ja yhteenvetotiedot, kuten alla oleva kuva.
Vertailu
| edut | Haitat | |
| Menetelmä 1 | Helppo käyttää | Kahta saraketta, jotka eivät ole vierekkäin, ei voi käsitellä |
| Menetelmä 2 | 1. Kätevä uudelleenkäyttöä varten | 1. Hieman vaikea ymmärtää VBA-aloittelijoille |
| 2. Älä sekoita alkuperäistä Excel-taulukkoa siten, että se laittaa yhdistetyt tiedot uuteen tiedostoon | 2. Et voi käsitellä kahta saraketta, jotka eivät ole vierekkäin |
Kun kohtaat Excel-kaatumisen
Kuten me kaikki tiedämme, Excel voi kaatua ajoittain. Tässä tilanteessa pahimmillaan nykyinen Excel-tiedosto voi vioittua suoraan. Tuolloin sinulla ei ole muuta vaihtoehtoa kuin yrittää Excel-palautus. Se vaatii sinua joko pyytämään ammattilaisten apua tai käyttämään erikoistunutta Excel-korjaustyökalua, kuten DataNumen Excel Repair.
Tekijän esittely:
Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien lahjoa SQL Server ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com
Pidän arvokkaasta tiedosta, jonka annat artikkeleissasi. Lisään blogisi kirjanmerkkeihin ja käyn täällä usein. Olen melko varma, että opin täällä paljon uutta! Onnea seuraavaan!