Wie kann man in Excel schnell angrenzende Zeilen mit denselben Daten zusammenführen?

Angenommen, Sie haben ein Arbeitsblatt mit denselben Daten in den angrenzenden Zeilen und möchten nun die gleichen Zellen zu einer Zelle zusammenführen, damit die Daten ordentlich und ansprechend aussehen. Wie können Sie angrenzende Zeilen mit denselben Daten schnell und bequem zusammenführen? Heute stelle ich Ihnen einige schnelle Methoden zur Lösung dieses Problems vor.

Angrenzende Zeilen mit denselben Daten mithilfe von VBA-Code zusammenführen

Angrenzende Zeilen mit denselben Daten mit Kutools für Excel zusammenführen

Zellen aufteilen und mit doppelten Werten füllen in Excel

Angrenzende Zeilen mit denselben Daten mithilfe von VBA-Code zusammenführen

Natürlich können Sie dieselben Daten mit dem Befehl „Zusammenführen & Zentrieren“ zusammenführen, aber wenn Hunderte von Zellen zusammengeführt werden müssen, ist diese Methode zeitaufwendig. Der folgende VBA-Code kann Ihnen helfen, dieselben Daten ganz einfach zusammenzuführen.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro im Modulfenster ein.

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen. Ein Dialogfeld wird auf dem Bildschirm angezeigt, um einen Bereich zur Bearbeitung auszuwählen. Siehe Screenshot:

4. Klicken Sie dann auf OK, und die gleichen Daten in Spalte A werden zusammengeführt. Siehe Screenshot:

Angrenzende Zeilen mit denselben Daten mit Kutools für Excel zusammenführen

Mit der Funktion „Gleiche Zellen zusammenführen“ von Kutools für Excel können Sie mit einem Klick schnell die gleichen Werte in mehreren Spalten zusammenführen.

Nach der Installation von Kutools für Excel können Sie wie folgt vorgehen:

1. Wählen Sie die Spalten aus, in denen Sie die angrenzenden Zeilen mit denselben Daten zusammenführen möchten.

2. Klicken Sie auf Kutools > Zusammenführen & Aufteilen > Gleiche Zellen zusammenführen, siehe Screenshot:

3. Die gleichen Daten in den ausgewählten Spalten wurden dann in einer Zelle zusammengeführt. Siehe Screenshot:

Klicken Sie hier, um Kutools für Excel herunterzuladen und jetzt die kostenlose Testversion zu starten!