Wie transponiere ich Spalten in Zeilen und füge neue Zeilen ein, um Daten in Excel aufzufüllen?
In diesem Artikel stelle ich einen VBA-Code vor, mit dem Spalten in Zeilen transponiert und neue Zeilen eingefügt werden können, um die Daten wie unten gezeigt auszufüllen. Wenn Sie an diesem Vorgang interessiert sind, gehen Sie bitte weiter unten, um weitere Informationen zu erhalten.
Transponieren und Einfügen von Zeilen mit VBA
Transponieren und Einfügen von Zeilen mit VBA
Es gibt keine direkte Möglichkeit, einen Bereich zu transponieren und Zeilen einzufügen, um dieselben Daten auszufüllen, aber hier kann ich einen VBA-Code einführen, um diese Aufgabe schnell zu lösen.
1. Drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden VBA-Code in das Modulfenster ein. Siehe Screenshot:
VBA: Zeilen transponieren und einfügen.
Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
Dim xRg As Range
Dim i As Long, j As Long, k As Long
Dim x As Long, y As Long
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
Application.ScreenUpdating = False
x = xRg(1, 1).Column + 2
y = xRg(1, xRg.Columns.Count).Column
For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
k = Cells(i, x - 2).End(xlToRight).Column
If k > y Then k = y
For j = k To x + 1 Step -1
Cells(i + 1, 1).EntireRow.Insert
With Cells(i + 1, x - 2)
.Value = .Offset(-1, 0)
.Offset(0, 1) = .Offset(-1, 1)
.Offset(0, 2) = Cells(i, j)
End With
Cells(i, j).ClearContents
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
3. Drücken Sie F5 Geben Sie die Taste ein, um den Code auszuführen, und wählen Sie dann den Datenbereich aus, den Sie transponieren möchten, und fügen Sie Zeilen in den Popping-Dialog ein. Siehe Screenshot:
4 Klicken OK. Der ausgewählte Bereich wurde wie im folgenden Screenshot gezeigt konvertiert.
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!