Wie kann man jede zweite Zeile oder Zelle in Excel zusammenführen?
Haben Sie eine Datenliste und möchten jede zweite Zeile oder Zelle – wie unten gezeigt – zusammenführen? In Excel können Sie dafür ganz einfach eine Formel oder VBA nutzen, um jede zweite Zeile oder Zelle zu verbinden.
Verwenden Sie eine Formel, um jede zweite Zeile oder Zelle in Excel zusammenzuführen
Verwenden Sie VBA-Code, um jede zweite Zeile oder Zelle in Excel zusammenzuführen
Verwenden Sie eine Formel, um jede zweite Zeile oder Zelle in Excel zusammenzuführen
Wählen Sie eine leere Zelle aus, geben Sie die folgende Formel ein und bestätigen Sie mit der Enter-Taste.
=OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0)Ziehen Sie anschließend den Ausfüllknebel nach unten, um den gewünschten Bereich mit der Formel zu füllen.
Verwenden Sie VBA-Code, um jede zweite Zeile oder Zelle in Excel zusammenzuführen
Wenn Sie mit VBA vertraut sind, können Sie alternativ den folgenden VBA-Code ausführen, um jede zweite Zeile zu kombinieren.
1. Halten Sie die „ALT“-Taste gedrückt und drücken Sie „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den VBA-Code in das Modul ein.
VBA: Jede zweite Zeile/Zelle zusammenführen
Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
For j = 1 To InputRng.Columns.Count
OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
Set OutRng = OutRng.Offset(0, 1)
Next
Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub
3. Klicken Sie auf „Ausführen“, um den VBA-Code zu starten. Anschließend öffnet sich das Dialogfeld „KutoolsforExcel“, in dem Sie einen Zellbereich auswählen können, dessen jede zweite Zeile zusammengeführt werden soll. Siehe Screenshot:
4. Klicken Sie auf „OK“. Anschließend erscheint ein weiteres Dialogfeld, in dem Sie eine einzelne Zelle auswählen können, in der das zusammengeführte Ergebnis ausgegeben werden soll. Siehe Screenshot:
5. Klicken Sie auf „OK“, und schon sehen Sie das Ergebnis:
Verwandte Artikel:
- Wählen Sie jede zweite oder n-te Zeile in Excel aus
- Kopieren Sie jede zweite Zeile
- Löschen Sie jede zweite Zeile
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