Kako hitro razdeliti besedilni niz za vsak primer v Excelu?

V Excelu običajno razdelimo besedilo na določeno širino ali ločilo s funkcijo Besedilo na stolpce, vendar ste kdaj poskusili besedilo razdeliti na velike in male črke? Na primer, imate seznam podatkov in jih morate razdeliti v dva stolpca glede na primer: en stolpec vsebuje male črke, drugi pa velike, kot je prikazano na spodnji sliki zaslona. Funkcija Besedilo v stolpce ne podpira te operacije, vendar lahko predstavim trike za hitro razdelitev besedilnega niza za vsak primer v Excelu.

Razdelite besedilo za vsak primer z VBA

Razdelite besedilo na vrstice / stolpce z ločilom s programom Kutools za Excel

---

Razdelite besedilo za vsak primer z VBA

V Excelu obstaja samo makro koda za hitro razdelitev niza na podlagi malih in velikih črk.

1. Pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin prilepite spodnjo kodo na prazno Moduli skripta.

VBA: Razdeli niz za vsak primer.

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. Pritisnite F5 in odpre se pogovorno okno, ki vas opomni, da izberete besedila, ki jih želite razdeliti. Oglejte si posnetek zaslona:

4. klik OK, izbrana besedila pa so bila razdeljena v dva stolpca, eden vsebuje male črke, drugi pa velike črke.

---

Razdelite besedilo na vrstice / stolpce z ločilom s programom Kutools za Excel

V mnogih primerih boste morda želeli celico razdeliti na več vrstic ali stolpcev na podlagi določenega znaka. V Excelu vam lahko vgrajena funkcija Besedilo v stolpce samo pretvori celico v stolpce, vendar ne deluje pri pretvorbi vrstic. Vendar pa s Kutools za Excel - priročno in uporabno orodje, ki ga lahko uporabite Razdeljene celice pripomoček za hitro razdelitev niza v vrstice ali stolpce na podlagi ločila ali fiksne širine.

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. Izberite celico, ki jo želite razdeliti, in kliknite Kutools > Spoji in razdeli > Razdeljene celice. Oglejte si posnetek zaslona:

2. V Ljubljani Razdeljene celice v pogovornem oknu preverite želeno vrsto razdelka v tip in pojdite, da v razdelku preverite določeno ločilo, ki ga želite razdeliti glede na Razdeljeno po odsek. Oglejte si posnetek zaslona:

3. klik Ok, odpre se pogovorno okno, ki vas opomni, da izberete celico, v katero boste postavili razdeljeno vsebino. Oglejte si posnetek zaslona:

4. Po izbiri kliknite OK, izbrana celica pa je bila razdeljena na vrstice glede na prostor. Oglejte si posnetek zaslona: