2 einfache Möglichkeiten zum Konsolidieren von Zeilen in Ihrem Excel

Bei der Datenanalyse in Excel stellen Sie möglicherweise fest, dass mehrere Zeilen doppelt vorhanden sind. In diesem Fall möchten Sie die Zeilen vielleicht schnell zusammenfassen. Dieser Beitrag stellt Ihnen zwei schnelle Methoden dafür vor.

Viele Benutzer müssen häufig die doppelten Zeilen zusammenführen und die entsprechenden Werte in Excel summieren. Zum Beispiel habe ich eine Reihe von Daten in einem Excel-Arbeitsblatt, das viele doppelte Einträge enthält, wie den folgenden Screenshot. Daher möchte ich die doppelten Zeilen konsolidieren und die entsprechenden Werte in einer anderen Spalte summieren. Es wird definitiv problematisch sein, wenn ich dies manuell mache. Daher benutze ich die folgenden 2 Möglichkeiten, um dies zu realisieren.

Methode 1: Verwenden Sie die Funktion „Konsolidieren“

1. Klicken Sie zunächst auf eine leere Zelle, in der Sie die zusammengeführten und summierten Daten platzieren möchten.
2. Wechseln Sie dann zur Registerkarte "Daten" und klicken Sie auf die Schaltfläche "Konsolidieren".
3. Stellen Sie im Popup-Dialogfeld sicher, dass im Feld "Funktion" die Option "Summe" ausgewählt ist.
4. Als nächstes klicken Sie auf die  .
5. Wählen Sie später den Bereich aus, den Sie konsolidieren möchten, und klicken Sie auf  .
6. Klicken Sie anschließend im Dialogfeld "Konsolidieren" auf die Schaltfläche "Hinzufügen".
7. Aktivieren Sie anschließend die Optionen "Obere Zeile" und "Linke Spalte".
8. Klicken Sie abschließend auf die Schaltfläche „OK“.
9. Die Zeilen werden sofort konsolidiert, wie im folgenden Screenshot gezeigt.

Methode 2: Verwenden Sie Excel VBA-Code

1. Wählen Sie ganz am Anfang den gewünschten Bereich aus.
2. Dann lösen Sie den VBA-Editor gemäß „So führen Sie VBA-Code in Ihrem Excel aus".
3. Kopieren Sie anschließend den folgenden VBA-Code in ein Modul.

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. Drücken Sie danach "F5", um dieses Makro jetzt auszuführen.
5. Nach Abschluss des Makros wird eine neue Excel-Arbeitsmappe angezeigt, in der Sie die zusammengeführten Zeilen und summierten Daten wie in der Abbildung unten sehen können.

Vergleich

Bei der Begegnung mit Excel Crash

Wie wir alle wissen, kann Excel von Zeit zu Zeit abstürzen. Unter diesen Umständen kann die aktuelle Excel-Datei im schlimmsten Fall direkt beschädigt werden. Zu diesem Zeitpunkt haben Sie keine andere Wahl, als es zu versuchen Excel-Wiederherstellung. Sie müssen entweder Fachleute um Hilfe bitten oder ein spezielles Excel-Reparaturwerkzeug verwenden, z DataNumen Excel Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korrupt SQL Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX