Wie teile ich jede zweite Zeile in Excel eine Spalte?
Zum Beispiel habe ich eine lange Liste von Daten, und jetzt möchte ich die Spalte durch jede zweite Zeile gleichmäßig in zwei Listen aufteilen, wie im folgenden Screenshot gezeigt. Gibt es gute Möglichkeiten, mit dieser Aufgabe in Excel umzugehen?
Teilen Sie eine Spalte jede zweite Zeile mit Formeln
Teilen Sie jede zweite Zeile eine Spalte mit VBA-Code
Teilen Sie mit Kutools for Excel jede zweite Zeile eine Spalte
Teilen Sie eine Spalte jede zweite Zeile mit Formeln
Die folgenden Formeln können Ihnen dabei helfen, eine Spalte durch jede zweite Zeile schnell in zwei Spalten aufzuteilen. Gehen Sie dazu wie folgt vor:
1. Geben Sie diese Formel in eine leere Zelle ein, z. B. C2. =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), siehe Screenshot:
2. Ziehen Sie dann den Füllgriff nach unten, bis die Fehler in den Zellen angezeigt werden (siehe Screenshot):
3. Geben Sie dann eine andere Formel in Zelle D2 ein. =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)Ziehen Sie den Füllpunkt nach unten in die Zellen, bis Fehlerwerte angezeigt werden und die Spaltenwerte in jeder zweiten Zeile in zwei Spalten aufgeteilt wurden (siehe Abbildung):
Teilen Sie jede zweite Zeile eine Spalte mit VBA-Code
Wenn Sie an VBA-Code interessiert sind, kann ich hier über einen Code sprechen, mit dem Sie dieses Problem lösen können.
1. Halten Sie die Taste gedrückt ALT + F11 Tasten in Excel, und es öffnet sich die Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Teilen Sie jede zweite Zeile eine Spalte in zwei Spalten auf
Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
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)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
If index Mod 2 = 1 Then
OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
num1 = num1 + 1
Else
OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
num2 = num2 + 1
End If
Next
End Sub
3. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie teilen möchten. Siehe Screenshot:
4. Und klicken Sie auf OKwird ein weiteres Eingabeaufforderungsfeld angezeigt, in dem Sie eine Zelle auswählen können, in der das Ergebnis angezeigt werden soll (siehe Screenshot):
5. Dann klick OK, und die Spalte wurde von jeder zweiten Zeile in zwei Spalten aufgeteilt. Siehe Screenshot:
Teilen Sie mit Kutools for Excel jede zweite Zeile eine Spalte
Wenn Sie mehr Neues lernen möchten, kann ich Ihnen ein leistungsstarkes Tool empfehlen -Kutools for ExcelMit seinen Bereich transformieren Mit diesem Dienstprogramm können Sie eine einzelne Zeile oder Spalte schnell in einen Zellbereich konvertieren und umgekehrt.
| Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor :( Laden Sie Kutools for Excel jetzt kostenlos herunter )
1. Wählen Sie die Spaltendaten aus, die Sie durch jede zweite Zeile in zwei Spalten aufteilen möchten.
2. Dann klick Kutoolen > Abdeckung > Bereich transformieren, siehe Screenshot:
3. In dem Bereich transformieren Dialogfeld auswählen Einzelne Spalte zum Bereich unter dem Typ transformieren, Dann wählen Fester Wert und gib ein 2 in die Box in der Zeilen pro Datensatz Abschnitt, siehe Screenshot:
4. Dann klick Ok Die Schaltfläche und ein Eingabeaufforderungsfeld werden angezeigt, um Sie daran zu erinnern, dass Sie eine Zelle ausgewählt haben, in der Sie das Ergebnis ausgeben möchten. Siehe Screenshot:
5. Klicken Sie OKwurden die Listendaten in jeder zweiten Zeile in zwei Spalten aufgeteilt.
Klicken Sie hier, um mehr über dieses Dienstprogramm zum Transformieren des Bereichs zu erfahren.
Laden Sie Kutools for Excel jetzt kostenlos herunter
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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
