Cum se stivuiesc coloane de la stânga la dreapta într-o singură coloană în Excel?

Presupunând că există mai multe coloane, sarcina este de a stiva coloanele de la stânga la dreapta într-o singură coloană, după cum se arată mai jos. Cu excepția mutării manuale a coloanelor una câte una, există trucuri pentru a rezolva acest lucru în Excel?

Stivați coloanele de la stânga la dreapta până la o coloană cu VBA

Stivați coloane de la stânga la dreapta până la o coloană cu Kutools pentru Excel

Stivați coloanele de la stânga la dreapta până la o coloană cu VBA

În Excel, nu există nicio funcție încorporată care să poată gestiona această lucrare, dar codul VBA vă poate ajuta.

1. presa Alt + F11 tastele, apoi în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module pentru a crea un nou modul gol.

2. Copiați și lipiți codul de mai jos în Module.

VBA: Stivați coloanele într-una singură

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. presa F5 pentru a rula codul, apare o fereastră de dialog pentru a selecta coloanele pe care le veți stiva într-una.

4. clic OK, selectați o celulă pentru a plasa rezultatul.

5. clic OK a termina. Acum coloanele selectate au fost stivuite într-o singură coloană.

Stivați coloane de la stânga la dreapta până la o coloană cu Kutools pentru Excel

Dacă aveţi Kutools pentru Excel instalat în Excel, puteți utiliza fișierul Transform Range utilitate pentru a face față acestei sarcini.

După instalare Kutools pentru Excel, faceți următoarele:（Descărcați gratuit Kutools pentru Excel acum!)

1. Selectați coloanele pe care doriți să le stivați, faceți clic pe Kutools > Gamă > Transform Range.

2. În Transform Range dialog, verificați Range to single row caseta de selectare, faceți clic pe Ok.

3. În dialogul popping, selectați o celulă pentru a plasa rezultatul, faceți clic pe OK.

Acum coloanele au fost transformate într-un singur rând.

4. Selectați rândul unic, apăsați Ctrl + C pentru a o copia și a selecta o altă celulă care va plasa coloana stivei, faceți clic dreapta pentru a selecta Transpose(T) în meniul contextual.

Acum singurul rând a fost transpus într-o coloană de stivă.

  Transpuneți gama

---

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

• reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
• Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
• Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
• Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
• Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
• Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
• Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
• Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
• Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

• Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
• Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
• Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...