Note: The other languages of the website are Google-translated. Back to English

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!
officetab onderkant
Comments (3)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Als tijdelijke oplossing kunt u het volgende doen: Gebruik het bovenstaande voorbeeld: 1. Typ "=a2" in c2 en "=a3" in d3. 2. Selecteer nu c2 tot en met d3. 3. Sleep de vulgreep parallel aan alle gegevens. 4. Verwijder nu cel a2 en schuif de cellen omhoog. 5. Nu moeten we de formuleresultaten converteren naar de berekende waarden. Dat is eenvoudig te doen door alle gegevens, inclusief de lege rijen, te kopiëren en de waarden er bovenop te plakken. 6. Nu kunt u eenvoudig elke kolom alfabetisch sorteren om alle gegevens weer te geven.
Deze opmerking is gemaakt door de moderator op de site
Hoe het tegenovergestelde hiervan te doen? Informatie in twee kolommen op één rij krijgen?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Jas,
Om het tegenovergestelde te doen, moet u de onderstaande VBA-code toepassen om twee kolommengegevens in één enkele kolom om te zetten:

Sub ConvertRangeToColumn()
Dimbereik1 als bereik, bereik2 als bereik, Rng als bereik
Dim rijIndex als geheel getal
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Bronbereiken:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (eencellige):", xTitleId, Type:=8)
rijIndex = 0
Application.ScreenUpdating = False
Voor elke Rng in bereik 1. Rijen
Rng.Kopiëren
Range2.Offset(rowIndex, 0).Plakken Speciaal Plakken:=xlPlakkenAlles, Transponeren:=True
rowIndex = rowIndex + Rng.Columns.Count
Volgende
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties