Hoe een lange kolom opsplitsen in meerdere kolommen in Excel?
Splits een lange kolom in meerdere kolommen met VBA
Splits een lange kolom in meerdere kolommen met Kutools voor Excel
Splits een lange kolom in meerdere kolommen met VBA
1. druk op Alt + F11 sleutels samen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module en kopieer de volgende VBA-code naar het uitgeklapte venster.
VBA: lange kolom opsplitsen in meerdere kolommen.
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. klikken lopen knop of druk op F5 toets om de VBA uit te voeren, en er verscheen een dialoogvenster voor het selecteren van de gegevenslijst en klik vervolgens op OK om te specificeren hoeveel rijen in een kolom u nodig heeft in het volgende dialoogvenster, en klik vervolgens op OK en selecteer een cel om het resultaat uit te voeren. Zie screenshots:
4. klikken OK, dan kun je zien dat de lange kolom is opgesplitst in meerdere kolommen en dat elke kolom 15 cellen heeft.
Splits een lange kolom in meerdere kolommen met Kutools voor Excel
Misschien houden sommigen van jullie er niet van om VBA-code te gebruiken, gelukkig kun je de Transformeer bereik nut van Kutools for Excel om snel en eenvoudig een lange kolom om te zetten naar een vast aantal kolommen.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na het installeren van Kutools voor Excel, doe het als volgt:(Download nu Kutools voor Excel!)
1. Selecteer de kolomgegevens die u wilt splitsen en klik op Kutools > RANGE > Transformeer bereik. Zie screenshot:
2. Vink in het uitgeklapte dialoogvenster aan Enkele kolom om te bereiken optie, controleer dan Vaste waarde optie en typ het aantal kolommen dat je nodig hebt in het tekstvak. Zie screenshot:
3. klikken Ok en selecteer een enkele cel om de gesplitste gegevens te verwijderen. Zie screenshot:
4. klikken OK om de operaties te voltooien. Nu zijn de lange kolomgegevens opgesplitst in drie kolommen.
Is het gemakkelijker dan VBA-code? Met TRansform Range hulpprogramma kunt u een rij naar een bereik, een bereik naar een rij of een kolom converteren.
Transponeer enkele kolom / rij naar een bereik of vice versa
Splits een cel snel in kolommen of rijen op basis van een scheidingsteken
|
In Excel is het stap voor stap vervelend om een cel in kolommen te splitsen met de wizard. Maar met Kutools for Excel's Gespleten cellen hulpprogramma kunt u: 1 een cel omzetten in kolommen of rijen op basis van een scheidingsteken; 2, zet string om in tekst en nummer; 3, converteer string op basis van specifieke breedte, met klikken. Klik voor een volledige gratis proefperiode van 30 dagen! |
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!