Hogyan lehet egy hosszú oszlopot több oszlopra osztani az Excelben?
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
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:
4. kettyenés OK, akkor láthatja, hogy a hosszú oszlop több oszlopra van felosztva, és minden oszlopnak 15 cellája van.
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:
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:
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:
4. kettyenés OK hogy befejezze a műveleteket. Most a hosszú oszlop adatait három oszlopra osztották.
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.
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! |
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
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...
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!