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

Neverjetno! Uporaba učinkovitih zavihkov v Excelu Tako kot Chrome, Firefox in Safari!

Prihranite 50% svojega časa in vsak dan zmanjšajte na tisoče klikov z miško!

---

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:

• Izberite vsako sodo vrstico v Excelu
• Kopirajte vsako drugo vrstico

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

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!

Preberite več ... Brezplačen prenos... Nakup ...