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

Jak snadno a rychle transponovat data rozsahu a stohování v aplikaci Excel?

Například jsou zde zobrazena některá data ve skupinách a nyní chci transponovat rozsah a seskupit data do každého sloupce, jak je ukázáno níže. V tomto článku představím metody tohoto úkolu v aplikaci Excel.
dokument transponovat a stohovat 1

Transponujte a skládejte data pomocí VBA

Transponujte a skládejte data pomocí dimenze Transpose Table dobrý nápad3


Transponujte a skládejte data pomocí VBA

K transpozici a skládání dat můžete použít kód VBA.

1. Vyberte data kromě záhlaví sloupců a stiskněte Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložte níže uvedený kód do Modul.

VBA: Transponujte a skládejte data

Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub

dokument transponovat a stohovat 2

3. lis F5 klíč a poté byla data provedena a stohována. Viz screenshot:
dokument transponovat a stohovat 3

Poznámka: V kódu VBA A označuje umístění transponovaných dat do sloupce A aktivního listu a nahrazení původních dat ve sloupci A.


Transponujte a skládejte data pomocí dimenze Transpose Table

Pokud chcete rychle a snadno transponovat data rozsahu a stohování bez kódu VBA, můžete použít Kutools pro ExcelJe Transpozice dimenze tabulky utilita.

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 data, která používáte, klikněte na Kutools > Rozsah > Transponujte rozměry tabulky. Viz snímek obrazovky:
dokument transponovat a stohovat 4

2. V dialogovém okně zaškrtněte Křížový stůl do seznamu možnost a vyberte buňku, do které chcete umístit transponovaná data Rozsah výsledků (jedna buňka) Textové pole. Viz screenshot:
dokument transponovat a stohovat 5

3. cvaknutí Ok. Nyní byl rozsah transponován a skládán do sloupců.
dokument transponovat a stohovat 6




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-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní 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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
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í