Excel: Hogyan lehet sorokra bontani a tagolt szöveget

Tegyük fel, hogy itt van egy táblázat három oszloppal egy munkalapon, az első az árszinteket, a második a gyümölcsneveket vesszővel, a harmadik oszlopban pedig a gyümölcsök árait sorolja fel. A feladat az, hogy a körülhatárolt gyümölcsneveket sorokra bontsa, és ismételje meg a kapcsolódó árszinteket és ársorokat az alábbi képernyőképen látható módon:

Az alábbiakban bemutatunk két módszert a feladat megoldására.

Az elválasztott szöveg felosztása sorokra VBA használatával

Az elválasztott szöveg felosztása sorokra a használatával Power Query

Itt van egy VBA-kód, amely gyorsan felosztja sorokra a határolt szöveget.

1. nyomja meg más + F11 gombok a Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap fül> Modulok új üres modul létrehozásához.

3. Másolja ki és illessze be az alábbi kódot az üres modulba.

VBA: Az elválasztott szöveg felosztása sorokra

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. nyomja meg F5 gombot a futtatás gombra kattintva  a kód aktiválásához egy párbeszédablak jelenik meg, amelyben kiválaszthatja azt az oszlopot, amely kizárja a sorokra bontandó, elválasztott szöveget tartalmazó fejlécet. Kattintson OK.

5. Ezután megjelenik a második párbeszédpanel a használt határoló megadásához. Ide írja be a vesszőt (,). Kattintson OK.

Most a körülhatárolt szövegeket sorokra bontották, és a többi kapcsolódó oszlopot megismételték.

  A VBA megváltoztatja az eredeti adatokat, jobb, ha előtte mentsen el egy másolatot.

Ha az Excel 2013-as vagy újabb verzióit használja, a Power Query jó választás lesz ennek a feladatnak a megoldására.

1. Válassza ki az adattartományt a kattintáshoz dátum > Táblázatból/Tartományból.

2. A durranásban Táblázat létrehozása párbeszédpanelen ellenőrizze Az asztalom fejlécekkel rendelkezik szükség szerint, és kattintson OK.

Ezután a Power Query szerkesztő ablak jelenik meg, és az adatok megjelennek benne.

3. Kattintson arra az oszlopra, amelyikben az elválasztott szövegeket sorokra szeretné osztani, majd kattintson a gombra Átalakítás fül> Oszlop > Határolóval.

Vagy kiválaszthatja az oszlopot, és a jobb gombbal az oszlop fejlécére kattintva kiválaszthatja ezt a funkciót a helyi menüben.

4. Ban,-ben Oszlop felosztása határolóval ablakban válassza ki a kívánt határolót a Válassza ki vagy írja be a határolót szakaszban, majd válassza a lehetőséget A határoló minden egyes előfordulása opciót, majd bontsa ki Speciális beállítások szakasz választani Sorok választási lehetőség. Kattints OK.

Most a körülhatárolt szövegek sorokra lettek osztva.

5. Ezután zárja be az ablakot, megjelenik egy párbeszédpanel, kattintson Tart gombot.

Ezután egy új lap jön létre a táblázattal.

---

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80%-kal növeli a termelékenységet

• Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...

Tovább ... Teljes funkciók 30 napos ingyenes próba ... Vásárlás... 

---

Office Tab – füles felületet hoz az Office-ba, és jelentősen megkönnyíti munkáját

• Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
• Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
• 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Teljes funkciók 30 napos ingyenes próba ... Vásárlás...