Hoe een lange kolom in meerdere kolommen splitsen in Excel?

Als je een lange kolom met gegevens in Excel hebt, kan het lastig zijn om deze te bekijken. Maar als je zo'n lange lijst in meerdere kolommen kunt splitsen, wordt het bekijken een stuk handiger.
Lange kolom in meerdere kolommen splitsen met VBA
Een lange kolom in meerdere kolommen splitsen met Kutools voor Excel

Lange kolom in meerdere kolommen splitsen met VBA

1. Druk tegelijk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en kopieer de volgende VBA-code naar het venster dat verschijnt.

VBA: Lange kolom in meerdere kolommen splitsen.

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 de knop Uitvoeren of druk op F5 om de VBA uit te voeren, en er verschijnt een dialoogvenster waarin je de gegevenslijst selecteert. Klik vervolgens op OK om in het volgende dialoogvenster op te geven hoeveel rijen je per kolom nodig hebt, klik dan op OK en selecteer een cel om het resultaat weer te geven. Zie screenshots:

4. Klik OK, en je ziet dat de lange kolom is gesplitst in meerdere kolommen en elke kolom heeft 15 cellen.

Een lange kolom in meerdere kolommen splitsen met Kutools voor Excel

Misschien houden sommigen van jullie niet van het gebruik van VBA-code. Gelukkig kun je het hulpprogramma Bereik transformeren van Kutools voor Excel gebruiken om snel en gemakkelijk een lange kolom om te zetten in een vast aantal kolommen.

Nadat je Kutools voor Excel hebt geïnstalleerd, doe dan het volgende:

1. Selecteer de kolomgegevens die je wilt splitsen en klik vervolgens op Kutools > Bereik > Bereik transformeren. Zie screenshot:

2. Schakel in het pop-updialoogvenster de optie Enkele kolom naar bereik in, schakel daarna de optie Vaste waarde in en typ het aantal kolommen dat je nodig hebt in het tekstvak. Zie screenshot:

3. Klik Ok en selecteer een enkele cel om de gesplitste gegevens in te plaatsen. Zie screenshot:

4. Klik OK om de bewerking te voltooien. Nu is de lange kolom met gegevens gesplitst in drie kolommen.

Is dit eenvoudiger dan VBA-code? Met het hulpprogramma Bereik transformeren kun je een rij omzetten in een bereik, een bereik in een rij of één kolom.