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.
| Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkájá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.
Halmozzon több cellát egy oszlopba
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
