Přejít k hlavnímu obsahu

Jak transponovat data ze sloupce do jedné buňky v aplikaci Excel?

Pokud potřebujete převést seznam dat do jedné buňky v listu, obvykle můžete použít Spojte funkce sloučit seznam buněk do jedné buňky, ale bude to složité, pokud bude třeba kombinovat obrovská data. V tomto článku budu hovořit o několika rychlých tricích, jak vyřešit tento úkol v aplikaci Excel.

Transponujte data ze sloupce do jedné buňky pomocí funkce definované uživatelem

Transponujte data ze sloupce do jedné buňky pomocí Kutools pro Excel


Kromě funkce Zřetězit ke sloučení seznamu hodnot buněk můžete použít následující kód VBA a získat výsledek co nejrychleji.

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Transponujte data ze sloupce do jedné buňky

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. Poté uložte a zavřete tento kód, vraťte se do listu a zadejte tento vzorec: = transposerange (A1: A10) do prázdné buňky vložte výsledek a stiskněte vstoupit klíč, získáte všechny hodnoty buněk ve sloupci, které byly umístěny v jedné buňce, viz screenshot:

doc transponujte buňky do jedné buňky 1

Poznámka: Ve výše uvedeném kódu, A1: A10 je rozsah seznamu, který chcete transponovat do jedné buňky, a také můžete oddělit sloučený obsah od jiných oddělovačů, jako je čárka, pomlčka, mezera atd., stačí změnit čárku ve skriptu xStr = xStr & xCell.Value & ",".


Pokud máte Kutools pro Excel, se svým mocným nástrojemKombinovat, můžete kombinovat data ve sloupci, řádku nebo rozsahu do jedné buňky.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů.

Po instalaci Kutools pro Excel, postupujte následovně :( Stažení zdarma Kutools pro Excel nyní! )

1. Vyberte datový sloupec, který chcete zkombinovat do jedné buňky.

2, klikněte Kutools > Sloučit a rozdělitKombinujte řádky, sloupce nebo buňky bez ztráty dat, viz screenshot:

3. Ve vyskakovacím dialogovém okně vyberte Kombinujte do jedné buňky pod Kombinovat vybrané buňky podle následujících možností, a poté určete oddělovač pro oddělení sloučeného obsahu, viz screenshot:

doc transponujte buňky do jedné buňky 3

4. Pak klikněte na tlačítko Ok or Podat žádost tlačítko a podle potřeby získáte následující výsledek:

doc transponujte buňky do jedné buňky 4 2 doc transponujte buňky do jedné buňky 5

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would anybody know how to add a conditional rule to this function? Basically I have an e-mail directory for multiple businesses. There is a column where I list either Yes or No in response to whether the E-mail is the business' main contact. I am hoping adjust the code so that only the main contacts are pulled and listed in one cell. Therefore, the condition would be that the Main Contact Column lists Yes. I have tried using if statements but I am fairly new to all of this. Any help would be much appreciated!
This comment was minimized by the moderator on the site
Hello friend,
Glad to help. Please read this article: https://www.extendoffice.com/documents/excel/2706-excel-vlookup-return-multiple-values-in-one-cell.html. I believe it can solve your problem. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
This has been ridiculously helpful to me a number of times. Thank you so much!
This comment was minimized by the moderator on the site
Hi,

Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

Thanks in advance!

Function transposeRange(Rg As Range)
'updateby Extendoffice 20151207
Dim xCell As Range
Dim xStr As String
For Each xCell In Rg
If Not IsEmpty(xCell.Value) Then
xStr = xStr & xCell.Value & ","
End If
Next
transposeRange = Left(xStr, Len(xStr) - 1)
End Function
This comment was minimized by the moderator on the site
Hello,Sophie,
Could you give an example for your need, you can insert a screenshot here.
This comment was minimized by the moderator on the site
Thanks, this was very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations