Jak rychle skládat více sloupců do jednoho sloupce v aplikaci Excel?

v aplikaci Excel může funkce Text na sloupce rozdělit buňku na více sloupců na základě oddělovače, ale pokud existují způsoby, jak skládat více sloupců do jednoho sloupce, jak je ukázáno níže? V tomto článku představím některé triky, jak rychle vyřešit tento úkol.

Skládejte více sloupců do jednoho pomocí vzorce

Skládejte více sloupců do jednoho pomocí VBA

Skládejte více sloupců do jednoho pomocí Rozsahu transformace

Skládejte více sloupců do jednoho pomocí vzorce

1. Vyberte rozsah, který chcete skládat, a přejděte na Název Box pojmenujte tento rozsah a stiskněte vstoupit klíč. Viz snímek obrazovky:

2. Poté vyberte prázdnou buňku, do které chcete umístit výsledky, zadejte tento vzorec =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1), lis EnteKlávesa r a táhněte úchyt výplně dolů, dokud se nezobrazí chyba. Viz screenshot:

Skládejte více sloupců do jednoho pomocí VBA

Zde je kód VBA, který vám může také pomoci.

1. lis Alt + F11 tlačítka k zobrazení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, vložte pod kód do Modul.

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

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. lis F5 klíč ke spuštění kódu, objeví se dialogové okno pro výběr zdrojových dat a klikněte na OK, vyberte buňku k umístění výsledků. Viz screenshot:

4. cvaknutí OK. Nyní byly sloupce naskládány do jednoho sloupce.

Skládejte více sloupců do jednoho pomocí Rozsahu transformace

Aplikovat Kutools pro ExcelJe Rozsah transformace nástroj je také vám pomůže rychle vyřešit tento problém.

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte data sloupců, která používáte, a klikněte na Kutools > Rozsah > Rozsah transformace. Viz snímek obrazovky:

2. V Rozsah transformace dialog, zkontrolujte Rozsah do jednoho sloupce a klepněte na tlačítko Ok, pak vyberte buňku k umístění výsledků. Viz screenshot:

3. cvaknutí OK. Nyní byly sloupce naskládány do jednoho sloupce.