Note: The other languages of the website are Google-translated. Back to English

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?
coloanele stivei doc stânga la dreapta 1

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

coloanele stivei doc stânga la dreapta 2

3. presa F5 pentru a rula codul, apare o fereastră de dialog pentru a selecta coloanele pe care le veți stiva într-una.
coloanele stivei doc stânga la dreapta 3

4. clic OK, selectați o celulă pentru a plasa rezultatul.
coloanele stivei doc stânga la dreapta 4

5. clic OK a termina. Acum coloanele selectate au fost stivuite într-o singură coloană.
coloanele stivei doc stânga la dreapta 5


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.
coloanele stivei doc stânga la dreapta 6

2. În Transform Range dialog, verificați Range to single row caseta de selectare, faceți clic pe Ok.
coloanele stivei doc stânga la dreapta 7

3. În dialogul popping, selectați o celulă pentru a plasa rezultatul, faceți clic pe OK.
coloanele stivei doc stânga la dreapta 8

Acum coloanele au fost transformate într-un singur rând.
coloanele stivei doc stânga la dreapta 9

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.
coloanele stivei doc stânga la dreapta 10

Acum singurul rând a fost transpus într-o coloană de stivă.
coloana stivei doc stânga la dreapta 11


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.
fila kte 201905

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!
fundul officetab
Comentarii (3)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Un cheat Word pentru a face același lucru:
- copiați toate rândurile și liniile dvs. în Excel
- lipiți fără într-un document Word
- ctrl + h (găsiți și înlocuiți)
- copiați un spațiu de tabulare între două rânduri
- lipiți în bara de căutare
- înlocuiți cu file cu rupturi de linie „^l”

Toate celulele tale sunt acum în coloană în documentul tău Word.
Copiați lipiți-le în Excel: gata!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Îți voi fi veșnic recunoscător. Mulțumesc foarte mult!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Știe cineva cum să înlocuiți/codificarea coloanelor (nu să afișeze caseta de mesaj pentru selecție)? Deci, setați XSRg să fie ceva de genul: Set xSRg = Range("A1"). CurrentRegion.Select (care nu funcționează deoarece de nepotrivire de tip) mulțumesc
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL