Excel: Kako razdeliti ločeno besedilo na vrstice

Recimo, da je tukaj tabela s tremi stolpci na delovnem listu, prvi navaja ravni cen, drugi navaja imena sadja z vejicami v celicah, tretji stolpec pa navaja cene sadja. Naloga je razdeliti razmejena imena sadja v vrstice in ponoviti povezane ravni cen in vrstice cen, kot je prikazano na spodnjem posnetku zaslona:

Tukaj predstavljamo dve metodi za rešitev te naloge.

Razmejeno besedilo razdelite na vrstice z uporabo VBA

Razmejeno besedilo razdelite na vrstice z uporabo Power Query

Tukaj je koda VBA, ki lahko hitro razdeli razmejeno besedilo na vrstice.

1. Pritisnite druga + F11 tipke, da omogočite Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi zavihek> Moduli da ustvarite nov prazen modul.

3. Kopirajte in prilepite spodnjo kodo v prazen modul.

VBA: Razdeli razmejeno besedilo na vrstice

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4. Pritisnite F5 tipko za klik gumba za zagon  za aktiviranje kode se odpre pogovorno okno, v katerem lahko izberete stolpec, ki izključuje glavo, ki vsebuje razmejeno besedilo, ki ga je treba razdeliti v vrstice. Kliknite OK.

5. Nato se pojavi drugo pogovorno okno za vnos ločila, ki ga uporabljate. Tukaj vnesete vejico (,). Kliknite OK.

Zdaj so bila razmejena besedila razdeljena na vrstice in drugi povezani stolpci so bili ponovljeni.

  VBA bo spremenil izvirne podatke, bolje je, da prej shranite njihovo kopijo.

Če uporabljate Excel 2013 ali novejše različice, Power Query bo dobra izbira za rešitev te naloge.

1. Izberite obseg podatkov, ki ga želite klikniti datum > Iz tabele/razpona.

2. V popping Ustvari tabelo pogovorno okno, preverite Moja tabela ima glave kot potrebujete, in kliknite OK.

Potem Power Query urednik se prikaže okno in v njem so prikazani podatki.

3. Kliknite stolpec, v katerem želite razdeliti ločena besedila na vrstice, in kliknite Transform zavihek> Razdeljen stolpec > Z ločilom.

Lahko pa tudi izberete stolpec in z desno miškino tipko kliknete glavo stolpca, da izberete to funkcijo v kontekstnem meniju.

4. V Ljubljani Razdeli stolpec z ločilom izberite ločilo, kot ga potrebujete Izberite ali vnesite ločilo , nato izberite Vsaka pojavitev ločila in nato razširite Dodatne možnosti razdelku, ki ga lahko izberete Vrstice možnost. Kliknite OK.

Zdaj so razmejena besedila razdeljena v vrstice.

5. Nato zaprite okno, pojavi se pogovorno okno, kliknite Imejte gumb.

Nato bo ustvarjen nov list s tabelo.

---

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%

• 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 in vodenje podatkov; Vsebina razdeljenih celic; Združite podvojene vrstice in vsoto / povprečje... 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č ...
• Priljubljene in hitro vstavite formule, Obsegi, grafikoni in slike; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• 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...
• Razvrščanje vrtilne tabele po številka tedna, dan v tednu in še več ... Prikaži odklenjene, zaklenjene celice po različnih barvah; Označite celice s formulo / imenom...

Preberite več ... Popolne funkcije 30-dnevnega brezplačnega preskusa ... Nakup ... 

---

Zavihek Office - v Office vnese vmesnik z zavihki in vam olajša 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!

Preberite več ... Popolne funkcije 30-dnevnega brezplačnega preskusa ... Nakup ...