Ugrás a tartalomra

Hogyan rakhat oszlopokat balról jobbra egy oszlopba az Excelben?

Ha feltételezzük, hogy több oszlop van, akkor az a feladat, hogy az oszlopokat balról jobbra egyetlen oszlopba rakja, az alábbi képernyőkép szerint. Kivéve az oszlopok manuális áthelyezését egyesével, vannak-e trükkök ennek az Excelben történő megoldására?
doc verem oszlopok balról jobbra 1

Oszlopokat rakjon balról jobbra egy oszlopba a VBA segítségével

Halmozzon oszlopokat balról jobbra egy oszlopba a Kutools for Excel segítségével


Oszlopokat rakjon balról jobbra egy oszlopba a VBA segítségével

Az Excel programban nincs beépített funkció, amely képes kezelni ezt a feladatot, de a VBA-kód segíthet.

1. nyomja meg Alt + F11 gombokat, majd a Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok új üres modul létrehozásához.

2. Másolja és illessze be a kódot a Modulok.

VBA: Oszlopokat rakjon egybe

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

doc verem oszlopok balról jobbra 2

3. nyomja meg F5 gombot a kód futtatásához, megjelenik egy párbeszédpanel, ahol kiválaszthatja az oszlopokat, amelyeket össze fog rakni.
doc verem oszlopok balról jobbra 3

4. kettyenés OK, válasszon egy cellát az eredmény elhelyezéséhez.
doc verem oszlopok balról jobbra 4

5. kettyenés OK befejezni. Most a kijelölt oszlopok egy oszlopba kerültek.
doc verem oszlopok balról jobbra 5


Halmozzon oszlopokat balról jobbra egy oszlopba a Kutools for Excel segítségével

Ha van Kutools az Excel számára az Excelbe telepítve, használhatja a Transform Range segédprogram a munka kezeléséhez.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Telepítése után Kutools for Excel, kérjük, tegye a következőket:(Töltse le ingyen a Kutools for Excel programot most!)

1. Jelölje ki a rakni kívánt oszlopokat, kattintson a gombra Kutools > Választék > Transform Range.
doc verem oszlopok balról jobbra 6

2. Ban,-ben Transform Range párbeszédpanelen ellenőrizze Range to single row jelölőnégyzetet, kattintson a gombra Ok.
doc verem oszlopok balról jobbra 7

3. A felbukkanó párbeszédpanelen válasszon egy cellát az eredmény elhelyezéséhez, kattintson a gombra OK.
doc verem oszlopok balról jobbra 8

Most az oszlopok egyetlen sorba alakultak át.
doc verem oszlopok balról jobbra 9

4. Válassza ki az egy sort, nyomja meg a gombot Ctrl + C másolásához, és válasszon egy másik cellát, amely a verem oszlopot helyezi el, a jobb egérgombbal válassza ki Transpose(T) a helyi menüben.
doc verem oszlopok balról jobbra 10

Most az egyetlen sort átültették a veremoszlopba.
doc verem oszlop balról jobbra 11

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

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...

kte lap 201905


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Does anyone know how to replace/hardcode the columns (not bring up the message box for selection)?So, set the XSRg to be something like: Set xSRg = Range("A1").CurrentRegion.Select(which does not work because of type mismatch)thanks
This comment was minimized by the moderator on the site
I will be eternally grateful to you. Thank you so much!
This comment was minimized by the moderator on the site
A Word cheat to do the same:
- copy all your rows and lines in Excel
- paste without into a Word doc
- ctrl + h (find and replace)
- copy a tabulation space between two rows
- paste into search bar
- replace by tabs by line breaks "^l"

All your cells are now in column in your Word doc.
Copy paste them into Excel: done!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations