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ă.
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
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ă.
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ă.
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:
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:
5. clic OK, și puteți vedea rezultatul prezentat după cum urmează:
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:
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:
3. clic Ok pentru a deschide un dialog pentru a selecta o singură celulă pentru a scoate rezultatul, consultați captura de ecran:
4. Apoi apasa OK. Puteți vedea rezultatul așa cum se arată mai jos:
Pentru mai multe informații despre Transform Range.
Articole relative:
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!