Ga naar hoofdinhoud

Hoe een door komma's gescheiden tekenreeks naar een lijst of rijen in Excel te converteren?

Auteur: Xiaoyang Laatst gewijzigd: 2020-07-03
doc converteer kommawaarden naar lijst 1

Stel dat u een lijst met celwaarden heeft die worden gescheiden door komma's, nu moet u deze door komma's gescheiden tekstreeksen converteren naar meerdere rijen of een kolom zoals in het volgende screenshot wordt getoond. Hoe kunnen meerdere celwaarden in rijen worden opgesplitst op basis van een komma-scheidingsteken tegelijk in Excel?

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

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


Converteer 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, doe dit als volgt:

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 macro in het Module Venster.

VBA-code: converteer een door komma's gescheiden tekenreeks naar rijen of lijst

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
    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 converteer kommawaarden naar lijst 2

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

doc converteer kommawaarden naar lijst 3

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

doc converteer kommawaarden naar lijst 4


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

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

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, voer de volgende stappen uit:

1. Selecteer de celwaarden die u naar rijen wilt converteren op basis van het komma-scheidingsteken.

2. Dan klikken Kutools > Samenvoegen en splitsen > Gespleten cellen, zie screenshot:

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

doc converteer komma-waarden naar lijst 6 6

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

doc converteer kommawaarden naar lijst 7

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

doc converteer kommawaarden naar lijst 8

Klik om meer te weten over deze functie voor het splitsen van cellen ...

Download en gratis proef Kutools voor Excel nu!


Demo: converteer door komma's gescheiden tekststring naar rijen met Kutools voor Excel

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

Gerelateerde artikelen:

Hoe cellen in meerdere kolommen of rijen te splitsen met regelterugloop?

Hoe celwaarden in meerdere kolommen in Excel te splitsen?

Beste Office-productiviteitstools

馃 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


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 honderden muisklikken voor u elke dag!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
I have a cell with 667 characters, of which 119 are commas.With this VBA code I can't split. Can you help me please?Thank you very much!
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations