Hoe converteer je een carriage return naar een komma in Excel?
Misschien heb je veel cellen waarvan de waarden gescheiden zijn door carriage returns, en nu moet je alle carriage returns vinden en vervangen door komma's of andere tekens zoals in de volgende schermafbeelding te zien is. Hoe kun je alle carriage returns snel en gemakkelijk in een werkblad naar komma's of andere tekens omzetten?
Carriage returns omzetten naar komma's met een formule
Carriage returns omzetten naar komma's met de functie Zoeken en Vervangen
Carriage returns omzetten naar komma's met VBA-code
Carriage returns omzetten naar komma's met een formule
De volgende eenvoudige formule kan je helpen om de carriage returns gemakkelijk te vervangen door komma's of andere tekens.
1. Typ deze formule in een lege cel naast uw gegevens: =SUBSTITUTE(A1,CHAR(10),",") (A1 geeft de cel aan die u wilt vervangen, en de komma tussen de aanhalingstekens is het teken dat u wilt gebruiken, u kunt ze naar wens wijzigen.), zie screenshot:
2. Sleep vervolgens de vulgreep over het bereik waarop u deze formule wilt toepassen, en u krijgt het volgende resultaat waarbij de carriage returns vervangen zijn door komma's.
Carriage returns omzetten naar komma's met de functie Zoeken en Vervangen
De functie Zoeken en Vervangen kan u ook helpen om de carriage returns in één keer naar komma's om te zetten. Doe het volgende:
1. Selecteer het gegevensbereik waarin u de carriage returns wilt omzetten.
2. Klik op Start > Zoeken en selecteren > Vervangen of gebruik de sneltoetsen Ctrl + H om het dialoogvenster Zoeken en vervangen te openen, zie screenshot:
3. In het dialoogvenster Zoeken en vervangen, in het veld Zoeken naar, druk op Ctrl + J, en in het veld Vervangen door, typ de tekens die u wilt, in dit geval typ ik de komma (,), zie screenshot:
4. Klik vervolgens op de knop Alles vervangen, en er verschijnt een pop-upvenster dat u eraan herinnert hoeveel vervangingen zijn gemaakt. Zie screenshot:
5. Klik vervolgens op OK en sluit het dialoogvenster Zoeken en vervangen, alle carriage returns zijn vervangen door komma's.
Carriage returns omzetten naar komma's met VBA-code
Als je geïnteresseerd bent in VBA-code, kan ik je een code introduceren om deze taak uit te voeren.
1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.
VBA-code: Carriage returns omzetten naar komma's
Sub ReplaceCarriage()
'Update 20141023
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = Replace(Rng.Value, Chr(10), ",")
Next
End Sub
3. Druk vervolgens op de toets F5 om deze code uit te voeren, en er verschijnt een pop-upvenster dat u eraan herinnert het gegevensbereik te selecteren dat u wilt gebruiken. Zie screenshot:
4. Klik vervolgens op OK, en de carriage returns zijn onmiddellijk omgezet naar komma's.
Opmerking:
In de bovenstaande code kunt u de komma "," binnen het script Rng.Value = Replace(Rng.Value, Chr(10), ",") wijzigen in elk ander teken naar keuze.
Gerelateerde artikelen:
Hoe snel regelafbrekingen in Excel te verwijderen?
Hoe cellen in meerdere kolommen of rijen te splitsen door carriage return?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen 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.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen