Wie können Sie benachbarte Zeilen mit identischen Daten in Excel schnell zusammenführen?
Angenommen, Sie haben ein Arbeitsblatt mit identischen Daten in benachbarten Zeilen und möchten diese gleichen Zellen zu einer einzigen Zelle zusammenführen, damit Ihre Daten übersichtlicher und ansprechender wirken. Wie können Sie benachbarte Zeilen mit identischen Inhalten schnell und bequem zusammenführen? Heute zeige ich Ihnen einige effiziente Methoden, um dieses Problem einfach zu lösen.
Benachbarte Zeilen mit identischen Daten mithilfe von VBA-Code zusammenführen
Benachbarte Zeilen mit identischen Daten mithilfe von Kutools für Excel zusammenführen
Zusammengeführte Zellen aufheben und mit Doppelte Werte in Excel füllen
Benachbarte Zeilen mit identischen Daten mithilfe von VBA-Code zusammenführen
Natürlich können Sie identische Daten mit dem Befehl Zusammenführen und zentrieren zusammenführen – doch wenn Hunderte von Zellen zusammengeführt werden müssen, wird diese Methode schnell zeitaufwendig. Der folgende VBA-Code hilft Ihnen, identische Daten mühelos 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 in das Modul-Fenster 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 anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Dialogfeld auf dem Bildschirm, in dem Sie einen Bereich zur Verarbeitung auswählen können. Siehe Screenshot:
4. Klicken Sie dann auf OK, um identische Daten in Spalte A zu einer Zelle zusammenzuführen. Siehe Screenshot:
Benachbarte Zeilen mit identischen Daten mithilfe von Kutools für Excel zusammenführen
Mithilfe des Tools Gleiche Zellen zusammenführen von Kutools für Excel können Sie identische Werte in mehreren Spalten mit nur einem Klick blitzschnell zusammenführen.
Nach der Installation von Kutools für Excelgehen Sie wie folgt vor:
1. Wählen Sie die Spalten aus, in denen Sie benachbarte Zeilen mit identischen Werten zusammenführen möchten.
2. Klicken Sie auf Kutools > Vereinigen/Aufteilen > Gleiche Zellen zusammenführen, siehe Screenshot:
3. Anschließend wurden die identischen Daten in den ausgewählten Spalten jeweils zu einer Zelle zusammengeführt. Siehe Screenshot:
Klicken Sie hier, um Kutools für Excel jetzt herunterzuladen und kostenlos zu testen!
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins