Hur delar jag en lång kolumn i flera kolumner i Excel?

Om du har en lång kolumninformation i Excel som kommer att vara besvärlig när du visar dem. Men nu, om du kan dela upp en sådan lång lista i flera kolumner i Excel, kommer det att göra visningen bekvämt.
Dela lång kolumn i flera kolumner med VBA
Dela en lång kolumn i flera kolumner med Kutools för Excel

Dela lång kolumn i flera kolumner med VBA

1. Tryck Alt + F11 nycklar tillsammans för att öppna Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna och kopiera följande VBA-kod till det poppade fönstret.

VBA: Dela lång kolumn i flera kolumner.

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. klick Körning knappen eller tryck på F5 för att köra VBA, och en dialogruta dyker upp för att välja datalistan och klicka sedan på OK för att ange hur många rader i en kolumn du behöver i nästa dialogruta och klicka sedan på OK och välj en cell för att mata ut resultatet. Se skärmdumpar:

4. klick OK, då kan du se att den långa kolumnen är uppdelad i flera kolumner och varje kolumn har 15 celler.

Dela en lång kolumn i flera kolumner med Kutools för Excel

Kanske tycker vissa av er inte om att använda VBA-kod, lyckligtvis kan du använda Transformera intervall nytta av Kutools för Excel för att snabbt och enkelt konvertera en lång kolumn till ett fast antal kolumner.

När du har installerat Kutools för Excel, gör så här:

1. Välj den kolumninformation som du vill dela upp och klicka sedan på Kutools > Mätområde > Transformera intervall. Se skärmdump:

2. Kontrollera i dialogrutan som visas Enstaka kolumn för intervall och markera sedan Fast värde och skriv in antalet kolumner du behöver i textrutan. Se skärmdump:

3. klick Ok och välj en enda cell för att lägga ut delad data. Se skärmdump:

4. klick OK för att avsluta operationerna. Nu har de långa kolumnuppgifterna delats upp i tre kolumner.

Är det enklare än VBA-kod? Med tomforma intervall verktyg kan du konvertera en rad till intervall, ett intervall till en rad eller en kolumn.