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

or

Hoe komma-gescheiden tekststring in lijst of rijen in Excel te converteren?

doc zet kommagetallen om in lijst 1

Stel dat je een lijst hebt met celwaarden die worden gescheiden door komma's, nu moet je deze door komma's gescheiden tekstreeksen converteren naar meerdere rijen of een kolom zoals in het volgende screenshot wordt getoond. Hoe kan in Excel meerdere celwaarden in rijen op basis van het kommagescheide in één keer worden gesplitst?

Converteer een door komma's gescheiden tekststring naar rijen met VBA-code

Converteer een door komma's gescheiden tekststring naar rijen met Kutools voor Excel


Converteer een door komma's gescheiden tekststring naar rijen met VBA-code


De volgende VBA-code kan u helpen om meerdere door komma's gescheiden celwaarden naar een kolom te converteren, gelieve als volgt te doen:

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

2. Klikken bijvoegsel > module, en plak de volgende macro in de module Venster.

VBA-code: zet een kommagescheiden tekststring om in rijen of lijst

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice 2015924
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, selecteer in het uitgeklapte dialoogvenster het gegevensbereik dat u wilt converteren, zie screenshot:

doc zet kommagetallen om in lijst 2

4. En klik op OK, geef in het volgende dialoogvenster een cel op waarnaar u het resultaat wilt uitvoeren, zie screenshot:

doc zet kommagetallen om in lijst 3

5. Klikken OK knop, de geselecteerde door komma's gescheiden celwaarden zijn geconverteerd naar een lijst met rijen. Zie screenshot:

doc zet kommagetallen om in lijst 4


Converteer een door komma's gescheiden tekststring naar rijen met Kutools voor Excel

Als je Kutools for Excel, Met Gespleten cellen hulpprogramma, kunt u de kommagescheiden celwaarden snel opsplitsen in meerdere rijen of kolommen op basis van het komma-scheidingsteken dat u nodig hebt.

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, gelieve te doen met de volgende stappen:

1. Selecteer de celwaarden die u naar rijen wilt converteren op basis van het kommascheider.

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

doc zet kommagetallen om in lijst 5 5

3. In de Gespleten cellen dialoogvenster, selecteer Splitsen naar rijen optie onder de Type sectie en vervolgens van de Geef een scheidingsteken op sectie, check Andere checkbox en voer vervolgens de komma in het tekstvak in, zie screenshot:

doc zet kommagetallen om in lijst 6 6

4. Dan klikken Oken een ander dialoogvenster verschijnt om u eraan te herinneren een cel te selecteren om het resultaat te plaatsen, zie screenshot:

doc zet kommagetallen om in lijst 7

5. En klik vervolgens op Ok knop, de door komma's gescheiden cellen zijn opgesplitst in meerdere rijen op basis van het komma-scheidingsteken, zie screenshot:

doc zet kommagetallen om in lijst 8

Klik om meer te weten over deze Split Cells-functie ...

Download en proef Kutools nu voor Excel!


Demo: zet een kommagescheiden tekststring om in rijen 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!


Gerelateerde artikelen:

Hoe cellen in meerdere kolommen of rijen te splitsen door carriage return?

Hoe celwaarden in meerdere kolommen in Excel te splitsen?


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

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • 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 zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... 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 ...
  • 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...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. 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.
    eviakhan · 2 years ago
    update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

    Sub RedistributeCommaDelimitedData_singleCell()

    'Updateby Extendoffice 201592

    Dim xArr() As String

    Dim xAddress As String

    Dim Rg As Range

    Dim Rg1 As Range

    On Error Resume Next

    xAddress = Application.ActiveWindow.RangeSelection.Address

    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

    If Rg Is Nothing Then Exit Sub

    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

    If Rg Is Nothing Then Exit Sub

    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

    If Rg1 Is Nothing Then Exit Sub



    ' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

    ' replace with this for single input cell for Rg:

    xArr = Split(Rg.value, ",")

    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

    Rg1.Parent.Activate

    Rg1.Resize(UBound(xArr) + 1).Select



    End Sub
  • To post as a guest, your comment is unpublished.
    Sid · 2 years ago
    Hi,
    I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help
    Thanks