Hogyan rakhat több oszlopot gyorsan egy oszlopba az Excelben?

az Excelben a Szöveg oszlopokba funkció egy cellát több oszlopra oszthat fel a határoló alapján, de ha van mód arra, hogy több oszlopot egy oszlopba rakjon, ahogy az alábbi képernyőkép látható? Ebben a cikkben bemutatok néhány trükköt a feladat gyors megoldására.

Halmozzon több oszlopot egy képlettel

Halmozzon több oszlopot egybe a VBA segítségével

Halmozzon több oszlopot egybe a Transform Range segítségével

Halmozzon több oszlopot egy képlettel

1. Válassza ki a rakni kívánt tartományt, és lépjen a név Box hogy nevet adjon ennek a tartománynak, majd nyomja meg a gombot belép kulcs. Lásd a képernyőképet:

2. Ezután válasszon egy üres cellát, ahová el szeretné helyezni az eredményeket, írja be ezt a képletet =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1), nyomja meg Enter gombot, és húzza lefelé a kitöltő fogantyút, amíg hiba nem jelenik meg. Lásd a képernyőképet:

Halmozzon több oszlopot egybe a VBA segítségével

Itt van egy VBA kód, amely neked is segíthet.

1. nyomja meg Alt + F11 megjelenítendő gombok Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, illessze be a kód alatt a Modulok.

VBA: Oszlopok egymásra rakása

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. nyomja meg F5 gombot a kód futtatásához, megjelenik egy párbeszédpanel a forrásadatok kiválasztásához, majd kattintson a gombra OK, hogy kiválasszon egy cellát az eredmények elhelyezéséhez. Lásd a képernyőképet:

4. kettyenés OK. Most az oszlopok egy oszlopba kerültek.

Halmozzon több oszlopot egybe a Transform Range segítségével

Alkalmazni Kutools az Excel számára'S Átalakítási tartomány segédprogram segítségével is gyorsan megoldhatja ezt a problémát.

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. Válassza ki a használt oszlopadatokat, majd kattintson a gombra Kutools > Választék > Átalakítási tartomány. Lásd a képernyőképet:

2. Ban,-ben Átalakítási tartomány párbeszédpanelen ellenőrizze Tartomány egyetlen oszlopig opciót, és kattintson rá Ok, majd válasszon egy cellát az eredmények elhelyezéséhez. Lásd a képernyőképet:

3. kettyenés OK. Az oszlopok most egyetlen oszlopba kerültek.