Kako premakniti vsako drugo vrstico v stolpec v Excelu
Ste že kdaj poskusili premakniti podatke vseh drugih vrstic v stolpec v Excelu, na primer vsako neparno vrstico v en stolpec in vsako sodo vrstico v drug stolpec, ki so prikazani na spodnji sliki zaslona Tu najdem nekaj trikov, ki lahko rešijo to težavo.
Premaknite vsako drugo vrstico v stolpec s formulo
Premaknite vsako drugo vrstico v stolpec z VBA
Premaknite vsako drugo vrstico v stolpec s programom Kutools za Excel
Premaknite vsako drugo vrstico v stolpec s formulo
Za večino uporabnikov Excela je uporaba formule za reševanje težav v Excelu najlažji način.
1. Izberite celico poleg svojih podatkov in vnesite to formulo = ČE (ISEVEN (ROW (B2)), B2, "") (B2 označuje podatke, ki jih želite dobiti), in pritisnite Vnesite nato povlecite samodejno izpolnjevanje, da zapolnite želeni obseg, uporabite to formulo. Zdaj so v tem stolpcu pridobljeni podatki o vsaki drugi vrstici.
2. Nato izberite drugo celico poleg zgornjega stolpca in vnesite to formulo = IF (ISODD (ROW (B3)), B3, "") (B3 so podatki, ki jih želite dobiti) in pritisnite Vnesite nato povlecite samodejno izpolnjevanje, da zapolnite želeni obseg, uporabite to formulo. Zdaj so v tem stolpcu pridobljeni podatki o vsaki tretji vrstici.
Premaknite vsako drugo vrstico v stolpec z VBA
Sledi VBA lahko tudi vsako drugo vrstico premakne v stolpec.
1. Pritisnite F11 + Nadomestna tipke na tipkovnici, da odprete MMicrosoft Visual Basic za aplikacije okno.
2. Nato kliknite Vstavi > Moduli da vstavite novo okno modula. Nato v okno kopirajte naslednjo kodo VBA.
VBA: Vsako drugo vrstico premaknite v stolpec.
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. klik Run gumb ali F5 tipko na tipkovnici in odpre se pogovorno okno za izbiro obsega, ki ga želite premakniti. Oglejte si posnetek zaslona:
4. Nato kliknite OK za prikaz drugega pogovornega okna za izbiro celice za izpis rezultata. Oglejte si posnetek zaslona:
5. klik OK, in si lahko ogledate rezultat, prikazan spodaj:
Premaknite vsako drugo vrstico v stolpec s programom Kutools za Excel
Poleg formul in VBA, če ste namestili Kutools za Excel, lahko uporabite njegovo Območje preoblikovanja funkcija za hitro premikanje vseh drugih vrstic v stolpec.
Kutools za Excel vključuje več kot 300 priročnih orodij Excel. Brezplačno poskusite brez omejitev v 30 dneh. Get it now
1. Izberite obseg, ki ga želite premakniti v vsako drugo vrstico, in kliknite Kutools > Pretvornik dosega > Območje preoblikovanja. Oglejte si posnetek zaslona:
2. V Ljubljani Območje preoblikovanja pogovorno okno, preverite En stolpec za obseg in Vrsta preoblikovanja in preverite Fiksna vrednost nato izberite ali vnesite 2 na seznamu v Vrstice na zapis odsek. Oglejte si posnetek zaslona:
3. klik Ok če želite odpreti pogovorno okno in izbrati eno celico, ki bo prikazala rezultat, glejte posnetek zaslona
4. Nato kliknite OK. Rezultat si lahko ogledate, kot je prikazano spodaj:
Za več informacij o obsegu preoblikovanja.
Relativni članki:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!