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.
Transponujte a skládejte data pomocí VBA
Transponujte a skládejte data pomocí dimenze Transpose Table
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
3. lis F5 klíč a poté byla data provedena a stohována. Viz screenshot:
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:
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:
3. cvaknutí Ok. Nyní byl rozsah transponován a skládán do sloupců.
Transponujte rozsah a data zásobníku
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!