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

or

Hoe celwaarden verticaal in Excel te splitsen?

In Excel kunt u de Tekst naar kolommen functie om de celwaarden horizontaal in meerdere kolommen te splitsen, maar het helpt u niet om de celinhoud verticaal in meerdere rijen te splitsen. En in dit artikel zal ik ingaan op enkele snelle manieren om de celwaarden verticaal op te splitsen in rijen door een specifiek scheidingsteken in Excel.

Splits celwaarden verticaal in rijen door scheidingsteken met VBA-code

Splits celwaarden verticaal in rijen door scheidingsteken met Kutools voor Excel


Splits celwaarden verticaal in rijen door scheidingsteken met VBA-code


De volgende VBA-code kan u helpen om de celwaarden verticaal in rijen te splitsen door elk scheidingsteken, zoals u wilt, als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

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

VBA-code: Splits celwaarden verticaal in rijen door een specifiek scheidingsteken

Sub splitvertically()
'updatebyExtendoffice 20160303
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvak om u eraan te herinneren de celwaarden te selecteren die u verticaal wilt splitsen, zie screenshot:

document wordt verticaal gesplitst 1

4. En klik vervolgens op OK knop, er verschijnt een ander vak om u eraan te herinneren een cel te selecteren om het resultaat te plaatsen, zie screenshot:

document wordt verticaal gesplitst 2

5. Klikken OK knop, en de celwaarden zijn gesplitst in een lijst door een scheidingsteken, zie screenshot:

document wordt verticaal gesplitst 3

Notes: In de bovenstaande code kunt u de puntkomma wijzigen ; naar andere scheidingstekens die u nodig hebt.


Splits celwaarden verticaal in rijen door scheidingsteken met Kutools voor Excel

Kutools for Excel's Gespleten cellen feature is een krachtig hulpprogramma, het kan u helpen om celwaarden op te splitsen in meerdere kolommen of rijen door eventuele scheidingstekens als u dat wilt.

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, alsjeblieft als volgt doen:

1. Selecteer de cellen die u in rijen wilt splitsen door het specifieke scheidingsteken.

2. Dan klikken Kutools > Tekst > Gespleten cellenzie screenshot:

document wordt verticaal gesplitst 4

3. In de Gespleten cellen dialoogvenster, selecteer Splitsen naar rijen onder de Type sectie en controleer vervolgens Andere van de Splitsen door sectie en voer het scheidingsteken in waarvan u de celwaarden wilt splitsen op basis van, zie screenshot:

document wordt verticaal gesplitst 5

4. En klik vervolgens op Ok knop, selecteer in het uitpakkende vak een cel om het resultaat uit te voeren, zie screenshot:

document wordt verticaal gesplitst 6

5. En klik op OK knop, de celwaarden zijn opgesplitst in rijen op basis van het specifieke scheidingsteken zoals weergegeven in het volgende screenshot:

document wordt verticaal gesplitst 7

Download en proef Kutools nu voor Excel!


Demo: Splits celwaarden verticaal in rijen door scheidingsteken met Kutools voor Excel

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


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.

Be the first to comment.