Wie füge ich jede zweite Zeile / Zelle in Excel zusammen?
Wenn Sie eine Liste mit Daten haben und jede zweite Zeile oder Zelle wie unten gezeigt kombinieren möchten, wissen Sie, wie Sie dies erreichen können? In Excel können Sie Formel oder VBA verwenden, um alle anderen Zeilen oder Zellen zusammenzuführen.
Führen Sie jede zweite Zeile / Zelle mit der Formel in Excel zusammen
Führen Sie jede zweite Zeile / Zelle mit VBA zusammen
Führen Sie jede zweite Zeile / Zelle mit der Formel in Excel zusammen
Wählen Sie eine leere Zelle und geben Sie ein =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (Ein $ 1 zeigt die ersten Daten in Ihrer Liste an. Sie können sie nach Bedarf ändern.) Drücken Sie die Eingabetaste. Ziehen Sie dann den Füllgriff, um den Bereich zu füllen, den Sie zum Anwenden dieser Formel benötigen. Siehe Screenshot:
Führen Sie jede zweite Zeile / Zelle mit VBA zusammen
Wenn Sie an die Verwendung von VBA gewöhnt sind, können Sie auch die folgende VBA ausführen, um jede zweite Zeile zusammenzuführen.
1. Halt ALT Taste drücken und drücken F11 auf der Tastatur zum Öffnen a Microsoft Visual Basic für Anwendung Fenster.
2 Klicken Insert > Modulund kopieren Sie den VBA in das Modul.
VBA: Füge jede zweite Zeile / Zelle zusammen
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 Führen Sie um den VBA-Code auszuführen, und a KutoolsforExcel Das Dialogfeld wird geöffnet, in dem Sie einen Zellenbereich auswählen können, in dem alle anderen Zeilen zusammengeführt werden sollen. Siehe Screenshot:
4 Klicken OKIn einem weiteren Dialogfeld können Sie eine einzelne Zelle auswählen, um das zusammengeführte Ergebnis auszugeben. Siehe Screenshot:
5 Klicken OKund Sie können das Ergebnis sehen:
