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 razdeliti stolpec v vsako vrstico v Excelu?

doc split vse druge vrstice 1

Na primer imam dolg seznam podatkov, zdaj pa želim razdeliti stolpec na dva seznama enako za vsako drugo vrstico, kot prikazuje naslednja slika zaslona. Ali obstajajo kakšni dobri načini reševanja te naloge v Excelu?

Vsako drugo vrstico razdelite s formulami

Vsako drugo vrstico razdelite s kodo VBA

Razdelite stolpec v vsaki drugi vrstici s programom Kutools for Excel


Razdeli en stolpec v vsako drugo ali nesto vrstico:

z Kutools za Excel's Transformski obseg uporabnost, lahko hitro pretvorite eno vrstico ali stolpec v obseg celic ali obratno.

doc split vse druge vrstice 11


puščica modra desno mehurček Vsako drugo vrstico razdelite s formulami


Naslednje formule vam lahko pomagajo, da hitro razdelite stolpec v dva stolpca za vsako drugo vrstico, in to storite takole:

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

doc split vse druge vrstice 2

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

doc split vse druge vrstice 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 napake, vrednosti stolpcev pa so razdeljene v dva stolpca v vsaki drugi vrstici, glejte sliko zaslona:

doc split vse druge vrstice 4


puščica modra desno mehurček Vsako drugo vrstico razdelite s kodo VBA

Če vas zanima koda VBA, lahko tukaj govorim o kodi, s katero lahko rešite to težavo.

1. Drži dol ALT + F11 ključi v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: Razdelite stolpec v dva stolpca vsake druge vrstice

Sub SplitEveryOther()
'Updateby20150813
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 ključ za zagon te kode in se bo oglasno polje odprlo, da vas opomni, da izberete obseg podatkov, ki ga želite razdeliti, glejte sliko zaslona:

doc split vse druge vrstice 5

4. in kliknite OK, se odpre novo okno, ki vam omogoča, da izberete celico, da bi dosegli rezultat, si oglejte posnetek zaslona:

doc split vse druge vrstice 6

5. Nato kliknite OK, stolpec pa je razdeljen na dva stolpca za vsako drugo vrstico. Prikaz slike:

doc split vse druge vrstice 7


puščica modra desno mehurček Razdelite stolpec v vsaki drugi vrstici s programom Kutools for Excel

Če želite izvedeti več novih stvari, lahko priporočim močno orodje -Kutools za Excel, Z njegovim Transformski obseg uporabnost, lahko hitro pretvorite eno vrstico ali stolpec v obseg celic in obratno.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, prosimo, naredite naslednje :( Brezplačno prenesete Kutools za Excel Now )

1. Izberite podatke o stolpcu, ki jih želite razdeliti v dva stolpca za vsako drugo vrstico.

2. Nato kliknite Kutools > Območje > Transformski obseg, si oglejte sliko zaslona:

doc split vse druge vrstice 8

3. v Transformski obseg pogovorno okno, izberite Enolični stolpec v obsegu pod Vrsta preoblikovanja, nato izberite Fiksna vrednost in vnesite 2 v polje v Vrstice na zapis razdelek, glejte sliko zaslona:

doc split vse druge vrstice 9

4. Nato kliknite Ok in se odpre oglasno polje, da vas opomni, da izberete celico, kamor želite prikazati rezultat, si oglejte sliko zaslona:

doc split vse druge vrstice 10

5. Kliknite OK, so bili podatki o seznamu razdeljeni na dva stolpca v vsaki drugi vrstici.

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

Brezplačno prenesete Kutools za Excel Now



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.
    Jas · 1 months ago
    How to do the opposite of this? Get two column info in one row ?
    • To post as a guest, your comment is unpublished.
      skyyang · 27 days ago
      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!
  • To post as a guest, your comment is unpublished.
    Jeff · 2 years ago
    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.