Hoe splitst u een lange kolom in Excel op in meerdere kolommen?
Lange kolom splitsen in meerdere kolommen met VBA
Een lange kolom splitsen in meerdere kolommen met Kutools voor Excel
Lange kolom splitsen in meerdere kolommen met VBA
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en kopieer de volgende VBA-code naar het geopende venster.
VBA: Splits een lange kolom 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. Klik op Uitvoeren of druk op F5 om de VBA uit te voeren. Er verschijnt een dialoogvenster waarin u de gegevenslijst kunt selecteren. Klik vervolgens op OK om in het volgende dialoogvenster aan te geven hoeveel rijen per kolom u nodig heeft, klik daarna op OK en selecteer een cel om het resultaat weer te geven. Zie de schermafbeeldingen:
 |
 |
 |
|
 |
4. Klik op OK, en u ziet meteen dat de lange kolom is opgesplitst in meerdere kolommen, elk met 15 cellen.
Een lange kolom splitsen in meerdere kolommen met Kutools voor Excel
U wilt misschien geen VBA-code gebruiken. Gelukkig kunt u de Bereik transformeren-functie van Kutools voor Excel gebruiken om snel en eenvoudig een lange kolom om te zetten in een vast aantal kolommen.
Na installatie van Kutools voor Excel gaat u als volgt te werk:
1. Selecteer de kolomgegevens die u wilt splitsen en klik op Kutools > Bereik > Bereik transformeren. Zie schermafbeelding:
2. Schakel in het geopende dialoogvenster Enkele kolom naar bereik in, vink vervolgens Vaste waarde aan en typ het gewenste aantal kolommen in het tekstvak. Zie schermafbeelding:
3. Klik op Ok en selecteer één cel om de gesplitste gegevens weer te geven. Zie schermafbeelding:
4. Klik op OK om de bewerkingen af te ronden. De lange kolomgegevens zijn nu gesplitst in drie kolommen.
Is dit gemakkelijker dan VBA-code? Met de Bereik transformeren-functie zet u in één keer een rij om naar een bereik, of een bereik naar een rij of één kolom.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins