Ugrás a tartalomra

Hogyan lehet egy hosszú oszlopot több oszlopra osztani az Excelben?

több oszlopra osztva 4
Ha az oszlopban hosszú oszlopadatok vannak, amelyek zavaróak lesznek azok megtekintésekor. De most, ha egy ilyen hosszú listát több oszlopra oszthat az Excelben, kényelmesebbé válik a megtekintés.
Hasítson hosszú oszlopot több oszlopra a VBA segítségével
Osszon fel egy hosszú oszlopot több oszlopra a Kutools for Excel segítségével jó ötlet3

nyíl kék jobb buborék Hasítson hosszú oszlopot több oszlopra a VBA segítségével

1. nyomja meg Alt + F11 gombok együtt megnyitni a Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok és másolja a következő VBA kódot a felbukkanó ablakba.

VBA: A hosszú oszlopot ossza fel több oszlopra.

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. kettyenés futás vagy nyomja meg a gombot F5 gombot a VBA futtatásához, és megjelenik egy párbeszédpanel az adatlista kiválasztásához, majd kattintson a gombra OK annak megadásához, hogy a következő párbeszédpanelen hány oszlopra van szüksége egy oszlopban, majd kattintson a gombra OK és válasszon egy cellát az eredmény kimenetéhez. Képernyőképek megtekintése:

doc-split-to-multiple-oszlopok-1
doc-nyíl
doc-split-to-multiple-oszlopok-2
doc-nyíl
doc-split-to-multiple-oszlopok-3


4. kettyenés OK, akkor láthatja, hogy a hosszú oszlop több oszlopra van felosztva, és minden oszlopnak 15 cellája van.
doc-split-to-multiple-oszlopok-4


nyíl kék jobb buborék Osszon fel egy hosszú oszlopot több oszlopra a Kutools for Excel segítségével

Lehet, hogy közületek néhányan nem szeretik használni a VBA kódot, szerencsére használhatja a Átalakítási tartomány hasznossága Kutools az Excel számára hogy gyorsan és egyszerűen konvertálhasson egy hosszú oszlopot rögzített számú oszlopká.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Telepítése után Kutools for Excel, kérjük, tegye a következőket:(Töltse le ingyen a Kutools for Excel programot most!)

1. Válassza ki a felosztani kívánt oszlopadatokat, majd kattintson a gombra Kutools > Választék > Átalakítási tartomány. Lásd a képernyőképet:
doc split kte 1

2. A megjelenő párbeszédpanelen ellenőrizze Egyetlen oszlop a tartományhoz opciót, majd ellenőrizze Rögzített érték opciót, és írja be a szükséges oszlopok számát a szövegmezőbe. Lásd a képernyőképet:doc split kte 2

3. kettyenés Ok és válasszon ki egyetlen cellát az osztott adatok kitöltéséhez. Lásd a képernyőképet:
doc split kte 3

4. kettyenés OK hogy befejezze a műveleteket. Most a hosszú oszlop adatait három oszlopra osztották.
doc split kte 4

Könnyebb, mint a VBA kód? T-velransform Range segédprogram segítségével konvertálhat egy sort tartományra, egy tartományt sorra vagy egy oszlopra.

nyíl kék jobb buborék Transzponáljon egyetlen oszlopot / sort egy tartományba vagy fordítva



Gyorsan ossza fel az egyik cellát oszlopokra vagy sorokra az elválasztó alapján

Az Excelben a cellák oszlopokra osztása unalmas a varázslóval lépésről lépésre. De azzal Kutools az Excel számára's Hasított sejtek segédprogram, akkor: 1, egy cellát oszlopokká vagy sorokká alakíthat a határoló alapján; 2, konvertálja a szöveget szöveggé és számgá; 3, konvertálja a karakterláncot meghatározott szélesség alapján, kattintásokkal.  Kattintson a teljes funkcionalitású 30 napos ingyenes próbaverzióért!
doc osztott cellát
 
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, 30 napon belül korlátozás nélkül kipróbálható.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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