Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een kolom om de andere rij in Excel te splitsen?

doc splitsen elke andere rij 1

Ik heb bijvoorbeeld een lange lijst met gegevens en nu wil ik de kolom opsplitsen in twee lijsten, gelijk aan elke andere rij zoals weergegeven in het volgende screenshot. Zijn er goede manieren om met deze taak in Excel om te gaan?

Splits een kolom om de andere rij met formules

Splits een kolom om de andere rij met VBA-code

Splits een kolom om de andere rij met Kutools voor Excel


Splits een enkele kolom in elke andere of nde rij:

Doordat uw bureau Kutools for Excel's Transformeer bereik hulpprogramma, kunt u snel een enkele rij of kolom converteren naar een cellenbereik of omgekeerd.

doc splitsen elke andere rij 11


pijl blauwe rechterbel Splits een kolom om de andere rij met formules


De volgende formules kunnen u helpen bij het snel splitsen van een kolom in twee kolommen om de andere rij, doe dit als volgt:

1. Voer deze formule in in een lege cel, C2, bijvoorbeeld =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1)zie screenshot:

doc splitsen elke andere rij 2

2. Sleep vervolgens de vulgreep omlaag totdat de fouten in de cellen worden weergegeven, zie screenshot:

doc splitsen elke andere rij 3

3. Voer vervolgens een andere formule in in cel D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)en sleep de vulgreep omlaag naar de cellen totdat er foutwaarden verschijnen en de kolomwaarden zijn opgesplitst in twee kolommen om de andere rij, zie screenshot:

doc splitsen elke andere rij 4


pijl blauwe rechterbel Splits een kolom om de andere rij met VBA-code

Als u geïnteresseerd bent in VBA-code, hier, kan ik een code voor u doornemen om dit probleem op te lossen.

1. Houd de toets ingedrukt ALT + F11 toetsen in Excel, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: split een kolom in twee kolommen om de andere rij

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. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvak om u eraan te herinneren het datumbereik te selecteren dat u wilt splitsen, zie screenshot:

doc splitsen elke andere rij 5

4. En klik op OK, er wordt een ander promptvenster geplaatst waarin u een cel kunt selecteren om het resultaat te plaatsen, zie screenshot:

doc splitsen elke andere rij 6

5. Dan klikken OKen de kolom is om de twee rijen in twee kolommen gesplitst. Zie screenshot:

doc splitsen elke andere rij 7


pijl blauwe rechterbel Splits een kolom om de andere rij met Kutools voor Excel

Als je meer nieuwe dingen wilt leren, kan ik een krachtige tool aanbevelen -Kutools for Excel, Met Transformeer bereik hulpprogramma, kunt u snel een enkele rij of kolom converteren naar een cellenbereik en omgekeerd.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, doe als volgt :( Download nu Kutools voor Excel )

1. Selecteer de kolomgegevens die u om de andere rij in twee kolommen wilt splitsen.

2. Dan klikken Kutools > Bereik > Transformeer bereikzie screenshot:

doc splitsen elke andere rij 8

3. In de Transformeer bereik dialoogvenster, selecteer Eén kolom om te variëren onder de Transformeer type, kies dan Vaste waarde en ga naar binnen 2 in de doos in de Rijen per record sectie, zie screenshot:

doc splitsen elke andere rij 9

4. Dan klikken Ok knop, en een promptvenster verschijnt om u eraan te herinneren een cel te selecteren waar u het resultaat wilt uitvoeren, zie screenshot:

doc splitsen elke andere rij 10

5. Klikken OK, de lijstgegevens zijn om de andere rij in twee kolommen gesplitst.

Klik om meer te weten over dit hulpprogramma Transform Range.

Download nu Kutools voor Excel


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
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 · 3 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 · 2 months 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.