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?
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
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.
4. cvaknutí OK, vyberte buňku k umístění výsledku.
5. cvaknutí OK dokončit. Nyní byly vybrané sloupce naskládány do jednoho sloupce.
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.
2. V Transform Range dialog, zkontrolujte Range to single row zaškrtávací políčko, klepněte na Ok.
3. V rozbalovacím dialogovém okně vyberte buňku, do které chcete umístit výsledek, klepněte na OK.
Nyní byly sloupce transformovány do jednoho řádku.
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.
Nyní byl jeden řádek transponován do sloupce zásobníku.
Rozsah transpozice
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!
