Cum să stivați rapid mai multe coloane într-o singură coloană în Excel?

în Excel, funcția Text în coloane poate împărți o celulă în mai multe coloane pe baza delimitatorului, dar dacă există vreo modalitate de a stiva mai multe coloane într-o singură coloană, așa cum este prezentat mai jos? În acest articol, voi introduce câteva trucuri pentru rezolvarea rapidă a acestei sarcini.

Stivați mai multe coloane într-una cu formula

Stivați mai multe coloane într-una cu VBA

Stivați mai multe coloane într-una cu Transform Range

Stivați mai multe coloane într-una cu formula

1. Selectați intervalul pe care doriți să-l stivați și accesați Cutie de nume pentru a da acestui domeniu un nume și apăsați Intrați cheie. Vedeți captura de ecran:

2. Apoi selectați o celulă goală în care doriți să plasați rezultatele, introduceți această formulă =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1), presa rațătasta r și glisați mânerul de umplere în jos până când apare o eroare. Vedeți captura de ecran:

Stivați mai multe coloane într-una cu VBA

Iată un cod VBA care te poate ajuta și pe tine.

1. presa Alt + F11 tastele de afișat Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module, lipiți codul de mai jos în Module.

VBA: Stivați coloanele într-una

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. presa F5 pentru a rula codul, apare o fereastră de dialog pentru a selecta datele sursă și faceți clic pe OK, pentru a selecta o celulă pentru a plasa rezultatele. Vedeți captura de ecran:

4. clic OK. Acum coloanele au fost stivuite într-o singură coloană.

Stivați mai multe coloane într-una cu Transform Range

A aplica Kutools pentru Excel'S Gama de transformare utilitatea este, de asemenea, vă poate ajuta să rezolvați rapid această problemă.

Dupa instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați datele coloanelor pe care le utilizați și faceți clic Kutools > Gamă > Gama de transformare. Vedeți captura de ecran:

2. În Gama de transformare dialog, verificați Gama până la o singură coloană și faceți clic pe Ok, apoi selectați o celulă pentru a plasa rezultatele. Vedeți captura de ecran:

3. clic OK. Acum coloanele au fost stivuite într-o singură coloană.