Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako premakniti vsako drugo vrstico v stolpec v Excelu

Ste kdaj poskušali premikati vse druge podatke vrstice v stolpcu v Excelu, tako da premaknete vsako čudno vrstico v en stolpec in vsako vrstico v drugem stolpcu, ki je prikazana kot slika zaslona spodaj. Tu najdem nekaj trikov, ki lahko rešijo ta problem.

doc-vsak drugi-vrstica-stolpec-1

Premakni vsako drugo vrstico v stolpec s formulo

Vsako drugo vrstico premaknite v stolpec z VBA

Premakni vsako drugo vrstico v stolpec z orodji Kutools for Excel


puščica modra desno mehurček Premakni vsako drugo vrstico v stolpec s formulo


Za večino uporabnikov Excel je uporaba najnovejših rešitev v Excelu enostavna formula.

1. Izberite celico zraven svojih podatkov in vnesite to formulo = IF (ISEVEN (ROW (B2)), B2, "") (B2 označuje podatke, ki jih želite dobiti), in pritisnite Vnesite tipko nato povlecite samodejno izpolnjevanje, da zapolnite obseg, ki ga želite uporabiti s to formulo. Zdaj so v tem stolpcu dobili podatke o vsaki drugi vrstici.

doc-vsak drugi-vrstica-stolpec-2

2. Nato izberite drugo celico poleg zgornjega stolpca in vnesite to formulo = IF (ISODD (ROW (B3)), B3, "") (B3 je podatke, ki jih želite dobiti), in pritisnite Vnesite tipko nato povlecite samodejno izpolnjevanje, da zapolnite obseg, ki ga želite uporabiti s to formulo. Zdaj so v tem stolpcu dobili podatke o tretji vrstici.

doc-vsak drugi-vrstica-stolpec-3


puščica modra desno mehurček Vsako drugo vrstico premaknite v stolpec z VBA

Sledi VBA lahko premakne tudi vse druge vrstice v stolpec.

1. Pritisnite F11 + Alt tipke skupaj na tipkovnici, da odprete Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli vstaviti novo okno modula. In nato kopirajte sledilno kodo VBA v okno.

VBA: premakni vsako drugo vrstico 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 pojavi se pogovorno okno za izbiro območja za premikanje. Prikaz slike:

doc-vsak drugi-vrstica-stolpec-4

4. Nato kliknite OK da prikažete drugo pogovorno okno, da izberete celico, da bi dobili rezultat. Prikaz slike:

doc-vsak drugi-vrstica-stolpec-5

5. klik OK, in si lahko ogledate rezultat, prikazan spodaj:

doc-vsak drugi-vrstica-stolpec-6


puščica modra desno mehurček Premakni vsako drugo vrstico v stolpec z orodji Kutools for Excel

Poleg formul in VBA, če ste namestili Kutools za Excel, lahko uporabite svoje Transformski obseg funkcijo za hitro premikanje vsake druge vrstice v stolpec.

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 30 dneh. Get it now

1. Izberite obseg, ki ga želite premakniti v vsaki drugi vrstici, in kliknite Kutools > Pretvornik razpona > Transformski obseg. Prikaz slike:

doc-vsak drugi-vrstica-stolpec-7

2. V Ljubljani Transformski obseg pogovor, preveri Enolični stolpec v obsegu in Preoblikovanje tipa in preverite Fiksna vrednost nato izberite ali vnesite 2 na seznamu v Vrstice na zapis oddelek. Prikaz slike:

doc-vsak drugi-vrstica-stolpec-8

3. klik Ok da odprete pogovorno okno, da izberete eno celico, da bi dosegli rezultat, si oglejte posnetek zaslona:

doc-vsak drugi-vrstica-stolpec-9

4. Nato kliknite OK. Rezultate lahko vidite, kot je prikazano spodaj:

doc-vsak drugi-vrstica-stolpec-10

Za več informacij o območju prenosa.


Relativni členi:



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    anonomys student · 4 years ago
    What about converting every line in which there are words into columns, and not numbers?