Ugrás a tartalomra

Hogyan lehet gyorsan felosztani a szöveges karakterláncokat esetenként az Excelben?

Az Excelben a szöveget általában rögzített szélességgel vagy elválasztóval osztjuk fel a Szöveg oszlopok funkcióval, de megpróbálta már felosztani a szöveget nagy- és kisbetűkkel? Például van egy listája adatokból, és az eset alapján két oszlopra kell felosztania őket: az egyik oszlop kisbetűs, a másik pedig a nagybetűs karakterláncot tartalmazza, ahogy az alábbi képernyőképen látható. A Szöveg oszlopokba funkció nem támogatja ezt a műveletet, azonban bemutathatok egy trükköt, amellyel gyorsan feloszthatja a szöveget az Excelben.

Szöveg felosztása esetenként a VBA segítségével

Szöveg felosztása sorokra/oszlopokra elválasztóval a Kutools for Excel segítségével


nyíl kék jobb buborék Szöveg felosztása esetenként a VBA segítségével

Az Excel programban csak makrókód van a karakterlánc gyors felosztásához kis- és nagybetűk alapján.

1. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, és illessze be a kód alatt az üresbe Modulok szkripteket.

VBA: Húr szétválasztása esetenként.

Sub CamelCase()
'UpdatebyExtendoffice20160711
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Nothing
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Pattern = "(\S)([A-Z]+[^A-Z])"
        .Global = True
        For Each xCell In xRg
            xCount = .Execute(xCell).Count
            If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
        Next
    End With
    Application.ScreenUpdating = True
End Sub

doki felosztva az 1. esetre

3. nyomja meg F5 gombot, és megjelenik egy párbeszédpanel, amely emlékezteti Önt a felosztandó szövegek kiválasztására. Lásd a képernyőképet:
doki felosztva az 2. esetre

4. kettyenés OK, és a kiválasztott szövegek két oszlopra vannak osztva, az egyik kisbetűket, a másik nagybetűket tartalmaz.
doki felosztva az 3. esetre


nyíl kék jobb buborék Szöveg felosztása sorokra/oszlopokra elválasztóval a Kutools for Excel segítségével

Sok esetben érdemes egy cellát több sorra vagy oszlopra osztani egy adott karakter alapján. Az Excelben a beépített Szöveg oszlopokba funkció csak a cellák oszlopokká történő átalakításában segíthet, a sorok konvertálásában viszont nem. Azonban azzal Kutools az Excel számára - praktikus és hasznos eszköz, alkalmazhatja Hasított sejtek segédprogram a karakterlánc gyors felosztására sorokra vagy oszlopokra elválasztó vagy rögzített szélesség alapján.

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

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. Válassza ki a felosztani kívánt cellát, majd kattintson a gombra Kutools > Egyesítés és felosztás > Hasított sejtek. Lásd a képernyőképet:
doki felosztva az 4. esetre

2. Ban,-ben Hasított sejtek párbeszédpanelen ellenőrizze a kívánt felosztási típust a típus szakaszban, és keresse meg a kívánt elválasztót, amely alapján fel akar osztani a Felosztva szakasz. Lásd a képernyőképet:
doki felosztva az 5. esetre

3. kettyenés Ok, megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy válasszon egy cellát az osztott tartalom elhelyezéséhez. Lásd a képernyőképet:
doki felosztva az 6. esetre

4. A kiválasztás után kattintson a gombra OK, és a kijelölt cella a hely alapján sorokra lett felosztva. Lásd a képernyőképet:
doki felosztva az 7. esetre

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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations