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:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins