Note: The other languages of the website are Google-translated. Back to English

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ší kancelářské nástroje produktivity

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

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • 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 bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... 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ší ...
  • 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...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
officetab dno
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Word cheat, který udělá totéž:
- zkopírujte všechny své řádky a řádky v aplikaci Excel
- vložit bez do Wordu doc
- ctrl + h (najít a nahradit)
- zkopírujte mezeru v tabulce mezi dva řádky
- vložte do vyhledávacího pole
- nahradit tabulátory zalomením řádků "^l"

Všechny vaše buňky jsou nyní ve sloupci v dokumentu aplikace Word.
Zkopírujte a vložte je do Excelu: hotovo!
Tento komentář byl moderátorem webu minimalizován
Budu vám věčně vděčný. Děkuji mnohokrát!
Tento komentář byl moderátorem webu minimalizován
Ví někdo, jak nahradit/pevně zakódovat sloupce (nevyvolat okno se zprávou pro výběr)? Takže nastavte XSRg na něco jako: Set xSRg = Range("A1").CurrentRegion.Select (což nefunguje, protože typového nesouladu) děkuji
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL