Přejít k hlavnímu obsahu

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

Autor: Sun Naposledy změněno: 2022-07-01

Ř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:
doc vyplňte text na základě barvy 1

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


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

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 doc vyplňte text na základě barvy 1 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.
doc vyplňte text na základě barvy 1

5. Poté se objeví druhý dialog pro zadání oddělovače, který používáte. Zde zadejte čárku (,). Klikněte OK.
doc vyplňte text na základě barvy 1

Nyní byly oddělené texty rozděleny do řádků a další související sloupce byly opakovány.
doc vyplňte text na základě barvy 1

doc vyplňte text na základě barvy 1  VBA změní původní data, raději si předtím uložte jejich kopii.


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

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.
doc vyplňte text na základě barvy 1

2. V praskání Vytvořit tabulku dialog, zkontrolujte Můj stůl má záhlaví jak potřebujete, a klikněte OK.
doc vyplňte text na základě barvy 1

potom se Power Query editor se zobrazí okno a v něm jsou zobrazena data.
doc vyplňte text na základě barvy 1

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.
doc vyplňte text na základě barvy 1

Nebo můžete také vybrat sloupec a kliknout pravým tlačítkem na záhlaví sloupce a vybrat tuto funkci v kontextové nabídce.
doc vyplňte text na základě barvy 1

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.
doc vyplňte text na základě barvy 1

Nyní jsou oddělené texty rozděleny do řádků.
doc vyplňte text na základě barvy 1

5. Poté zavřete okno, objeví se dialogové okno, klepněte Udržet .
doc vyplňte text na základě barvy 1

Poté se vytvoří nový list s tabulkou.
doc vyplňte text na základě barvy 1


Další operace (články)

Jak střídat barvu řádku na základě skupiny v aplikaci Excel?
V aplikaci Excel může být pro každý z nás jednodušší vybarvit každý druhý řádek, ale pokusili jste se někdy střídat barevné řádky na základě změn hodnoty sloupce - Sloupec A, jak ukazuje následující snímek obrazovky, v tomto článku budu mluvit o tom, jak střídat barvu řádků na základě skupiny v aplikaci Excel.

Jak zmenšit velikost souboru Excel?
Někdy může otevření nebo uložení trvat několik minut, pokud je soubor aplikace Excel příliš velký. Chcete-li tento problém vyřešit, zde v tomto tutoriálu vám řekne, jak zmenšit velikost souboru Excel odstraněním obsahu nebo formátů, které jsou nepotřebné nebo nikdy nepoužívané.

Excel: Jak vytvořit nebo vložit záložku
Představovali jste si někdy, že vytvoříte nebo vložíte záložku pro rychlý přechod na konkrétní rozsah dat, když je v listu nebo sešitu mnoho dat?

Jak použít stínování na liché nebo sudé (alternativní) řádky / sloupce v aplikaci Excel?
Při navrhování listu má mnoho lidí tendenci používat stínování na liché nebo sudé (alternativní) řádky nebo sloupce, aby byl list vizuálnější. Tento článek vám ukáže dvě metody, jak použít stínování na liché nebo sudé řádky / sloupce v aplikaci Excel.


  • 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...
karta kte 201905
  • 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!
officetab dno
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations