Přejít k hlavnímu obsahu

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

doc rozdělit do více sloupců 4
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 dobrý nápad3

šipka modrá pravá bublina 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:

doc-split-to-multiple-sloupce-1
doc-šipka
doc-split-to-multiple-sloupce-2
doc-šipka
doc-split-to-multiple-sloupce-3


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.
doc-split-to-multiple-sloupce-4


šipka modrá pravá bublina 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ů.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalaci Kutools pro Excel, prosím, postupujte takto:(Zdarma ke stažení Kutools pro Excel nyní!)

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

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:doc split kte 2

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

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

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.

šipka modrá pravá bublina Transponujte jeden sloupec / řádek do rozsahu nebo naopak



Rychle rozdělte jednu buňku do sloupců nebo řádků na základě oddělovače

V aplikaci Excel je rozdělení buňky na sloupce zdlouhavé s průvodcem krok za krokem. Ale s Kutools pro Excel's Rozdělit buňky nástroj, můžete: 1, převést jednu buňku do sloupců nebo řádků na základě oddělovače; 2, převést řetězec na text a číslo; 3, převést řetězec na základě konkrétní šířky, s kliknutími.  Kliknutím získáte 30denní bezplatnou zkušební verzi s plnou výbavou!
doc rozdělená buňka
 
Kutools pro Excel: s více než 300 praktickými doplňky Excel, můžete vyzkoušet bez omezení za 30 dní.

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Really awesome...
This comment was minimized by the moderator on the site
Thank you so much!It's a big problem to copy web table to Excel.Thanks to your script I finally managed it.
This comment was minimized by the moderator on the site
Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations