Excel: Jak rozdělit text s oddělovači na řádky

Řekněme, že zde je tabulka se třemi sloupci v pracovním listu, v prvním jsou uvedeny cenové hladiny, ve druhém jsou uvedeny názvy ovoce s čárkami oddělenými v buňkách a ve třetím sloupci jsou uvedeny ceny ovoce. Úkolem je rozdělit oddělené názvy ovoce do řádků a zopakovat řádky souvisejících cenových hladin a cen, jak je uvedeno níže:

Zde představíme dvě metody řešení této úlohy.

Rozdělte text s oddělovači na řádky pomocí VBA

Rozdělit text s oddělovači na řádky pomocí Power Query

Zde je kód VBA, který dokáže rychle rozdělit text s oddělovači na řádky.

1. lis Další + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit karta> Modul k vytvoření nového prázdného modulu.

3. Zkopírujte a vložte níže uvedený kód do prázdného modulu.

VBA: Rozdělení textu s oddělovači na řádky

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. lis F5 klikněte na tlačítko Spustit  pro aktivaci kódu se zobrazí dialogové okno, ve kterém můžete vybrat sloupec, který vylučuje záhlaví obsahující text s oddělovači, který je třeba rozdělit do řádků. Klikněte OK.

5. Poté se objeví druhý dialog pro zadání oddělovače, který používáte. Zde zadejte čárku (,). Klikněte OK.

Nyní byly oddělené texty rozděleny do řádků a další související sloupce byly opakovány.

  VBA změní původní data, raději si předtím uložte jejich kopii.

Pokud používáte Excel 2013 nebo novější verze, Power Query bude dobrou volbou pro řešení této práce.

1. Vyberte rozsah dat, na který chcete kliknout Data > Z tabulky/rozsahu.

2. V praskání Vytvořit tabulku dialog, zkontrolujte Můj stůl má záhlaví jak potřebujete, a klikněte OK.

potom se Power Query editor se zobrazí okno a v něm jsou zobrazena data.

3. Klepněte na sloupec, ve kterém chcete rozdělit text s oddělovači na řádky, a klepněte Změnit karta> Rozdělit sloupec > Oddělovačem.

Nebo můžete také vybrat sloupec a kliknout pravým tlačítkem na záhlaví sloupce a vybrat tuto funkci v kontextové nabídce.

4. V Rozdělit sloupec oddělovačem v okně vyberte oddělovač podle potřeby z Vyberte nebo zadejte oddělovač a vyberte Každý výskyt oddělovače možnost a poté rozbalte Pokročilé volby sekci vybrat Řádky volba. Klikněte na tlačítko OK.

Nyní jsou oddělené texty rozděleny do řádků.

5. Poté zavřete okno, objeví se dialogové okno, klepněte Udržet .

Poté se vytvoří nový list s tabulkou.

---

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

• Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
• Sloučit buňky / řádky / sloupce a uchovávání údajů; Rozdělit obsah buněk; Zkombinujte duplicitní řádky a součet / průměr... Zabraňte duplicitním buňkám; Porovnat rozsahy...
• Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
• Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
• Oblíbené a rychlé vkládání vzorců„Rozsahy, grafy a obrázky; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
• Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
• Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
• Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
• Seskupování kontingenčních tabulek podle číslo týdne, den v týdnu a další ... Zobrazit odemčené, zamčené buňky různými barvami; Zvýrazněte buňky, které mají vzorec / název...

Čtěte více... Plné funkce 30denní bezplatná zkušební verze ... Nákup... 

---

Karta Office - přináší do Office rozhraní s kartami a usnadňuje vám práci

• Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
• Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
• Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

Čtěte více... Plné funkce 30denní bezplatná zkušební verze ... Nákup...