Note: The other languages of the website are Google-translated. Back to English

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

A szöveget oszthatja sorokra / oszlopokra elválasztóval az Kutools for Excel alkalmazással


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 A szöveget oszthatja sorokra / oszlopokra elválasztóval az Kutools for Excel alkalmazással

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 az alábbiak szerint:

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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi