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?
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
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.
4. kettyenés OK, válasszon egy cellát az eredmény elhelyezéséhez.
5. kettyenés OK befejezni. Most a kijelölt oszlopok egy oszlopba kerültek.
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.
2. Ban,-ben Transform Range párbeszédpanelen ellenőrizze Range to single row jelölőnégyzetet, kattintson a gombra Ok.
3. A felbukkanó párbeszédpanelen válasszon egy cellát az eredmény elhelyezéséhez, kattintson a gombra OK.
Most az oszlopok egyetlen sorba alakultak át.
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.
Most az egyetlen sort átültették a veremoszlopba.
Átültetési tartomány
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!