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

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


puščica modri desni mehurček 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

doc razdeljen po primeru 1

3. Pritisnite F5 in odpre se pogovorno okno, ki vas opomni, da izberete besedila, ki jih želite razdeliti. Oglejte si posnetek zaslona:
doc razdeljen po primeru 2

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


puščica modri desni mehurček 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.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

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:
doc razdeljen po primeru 4

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:
doc razdeljen po primeru 5

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

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


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL