Přejít k hlavnímu obsahu

Jak se rozdělit podle oddělovače a transponovat buňky v aplikaci Excel?

V tomto článku představuji způsoby, jak rozdělit rozsah podle konkrétního oddělovače a poté jej transponovat v aplikaci Excel, jak je ukázáno níže. Pokud vás tento úkol zajímá, přejděte na níže uvedené podrobnosti.
doc spliy transponovat 1

Rozdělte a proveďte pomocí VBA

Rozdělte a transponujte pomocí Kutools pro Excel


šipka modrá pravá bublina Rozdělte a proveďte pomocí VBA

Neexistuje žádný přímý způsob, jak rozdělit a transponovat data pomocí konkrétního oddělovače, ale mohu vám představit kód VBA, který vám pomůže rychle vyřešit tento problém.

1. lis Alt + F11 tlačítka k zobrazení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložte nový kód pod nový Modul okno.

VBA: Rozdělit a transponovat

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. lis F5 klíč ke spuštění kódu, objeví se dialogové okno pro výběr rozsahu k rozdělení a transpozici.
doc spliy transponovat 2

4. cvaknutí OK. Zobrazí se dialogové okno pro výběr umístění pro umístění dat.
doc spliy transponovat 3

5. cvaknutí OKa výběr byl rozdělen a proveden čárkou.
doc spliy transponovat 4

Poznámka: v kódu, čárka v strTxt & "," a  ary = Split(strTxt, ",") jsou oddělovačem, podle kterého budete data rozdělovat, můžete je změnit, jak potřebujete.


šipka modrá pravá bublina Rozdělte a transponujte pomocí Kutools pro Excel

S Kutools pro Excel, můžete použít jeho Rozdělit buňky nejprve rozdělit buňky oddělovačem a poté použít Rozsah transformace nástroj pro převod buněk do jednoho sloupce.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalaci Kutools pro Excel, prosím, postupujte takto :(Stažení zdarma Kutools pro Excel hned teď!)

1. Vyberte buňky, které chcete rozdělit, a klepněte na Kutools > Sloučit a rozdělit > Rozdělit buňky. Viz snímek obrazovky:
doc spliy transponovat 5

2. V Rozdělit buňky dialog, zkontrolujte Rozdělit na sloupce vyberte oddělovač, podle kterého chcete rozdělit, klikněte na Ok. A vyberte prázdnou buňku a umístěte výsledek do druhé Rozdělit buňky dialog. Viz screenshot:
doc spliy transponovat 6

3. cvaknutí OK, poté byly buňky rozděleny do sloupců a poté klepněte na Kutools > Rozsah > Rozsah transformace. Viz snímek obrazovky:
doc spliy transponovat 7

4. V Rozsah transformace dialog, zkontrolujte Rozsah do jednoho sloupce, Klepněte na tlačítko Oka vyberte buňku k umístění výsledku. Viz snímek obrazovky:
doc spliy transponovat 8

5. cvaknutí OK, nyní byl rozsah převeden do jednoho sloupce.
doc spliy transponovat 9

Spropitné. Pokud chcete mít bezplatnou zkušební verzi Rozdělit buňky a Rozsah transformace funkce, prosím jděte zdarma vyzkoušet Kutools pro Excel nejprve a poté přejděte k použití operace podle výše uvedených kroků.

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab 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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to split data by row and transpose rows to column at the same time?
This comment was minimized by the moderator on the site
Hi, E, please describe your problem with more details, better provide some examples.
This comment was minimized by the moderator on the site
You wrote: Note: in the code, the comma in the aray = Split(strTxt, ",") is the delimiter you will split data based on, you can change it as you need.

Extra action:
also change delimter "," in code section:

<Else
strTxt = strTxt & "," & yRg.Text
End If>

Change "," to (for example ";")
This comment was minimized by the moderator on the site
Hi, Richard Hahlen, thanks for your remind. I have updated the notice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations