Wie verschiebt man jede zweite Zeile in Spalten in Excel?

Beim Arbeiten mit Daten in Excel, insbesondere mit importierten oder unstrukturierten Datensätzen, finden Sie oft Namen und zugehörige Werte, die vertikal in einer einzigen Spalte angeordnet sind. Um diese Daten lesbarer und nutzbarer zu machen, ist es oft notwendig, sie in ein tabellarisches Format umzuwandeln – indem man jede zweite Zeile in Spalten verschiebt.
Verschieben Sie jede zweite Zeile in eine Spalte mit Formeln
Dies ist eine einfache Methode, die die INDEX-Funktion von Excel verwendet, um abwechselnde Zeilen zu extrahieren und als Spalten anzuzeigen. Wenn Sie die Namen in eine Spalte und die Alter in die nächste Spalte konvertieren möchten, wenden Sie bitte die folgenden Formeln an:
1. Geben Sie in Zelle C2 die folgende Formel in eine leere Zelle ein und ziehen Sie die Formel nach unten, wie benötigt. Diese Formel ruft den Wert aus jeder zweiten Zeile ab, beginnend bei Zeile 2 (Namen).
=INDEX($A:$A, (ROW(A1)-1)*2 + 2)

2. Geben Sie in Zelle D2 die folgende Formel ein, um die alternativen Daten zu extrahieren, und ziehen Sie die Formel nach unten, um die Zellen zu füllen.
=INDEX($A:$A, (ROW(A1)-1)*2 + 3)

- INDEX($A:$A, ...): Sucht in Spalte A und gibt den Wert aus einer bestimmten Zeilennummer zurück.
- ZEILE(A1): Gibt die aktuelle Zeilennummer zurück. In A1 gibt es 1 zurück. Wenn Sie die Formel nach unten ziehen, wird daraus A2 (Zeile 2), A3 (Zeile 3) usw.
- (ZEILE(A1)-1)*2 + 2: Dies berechnet die Zeilennummer, aus der aus Spalte A gezogen werden soll.
Die Formel zieht also Werte aus A2, A4, A6, A8…, was bedeutet, dass jede zweite Zeile (beginnend bei Zeile 2) genommen wird.
Verschieben Sie jede zweite Zeile in eine Spalte mit Kutools für Excel
Wenn Sie eine benutzerfreundlichere, formelfreie Lösung bevorzugen, bietet Kutools für Excel eine Funktion, mit der Sie Zeilen mühelos in Spalten transponieren können.
Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:
- Klicken Sie auf Kutools > Bereich > Transform Range.
- Im Dialogfeld „Transform Range“ legen Sie die folgenden Operationen fest:
- Wählen Sie den Bereich aus, den Sie verschieben möchten.
- Aktivieren Sie „Einzelne Spalte zu Bereich“ im Abschnitt „Transformationsart“,
- Und aktivieren Sie dann „Fester Wert“ und wählen Sie oder geben Sie 2 in der Liste im Abschnitt „Zeilen pro Datensatz“ ein.
- Klicken Sie abschließend auf die Schaltfläche OK.
- Im folgenden Eingabefeld wählen Sie eine einzelne Zelle aus, um das Ergebnis auszugeben, siehe Screenshot:
- Klicken Sie auf OK, Kutools verschiebt automatisch jede zweite Zeile in separate Spalten.
Verschieben Sie jede zweite Zeile in eine Spalte mit VBA-Code
Wenn Sie diese Aufgabe häufig ausführen müssen, kann ein VBA-Makro den Prozess automatisieren und ihn schneller und effizienter gestalten.
1. Drücken Sie gleichzeitig die Tasten F11 + Alt auf der Tastatur, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie dann auf Einfügen > Modul, um ein neues Modulfenster einzufügen. Kopieren Sie dann den folgenden VBA-Code in das Fenster.
VBA: Verschieben Sie jede zweite Zeile in eine Spalte.
Sub MoveRange()
'Updateby Extendoffice
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)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. Klicken Sie auf die Schaltfläche Ausführen oder die Taste F5 auf der Tastatur, und ein Dialogfeld erscheint, in dem Sie einen Bereich zum Verschieben auswählen können. Siehe Screenshot:
4. Klicken Sie dann auf OK, um ein weiteres Dialogfeld zu öffnen, in dem Sie eine Zelle auswählen können, um das Ergebnis auszugeben. Siehe Screenshot:
5. Klicken Sie auf OK, und Sie können das Ergebnis wie folgt sehen:
🎯 Fazit:
Jede Methode zum Verschieben jeder zweiten Zeile in Spalten in Excel hat ihre eigenen Vorteile, je nach Ihren Bedürfnissen:
- Formelmethode: Am besten für schnelle, einmalige Aufgaben mit kleinen Datensätzen geeignet. Es erfordert keine zusätzlichen Tools, kann aber bei großen Datenbereichen langsamer werden.
- Kutools für Excel: Ideal für Benutzer, die eine einfache, klickbasierte Lösung ohne komplexe Formeln oder Codierung bevorzugen. Kutools bietet eine benutzerfreundliche Oberfläche für schnelle Transformationen.
- VBA-Makro: Die beste Wahl für Automatisierung und wiederholte Aufgaben, insbesondere bei großen Datensätzen. Erfordert Grundkenntnisse im Programmieren, bietet aber maximale Flexibilität.
Wählen Sie die Methode, die Ihren Anforderungen entspricht, egal ob Sie mit einem kleinen Datensatz arbeiten oder eine skalierbarere Lösung für größere Datensätze benötigen. Wenn Sie mehr über Excel-Tipps und -Tricks erfahren möchten, bietet unsere Website Tausende von Tutorials, um Ihnen zu helfen, Excel zu beherrschen.
Verwandte Artikel:
Die besten Office-Produktivitätstools
Steigern Sie Ihre Excel-Kompetenz mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen, um Ihre 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 Reiter-Oberfläche in Office und macht Ihre Arbeit so viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen in Reitern in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Reitern desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich Hunderte von Mausklicks!