Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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

doc gesplitst om de rij 1

Ik heb bijvoorbeeld een lange lijst met gegevens en nu wil ik de kolom opsplitsen in twee lijsten, gelijkmatig om de rij, zoals 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


pijl blauw rechts bel Splits een kolom om de andere rij met formules

De volgende formules kunnen u helpen om een ​​kolom snel op te splitsen in twee kolommen om de rij, doe dit als volgt:

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

doc gesplitst om de rij 2

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

doc gesplitst om de rij 3

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

doc gesplitst om de rij 4


pijl blauw rechts bel Splits een kolom om de andere rij met VBA-code

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

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

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

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

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

doc gesplitst om de rij 5

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

doc gesplitst om de rij 6

5. Dan klikken OK, en de kolom is om de rij in twee kolommen gesplitst. Zie screenshot:

doc gesplitst om de rij 7


pijl blauw rechts bel Splits een kolom om de andere rij met Kutools voor Excel

Als je meer nieuwe dingen wilt leren, kan ik een krachtig hulpmiddel aanbevelen -Kutools for Excel, Met Transformeer bereik hulpprogramma kunt u snel een enkele rij of kolom converteren naar een celbereik en vice versa.

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

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

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

2. Dan klikken Kutools > Bereik > Transformeer bereik, zie screenshot:

3. In de Transformeer bereik dialoogvenster, selecteer Enkele kolom om te bereiken onder de Type transformeren, kies dan Vaste waarde en ga naar binnen 2 in de doos in de Rijen per record sectie, zie screenshot:

doc gesplitst om de rij 9

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

doc gesplitst om de rij 10

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

Klik om meer te weten over dit hulpprogramma Transform Range.

Download nu Kutools voor Excel


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
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 · 2 years 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 years 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 · 5 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.