Wie teile ich eine lange Spalte in Excel in mehrere Spalten auf?
Teilen Sie lange Spalten mit VBA in mehrere Spalten auf
Teilen Sie eine lange Spalte mit Kutools for Excel in mehrere Spalten auf
Teilen Sie lange Spalten mit VBA in mehrere Spalten auf
1. Drücken Sie Alt + F11 Tasten zusammen, um das zu öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modul und kopieren Sie den folgenden VBA-Code in das ausgeblendete Fenster.
VBA: Teilen Sie lange Spalten in mehrere Spalten auf.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3 Klicken Führen Sie Taste oder drücken F5 Drücken Sie die Taste, um die VBA auszuführen, und ein Dialogfeld zur Auswahl der Datenliste wird angezeigt. Klicken Sie dann auf OK Klicken Sie dann auf, um anzugeben, wie viele Zeilen in einer Spalte Sie im nächsten Dialogfeld benötigen OK und wählen Sie eine Zelle aus, um das Ergebnis auszugeben. Siehe Screenshots:
4 Klicken OKDann können Sie sehen, dass die lange Spalte in mehrere Spalten aufgeteilt ist und jede Spalte 15 Zellen enthält.
Teilen Sie eine lange Spalte mit Kutools for Excel in mehrere Spalten auf
Vielleicht verwenden einige von Ihnen keinen VBA-Code, zum Glück können Sie den verwenden Bereich transformieren Nutzen von Kutools for Excel um eine lange Spalte schnell und einfach in eine feste Anzahl von Spalten umzuwandeln.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Nach der Installation Kutools für Excel, bitte gehen Sie wie folgt vor:(Kutools für Excel jetzt kostenlos herunterladen!)
1. Wählen Sie die Spaltendaten aus, die Sie teilen möchten, und klicken Sie dann auf Kutoolen > Abdeckung > Bereich transformieren. Siehe Screenshot:
2. Überprüfen Sie im ausgeblendeten Dialogfeld Einzelne Spalte zum Bereich Option, dann überprüfen Fester Wert Option und geben Sie die Anzahl der benötigten Spalten in das Textfeld ein. Siehe Screenshot:
3 Klicken Ok und wählen Sie eine einzelne Zelle aus, um die geteilten Daten auszugeben. Siehe Screenshot:
4 Klicken OK um die Operationen zu beenden. Jetzt wurden die langen Spaltendaten in drei Spalten aufgeteilt.
Ist es einfacher als VBA-Code? Mit T.Transformationsbereich Dienstprogramm können Sie eine Zeile in einen Bereich, einen Bereich in eine Zeile oder eine Spalte konvertieren.
Transponieren Sie eine einzelne Spalte / Zeile in einen Bereich oder umgekehrt
Teilen Sie eine Zelle basierend auf dem Trennzeichen schnell in Spalten oder Zeilen auf
|
In Excel ist das schrittweise Aufteilen einer Zelle in Spalten mit dem Assistenten mühsam. Aber mit Kutools for Excel's Zellen teilen Dienstprogramm, Sie können: 1, eine Zelle basierend auf dem Trennzeichen in Spalten oder Zeilen konvertieren; 2, konvertieren Sie Zeichenfolge in Text und Zahl; 3, konvertieren Sie Zeichenfolge basierend auf einer bestimmten Breite mit Klicks. Klicken Sie hier für eine 30-tägige kostenlose Testversion mit vollem Funktionsumfang! |
Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
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!