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
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
3. lis F5 a zobrazí se dialogové okno, které vám připomene výběr textů k rozdělení. Viz snímek obrazovky:
4. cvaknutí OKa vybrané texty byly rozděleny do dvou sloupců a jeden obsahuje malá písmena a druhý velká písmena.
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:
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:
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:
4. Po výběru klikněte na OKa vybraná buňka byla rozdělena do řádků na základě prostoru. Viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!