Preskoči na glavno vsebino

Kako razdeliti stolpec na vsako drugo vrstico v Excelu?

doc razdeli vsako drugo vrstico 1

Na primer, imam dolg seznam podatkov, zdaj pa želim stolpec razdeliti na dva seznama enako za vsako drugo vrstico, kot je prikazano na spodnji sliki zaslona. Ali obstajajo dobri načini za reševanje te naloge v Excelu?

Razdelite stolpec na vsako drugo vrstico s formulami

Razdelite stolpec v vsako drugo vrstico s kodo VBA

Z Kutools za Excel razdelite stolpec na vsako drugo vrstico


puščica modri desni mehurček Razdelite stolpec na vsako drugo vrstico s formulami

Naslednje formule vam lahko pomagajo, da stolpec hitro razdelite na dva stolpca za vsako drugo vrstico. Naredite naslednje:

1. Vnesite to formulo v prazno celico, na primer C2, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), glej posnetek zaslona :

doc razdeli vsako drugo vrstico 2

2. Nato povlecite ročico za polnjenje navzdol, dokler se napake ne prikažejo v celicah, glejte posnetek zaslona:

doc razdeli vsako drugo vrstico 3

3. Nato vnesite drugo formulo v celico D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)in povlecite ročico za polnjenje navzdol do celic, dokler se ne prikažejo vrednosti napak in so vrednosti stolpcev razdeljene na dva stolpca v vsaki drugi vrstici, glejte posnetek zaslona:

doc razdeli vsako drugo vrstico 4


puščica modri desni mehurček Razdelite stolpec v vsako drugo vrstico s kodo VBA

Če vas zanima koda VBA, lahko tukaj govorim o kodi, ki vam bo pomagala rešiti to težavo.

1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: stolpec razdelite na dva stolpca v vsaki drugi vrstici

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
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 OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

3. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da izberete obseg podatkov, ki ga želite razdeliti, glejte posnetek zaslona:

doc razdeli vsako drugo vrstico 5

4. in kliknite OK, prikaže se drugo pozivno polje, ki vam omogoča, da izberete celico za rezultat, glejte posnetek zaslona:

doc razdeli vsako drugo vrstico 6

5. Nato kliknite OK, stolpec pa je vsaka druga vrstica razdelila na dva stolpca. Oglejte si posnetek zaslona:

doc razdeli vsako drugo vrstico 7


puščica modri desni mehurček Z Kutools za Excel razdelite stolpec na vsako drugo vrstico

Če želite izvedeti več novih stvari, vam lahko priporočim močno orodje -Kutools za Excel, Z njegovim Območje preoblikovanja Pripomoček lahko eno vrstico ali stolpec hitro pretvorite v vrsto celic in obratno.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh

Po namestitvi Kutools za Excel, naredite naslednje :( Brezplačno prenesite Kutools za Excel zdaj )

1. Izberite podatke stolpcev, ki jih želite razdeliti na dva stolpca za vsako drugo vrstico.

2. Nato kliknite Kutools > Območje > Območje preoblikovanja, glej posnetek zaslona:

3. v Območje preoblikovanja pogovorno okno, izberite En stolpec za obseg pod Vrsta preoblikovanja, nato izberite Fiksna vrednost in vnesite 2 v polje v Vrstice na zapis razdelek, glej posnetek zaslona:

doc razdeli vsako drugo vrstico 9

4. Nato kliknite Ok in izpiše se pozivno polje, ki vas opomni, da izberete celico, v katero želite izpisati rezultat, glejte posnetek zaslona:

doc razdeli vsako drugo vrstico 10

5. Kliknite OK, so podatki seznama razdeljeni v dva stolpca v vsaki drugi vrstici.

Kliknite, če želite izvedeti več o tem pripomočku Transform Range.

Brezplačno prenesite Kutools za Excel zdaj

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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

zavihek kte 201905


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to do the opposite of this? Get two column info in one row ?
This comment was minimized by the moderator on the site
Hi, Jas,
To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
As a workaround, you can do the following: Using the above example, 1. Type "=a2" in c2 and "=a3" in d3. 2. Now select c2 through d3. 3. Drag the fill handle parallel to all the data. 4. Now delete cell a2 and shift cells up. 5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself. 6. Now you can simply sort any of the column alphabetically to bring all the data up.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations