Hogyan lehet felosztani elválasztóval és átvinni a cellákat az Excelben?
Ebben a cikkben bemutatom a tartomány felosztásának módját meghatározott elválasztóval, majd az Excel-be való átültetését az alábbi képernyőkép szerint. Ha érdekli ez a feladat, kérjük, lépjen az alábbi részletekre.
Felosztása és átültetése a VBA-val
Osztani és transzponálni a Kutools for Excel segítségével
Felosztása és átültetése a VBA-val
Nincs közvetlen módja az adatok szétválasztásának és átültetésének egy meghatározott elválasztóval, de be tudok vezetni egy VBA kódot, amely segít megoldani ezt a problémát gyorsan.
1. nyomja meg Alt + F11 megjelenítendő gombok Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, és illessze be a kód alatt az újba Modulok ablak.
VBA: Felosztás és átültetés
Sub Vertical()
'UpdatebyExtendoffice20161125
Dim i As Long, strTxt As String
Dim startP As Range
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
i = 1
Application.ScreenUpdating = False
For Each yRg In xRg
If i = 1 Then
strTxt = yRg.Text
i = 2
Else
strTxt = strTxt & "," & yRg.Text
End If
Next
Application.ScreenUpdating = True
Set startP = Application.InputBox _
(Prompt:="paste range...", _
Title:="Kutools For Excel", Type:=8)
ary = Split(strTxt, ",")
i = 1
Application.ScreenUpdating = False
For Each a In ary
startP(i, 1).Value = a
i = i + 1
Next a
Application.ScreenUpdating = True
End Sub3. nyomja meg F5 kulcs a kód futtatásához, megjelenik egy párbeszédpanel, amelyen kiválaszthatja a felosztandó és átültetendő tartományt.
4. kettyenés OK. Egy párbeszédpanel jelenik meg, ahol kiválaszthatja az adatok elhelyezésének helyét.
5. kettyenés OK, és a kiválasztást vesszővel osztotta fel és ültette át.
Osztani és transzponálni a Kutools for Excel segítségével
A Kutools az Excel számára, alkalmazhatja azt Hasított sejtek először a sejteket határolóval felosztani, majd alkalmazni a Átalakítási tartomány segédprogram a cellák egy oszlopká alakításához.
| 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 az alábbiakat:(Ingyenesen töltse le a Kutools for Excel programot most!)
1. Válassza ki a felosztani kívánt cellákat, majd kattintson a gombra Kutools > Egyesítés és felosztás > Hasított sejtek. Lásd a képernyőképet:
2. Ban,-ben Hasított sejtek párbeszédpanelen ellenőrizze Oszlopokra osztás opciót, majd adja meg az elválasztani kívánt elválasztót, kattintson a gombra Ok. És válasszon egy üres cellát, hogy az eredmény a másodikba kerüljön Hasított sejtek párbeszéd. Lásd a képernyőképet:
3. kettyenés OK, akkor a cellákat oszlopokra osztották, majd kattintson a gombra Kutools > Választék > Átalakítási tartomány. Lásd a képernyőképet:
4. Ban,-ben Átalakítási tartomány párbeszédpanelen ellenőrizze Tartomány egyetlen oszlopigkettyenés Ok, és válasszon egy cellát az eredmény elhelyezéséhez. Lásd a képernyőképet:
5. kettyenés OK, most a tartomány egy oszlopba került.
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!
