2 helppoa tapaa yhdistää rivit Exceliin

Kun analysoit tietoja Excelissä, saatat huomata, että siinä on useita päällekkäisiä rivejä. Tässä tapauksessa haluat ehkä yhdistää rivit nopeasti. Tässä viestissä on kaksi nopeaa tapaa saada se selville.

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

1. Napsauta ensin tyhjää solua, johon haluat sijoittaa yhdistetyt ja summatut tiedot.
2. Käännä sitten "Data" -välilehteä ja napsauta "Consolidate" -painiketta.
3. Varmista ponnahdusikkunassa, että ”Toiminto” -ruutuun on valittu ”Summa”.
4. Napsauta sitten painiketta  painiketta.
5. Valitse myöhemmin alue, jonka haluat yhdistää, ja napsauta  painiketta.
6. Napsauta sen jälkeen "Lisää" -painiketta "Yhdistä" -valintaikkunassa.
7. Tarkista tämän jälkeen vaihtoehdot "Ylärivi" ja "Vasen sarake".
8. Napsauta lopuksi “OK” -painiketta.
9. Rivit yhdistetään kerralla, kuten seuraavassa kuvakaappauksessa näkyy.

Tapa 2: Käytä Excelin VBA-koodia

1. Valitse alussa haluamasi alue.
2. Käynnistä sitten VBA-editoriKuinka suorittaa VBA-koodi Excelissä".
3. Kopioi seuraavaksi seuraava VBA-koodi moduuliin.

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. Sen jälkeen paina “F5” suorittaaksesi tämän makron nyt.
5. Kun makro on valmis, näkyviin tulee uusi Excel-työkirja, jossa näet yhdistetyt rivit ja yhteenvetotiedot, kuten alla oleva kuva.

Vertailu

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