Salt la conținutul principal

Cum să mutați fiecare rând pe coloană în Excel

Ați încercat vreodată să mutați toate celelalte date de rând într-o coloană în Excel, cum ar fi mutarea fiecărui rând impar într-o coloană și fiecare rând par în cealaltă coloană, care sunt afișate ca mai jos captură de ecran. Aici găsesc câteva trucuri care pot rezolva această problemă.

doc-toate-altele-rând-la-coloană-1

Mutați celelalte rânduri în coloană cu formula

Mutați fiecare rând pe coloană cu VBA

Mutați fiecare rând pe coloană cu Kutools pentru Excel


săgeată albastru dreapta balon Mutați celelalte rânduri în coloană cu formula

Pentru majoritatea utilizatorilor Excel, folosirea formulei pentru a rezolva problema în Excel este cel mai simplu mod.

1. Selectați o celulă lângă datele dvs. și tastați această formulă = IF (ISEVEN (ROW (B2)), B2, "") (B2 indică datele pe care doriți să le obțineți) și apăsați Intrați tasta apoi trageți umplerea automată pentru a umple intervalul pe care doriți să îl utilizați. Acum, datele din fiecare al doilea rând au fost obținute în această coloană.

doc-toate-altele-rând-la-coloană-2

2. Apoi selectați cealaltă celulă de lângă coloana de mai sus și tastați această formulă = IF (ISODD (ROW (B3)), B3, "") (B3 sunt datele pe care doriți să le obțineți) și apăsați Intrați tasta apoi trageți umplerea automată pentru a umple intervalul pe care doriți să îl utilizați. Acum, datele din fiecare al treilea rând au fost obținute în această coloană.

doc-toate-altele-rând-la-coloană-3


săgeată albastru dreapta balon Mutați fiecare rând pe coloană cu VBA

Următorul VBA poate, de asemenea, să mute toate celelalte rânduri în coloană.

1. presa F11 + Alt tastele împreună de pe tastatură pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module pentru a insera o nouă fereastră de modul. Și apoi copiați următorul cod VBA în fereastră.

VBA: Mutați fiecare rând pe coloană.

Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
    OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
    Set OutRng = OutRng.Offset(1, 0)
Next
End Sub

 

3. clic Alerga butonul sau F5 tasta de pe tastatură și apare o fereastră de dialog pentru a selecta un interval de mutat. Vedeți captura de ecran:

doc-toate-altele-rând-la-coloană-4

4. Apoi apasa OK pentru a afișa cealaltă casetă de dialog pentru a selecta o celulă pentru a afișa rezultatul. Vedeți captura de ecran:

doc-toate-altele-rând-la-coloană-5

5. clic OK, și puteți vedea rezultatul prezentat după cum urmează:

doc-toate-altele-rând-la-coloană-6


săgeată albastru dreapta balon Mutați fiecare rând pe coloană cu Kutools pentru Excel

Pe lângă formule și VBA, dacă ați instalat Kutools pentru Excel, puteți să-l utilizați Gama de transformare caracteristică pentru a muta rapid fiecare rând pe coloană.

Kutools pentru Excel include mai mult de 300 de instrumente Excel la îndemână. Încercare gratuită fără limitări în 30 de zile. Ia-l acum

1. Selectați intervalul pe care doriți să îl mutați la fiecare rând și faceți clic Kutools > Convertor de interval > Gama de transformare. Vedeți captura de ecran:

doc-toate-altele-rând-la-coloană-7

2. În Gama de transformare dialog, verificați O singură coloană pentru a varia in Tip transformare secțiune și verificați Valoare fixa apoi selectați sau introduceți 2 în lista din Rânduri pe înregistrare secțiune. Vedeți captura de ecran:

doc-toate-altele-rând-la-coloană-8

3. clic Ok pentru a deschide un dialog pentru a selecta o singură celulă pentru a scoate rezultatul, consultați captura de ecran:

doc-toate-altele-rând-la-coloană-9

4. Apoi apasa OK. Puteți vedea rezultatul așa cum se arată mai jos:

doc-toate-altele-rând-la-coloană-10

Pentru mai multe informații despre Transform Range.


Articole relative:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Î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...

Descriere


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Perfect, thank you!
This comment was minimized by the moderator on the site
Thank you so much! this worked :)
This comment was minimized by the moderator on the site
What about converting every line in which there are words into columns, and not numbers?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations