Hoe tekst binnen één cel in Excel te verwisselen of omwisselen?

In veel gevallen moet u mogelijk tekst in een enkele cel omwisselen voor bepaalde doeleinden. Bijvoorbeeld, een cel bevat de naam Smith John, dan moet u de tekst in de cel omwisselen om de naam te veranderen naar John Smith. Dit artikel somt enkele methoden op om dit probleem op te lossen.

Tekst binnen één cel omwisselen door een formule te gebruiken
Tekst binnen één cel omwisselen door VBA-code te gebruiken
Eenvoudig tekst binnen één cel omwisselen met Kutools voor Excel>

Tekst binnen één cel omwisselen door een formule te gebruiken

De onderstaande formule kan u helpen om tekst binnen één cel in Excel om te wisselen. Volg de onderstaande stappen.

1. Selecteer een lege cel om de verwisselde gegevens te plaatsen, voer de formule in in de Formulebalk (F), en druk vervolgens op de Enter-toets. Zie screenshot:

=RECHTS(A2;LENGTE(A2)-VIND.SPEC(" ";A2)) & " " & LINKS(A2;VIND.SPEC(" ";A2)-1)

2. Selecteer de resultaatcel en sleep het vulhandvat omlaag om de rest van de resultaten te krijgen zoals in onderstaande screenshot wordt getoond.

U ziet nu dat de voornaam en achternaam in de aangegeven cellen zijn omgewisseld.

Opmerking: Deze methode kan alleen twee teksten in één cel omwisselen die gescheiden zijn door een spatie.

Tekst binnen één cel omwisselen door VBA-code te gebruiken

Zoals in bovenstaand voorbeeld wordt getoond, kunt u ook het volgende VBA-script uitvoeren om tekst binnen één cel om te wisselen.

1. Druk gelijktijdig op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: Tekst binnen één cel omwisselen

Sub res()
    Dim xRg As Range, yRg As Range
    Dim LastRow As Long, i As Long
    Dim strTxt As String, strFs As String
    Dim strLs As String, N As Integer
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    For Each yRg In xRg
        On Error Resume Next
        strTxt = yRg.Value
        Trim (strTxt)
        N = InStr(strTxt, " ")
        strLs = Left(strTxt, N - 1)
        strFs = Right(strTxt, Len(strTxt) - N)
        yRg.Value = strFs & " " & strLs
    Next
End Sub

3. Druk op de F5-toets om de code uit te voeren. Selecteer in het pop-upvenster Kutools voor Excel het bereik met de gegevens die u wilt omwisselen en klik vervolgens op de knop OK. Zie screenshot:

U ziet nu dat de tekst in de aangegeven naamcellen onmiddellijk wordt omgewisseld.

Opmerking: Deze code kan ook twee woorden in één cel die gescheiden zijn door een spatie correct omwisselen.

Eenvoudig tekst binnen één cel omwisselen met Kutools voor Excel

Deze sectie raadt de functie Tekst omkeren van Kutools voor Excel aan om u te helpen dit probleem eenvoudig op te lossen. Volg de onderstaande stappen.

1. Selecteer het bereik met de tekst die u wilt omwisselen, klik vervolgens op Kutools > Tekst > Tekst omkeren. Zie screenshot:

2. Geef in het venster Tekst omkeren een scheidingsteken op waarop u de tekst wilt omwisselen in de sectie Scheidingsteken. In dit geval selecteer ik de optie Spatie. Klik vervolgens op de knop OK.

U ziet nu dat de gegevens in de geselecteerde cellen onmiddellijk worden omgewisseld in dezelfde cel door het opgegeven scheidingsteken.

Gerelateerd artikel:

• Hoe dag en maand van een datum in Excel te omwisselen of omkeren?