Jak rozdělit dlouhý sloupec na více sloupců v aplikaci Excel?

Pokud máte v Excelu dlouhý sloupcový údaj, který bude při jejich prohlížení problematický. Ale teď, když můžete rozdělit takový dlouhý seznam do více sloupců v aplikaci Excel, bude to pohodlné prohlížení.
Rozdělte dlouhý sloupec na více sloupců pomocí VBA
Rozdělte dlouhý sloupec na více sloupců pomocí Kutools pro Excel

Rozdělte dlouhý sloupec na více sloupců pomocí VBA

1. lis Alt + F11 klíče otevřete Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul a zkopírujte následující kód VBA do vyskakovacího okna.

VBA: Rozdělte dlouhý sloup na více sloupců.

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. cvaknutí Běh nebo stiskněte tlačítko F5 Chcete-li spustit VBA, zobrazí se dialogové okno pro výběr seznamu dat a poté klepněte na OK Chcete-li v dalším dialogovém okně zadat, kolik řádků v jednom sloupci potřebujete, klikněte na OK a vyberte buňku pro výstup výsledku. Zobrazit snímky obrazovky:

4. cvaknutí OK, pak můžete vidět, že dlouhý sloupec je rozdělen na více sloupců a každý sloupec má 15 buněk.

Rozdělte dlouhý sloupec na více sloupců pomocí Kutools pro Excel

Možná někteří z vás neradi používají kód VBA, naštěstí můžete použít Rozsah transformace užitečnost Kutools pro Excel rychle a snadno převést dlouhý sloupec na pevný počet sloupců.

Po instalaci Kutools pro Excel, prosím, postupujte takto:

1. Vyberte data sloupce, která chcete rozdělit, a klikněte na Kutools > Rozsah > Rozsah transformace. Viz snímek obrazovky:

2. Ve vyskakovacím dialogovém okně zaškrtněte Jeden sloupec k rozsahu možnost, pak zkontrolujte Pevná hodnota možnost a do textového pole zadejte požadovaný počet sloupců. Viz screenshot:

3. cvaknutí Ok a vyberte jednu buňku, aby se rozdělila rozdělená data. Viz screenshot:

4. cvaknutí OK dokončit operace. Nyní byla data dlouhého sloupce rozdělena do tří sloupců.

Je to jednodušší než kód VBA? S Trozsah ransform nástroj, můžete převést řádek na rozsah, rozsah na řádek nebo jeden sloupec.