Přejít k hlavnímu obsahu

Jak skládat sloupce zleva doprava do jednoho sloupce v aplikaci Excel?

Předpokládejme, že existuje více sloupců, úkolem je skládat sloupce zleva doprava do jednoho sloupce, jak je znázorněno níže. S výjimkou ručního přesouvání sloupců jeden po druhém, existují nějaké triky, jak to vyřešit v aplikaci Excel?
sloupce zásobníku dokumentů zleva doprava 1

Skládejte sloupce zleva doprava do jednoho sloupce pomocí VBA

Skládejte sloupce zleva doprava do jednoho sloupce pomocí Kutools pro Excel


Skládejte sloupce zleva doprava do jednoho sloupce pomocí VBA

V aplikaci Excel neexistuje žádná vestavěná funkce, která by tuto práci zvládla, ale kód VBA vám může pomoci.

1. lis Alt + F11 klíče, pak v Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul k vytvoření nového prázdného modulu.

2. Zkopírujte a vložte níže uvedený kód do Modul.

VBA: Skládání sloupců do jednoho

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

sloupce zásobníku dokumentů zleva doprava 2

3. lis F5 klíč ke spuštění kódu, objeví se dialogové okno pro výběr sloupců, které budete skládat do jednoho.
sloupce zásobníku dokumentů zleva doprava 3

4. cvaknutí OK, vyberte buňku k umístění výsledku.
sloupce zásobníku dokumentů zleva doprava 4

5. cvaknutí OK dokončit. Nyní byly vybrané sloupce naskládány do jednoho sloupce.
sloupce zásobníku dokumentů zleva doprava 5


Skládejte sloupce zleva doprava do jednoho sloupce pomocí Kutools pro Excel

Pokud máte Kutools pro Excel nainstalované v aplikaci Excel, můžete použít Transform Range nástroj pro zpracování této úlohy.

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:(Zdarma ke stažení Kutools pro Excel nyní!)

1. Vyberte sloupce, které chcete skládat, klepněte na Kutools > Rozsah > Transform Range.
sloupce zásobníku dokumentů zleva doprava 6

2. V Transform Range dialog, zkontrolujte Range to single row zaškrtávací políčko, klepněte na Ok.
sloupce zásobníku dokumentů zleva doprava 7

3. V rozbalovacím dialogovém okně vyberte buňku, do které chcete umístit výsledek, klepněte na OK.
sloupce zásobníku dokumentů zleva doprava 8

Nyní byly sloupce transformovány do jednoho řádku.
sloupce zásobníku dokumentů zleva doprava 9

4. Vyberte jeden řádek a stiskněte Ctrl + C zkopírujte jej a vyberte jinou buňku, která umístí sloupec zásobníku, kliknutím pravým tlačítkem vyberte Transpose(T) v místní nabídce.
sloupce zásobníku dokumentů zleva doprava 10

Nyní byl jeden řádek transponován do sloupce zásobníku.
sloupec zásobníku dokumentů zleva doprava 11

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Does anyone know how to replace/hardcode the columns (not bring up the message box for selection)?So, set the XSRg to be something like: Set xSRg = Range("A1").CurrentRegion.Select(which does not work because of type mismatch)thanks
This comment was minimized by the moderator on the site
I will be eternally grateful to you. Thank you so much!
This comment was minimized by the moderator on the site
A Word cheat to do the same:
- copy all your rows and lines in Excel
- paste without into a Word doc
- ctrl + h (find and replace)
- copy a tabulation space between two rows
- paste into search bar
- replace by tabs by line breaks "^l"

All your cells are now in column in your Word doc.
Copy paste them into Excel: done!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations