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.
Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. |
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 de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!