Preskoči na glavno vsebino

Kako pretvoriti besedilni niz, ločen z vejico, na seznam ali vrstice v Excelu?

doc pretvori vrednosti vejic na seznam 1

Recimo, da imate seznam vrednosti celic, ki so ločene z vejicami, zdaj morate pretvoriti te besedilne nize, ločene z vejico, v več vrstic ali stolpcev, kot je prikazano na spodnji sliki zaslona. Kako lahko razdelim več vrednosti celic v vrstice na podlagi ločila vejic hkrati v Excelu?

Besedilni niz, ločen z vejico, pretvorite v vrstice s kodo VBA

Besedilni niz, ločen z vejico, pretvorite v vrstice z Kutools za Excel


Besedilni niz, ločen z vejico, pretvorite v vrstice s kodo VBA

Naslednja koda VBA vam lahko pomaga pretvoriti več vrednosti celic, ločenih z vejico, v stolpec, naredite naslednje:

1. Držite tipko Alt + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduli Okno.

Koda VBA: Pretvorite besedilni niz, ločen z vejico, v vrstice ali seznam

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

3. Nato pritisnite F5 tipko za zagon te kode, v pojavnem pogovornem oknu izberite obseg podatkov, ki ga želite pretvoriti, glejte posnetek zaslona:

doc pretvori vrednosti vejic na seznam 2

4. in kliknite OK, v naslednjem pogovornem oknu določite celico, v katero želite izpisati rezultat, glejte posnetek zaslona:

doc pretvori vrednosti vejic na seznam 3

5. Kliknite OK , so izbrane vrednosti celic, ločene z vejico, pretvorjene v seznam vrstic. Oglejte si posnetek zaslona:

doc pretvori vrednosti vejic na seznam 4


Besedilni niz, ločen z vejico, pretvorite v vrstice z Kutools za Excel

Če imate Kutools za Excel, Z njegovim Razdeljene celice Pripomoček lahko vrednosti celic, ločenih z vejico, hitro razdelite na več vrstic ali stolpcev glede na ločilo vejic, kot potrebujete.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. 

Po namestitvi Kutools za Excel, naredite naslednje:

1. Na podlagi ločila vejic izberite vrednosti celic, ki jih želite pretvoriti v vrstice.

2. Nato kliknite Kutools > Spoji in razdeli > Razdeljene celice, glej posnetek zaslona:

3. v Razdeljene celice pogovorno okno, izberite Razdeli na vrstice možnost pod tip in nato iz Navedite ločilo oddelek, preverite Ostalo potrditveno polje in nato vnesite vejico v besedilno polje, glejte sliko zaslona:

doc pretvori vrednosti vejic na seznam 6 6

4. Nato kliknite Okin odprlo se bo drugo pogovorno okno, ki vas bo opomnilo, da izberete celico, v katero želite postaviti rezultat, glejte sliko zaslona:

doc pretvori vrednosti vejic na seznam 7

5. In nato kliknite Ok gumba so celice, ločene z vejico, razdeljene v več vrstic glede na ločilo vejic, glejte posnetek zaslona:

doc pretvori vrednosti vejic na seznam 8

Kliknite, če želite izvedeti več o tej funkciji Split Cells…

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Predstavitev: Pretvorite besedilni niz, ločen z vejico, v vrstice z Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Sorodni članki:

Kako razdeliti celice v več stolpcev ali vrstic z vrnitvijo kočije?

Kako razdeliti vrednosti celic v več stolpcev v Excelu?

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

Sub RedistributeCommaDelimitedData_singleCell()

'Updateby Extendoffice 201592

Dim xArr() As String

Dim xAddress As String

Dim Rg As Range

Dim Rg1 As Range

On Error Resume Next

xAddress = Application.ActiveWindow.RangeSelection.Address

Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

If Rg Is Nothing Then Exit Sub

Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

If Rg Is Nothing Then Exit Sub

Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

If Rg1 Is Nothing Then Exit Sub



' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

' replace with this for single input cell for Rg:

xArr = Split(Rg.value, ",")

Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

Rg1.Parent.Activate

Rg1.Resize(UBound(xArr) + 1).Select



End Sub
This comment was minimized by the moderator on the site
I have a cell with 667 characters, of which 119 are commas.With this VBA code I can't split. Can you help me please?Thank you very much!
This comment was minimized by the moderator on the site
Hi, I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations