Přejít k hlavnímu obsahu

Jak rychle rozdělit textový řetězec podle velikosti v aplikaci Excel?

V aplikaci Excel obvykle rozdělujeme text podle pevné šířky nebo oddělovače pomocí funkce Text na sloupce, ale zkusili jste někdy rozdělit text na velká a malá? Například máte seznam dat a musíte je rozdělit do dvou sloupců na základě případu: jeden sloupec obsahuje řetězec malých písmen a druhý obsahuje řetězec velkých písmen, jak je znázorněno níže. Funkce Text na sloupce tuto operaci nepodporuje, mohu však v aplikaci Excel zavést triky pro rychlé rozdělení textového řetězce případ od případu.

Rozdělte text podle případů pomocí VBA

Rozdělte text na řádky / sloupce pomocí oddělovače pomocí programu Kutools pro Excel


šipka modrá pravá bublina Rozdělte text podle případů pomocí VBA

V aplikaci Excel existuje pouze kód makra k rychlému rozdělení řetězce na malá a velká písmena.

1. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložte níže uvedený kód do mezery Modul skripty.

VBA: Rozdělte řetězec na případ.

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

dokument rozdělit podle případu 1

3. lis F5 a zobrazí se dialogové okno, které vám připomene výběr textů k rozdělení. Viz snímek obrazovky:
dokument rozdělit podle případu 2

4. cvaknutí OKa vybrané texty byly rozděleny do dvou sloupců a jeden obsahuje malá písmena a druhý velká písmena.
dokument rozdělit podle případu 3


šipka modrá pravá bublina Rozdělte text na řádky / sloupce pomocí oddělovače pomocí programu Kutools pro Excel

V mnoha případech můžete rozdělit buňku na více řádků nebo sloupců na základě konkrétního znaku. V aplikaci Excel vám vestavěná funkce Text na sloupce pomůže pouze přímo převést buňku na sloupce, ale nebude fungovat při převodu řádků. Nicméně s Kutools pro Excel - užitečný a užitečný nástroj, který můžete použít Rozdělit buňky nástroj pro rychlé rozdělení řetězce na řádky nebo sloupce na základě oddělovače nebo pevné šířky.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte buňku, kterou chcete rozdělit, a klepněte na Kutools > Sloučit a rozdělit > Rozdělit buňky. Viz snímek obrazovky:
dokument rozdělit podle případu 4

2. V Rozdělit buňky v dialogovém okně zaškrtněte požadovaný typ rozdělení v Styl sekci a přejděte na konkrétní oddělovač, podle kterého chcete rozdělit na základě v Rozdělit sekce. Viz screenshot:
dokument rozdělit podle případu 5

3. cvaknutí Ok, objeví se dialogové okno, které vám připomene, abyste vybrali buňku pro umístění rozděleného obsahu. Viz snímek obrazovky:
dokument rozdělit podle případu 6

4. Po výběru klikněte na OKa vybraná buňka byla rozdělena do řádků na základě prostoru. Viz screenshot:
dokument rozdělit podle případu 7

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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