Hvordan bytter eller skifter tekst rundt i en celle i Excel?

I mange tilfælde kan det være nødvendigt at bytte tekst rundt i en enkelt celle til nogle formål. For eksempel indeholder en celle et navn Smith John, du skal bytte teksterne inde i cellen for at ændre navnet til John Smith. Denne artikel viser nogle metoder til løsning af dette problem.

Byt eller skift tekst rundt i en celle ved hjælp af formlen
Byt eller skift tekst rundt i en celle ved hjælp af VBA-kode
Du kan nemt bytte eller skifte tekst i en celle af Kutools til Excel>

Byt eller skift tekst rundt i en celle ved hjælp af formlen

Nedenstående formel kan hjælpe dig med at bytte tekster rundt i en celle i Excel. Gør som følger.

1. Vælg en tom celle for at finde de udskiftede data, indtast formlen i formellinjen, og tryk derefter på Indtast nøgle. Se skærmbillede:

=RIGHT(A2,LEN(A2)-FIND(" ",A2)) & " " & LEFT(A2,FIND(" ",A2)-1)

2. Vælg resultatcellen, og træk derefter Fyldhåndtaget ned for at få hvileresultaterne som vist nedenstående skærmbillede.

Derefter kan du se fornavn og efternavn byttes i specificerede celler.

Bemærk: Denne metode kan kun bytte to tekster inden for en celle, der er adskilt af mellemrum.

Byt eller skift tekst rundt i en celle ved hjælp af VBA-kode

Som vist ovenfor, kan du også køre følgende VBA-script for at bytte eller skifte tekst rundt i en celle.

1. Tryk på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i modulvinduet.

VBA-kode: Skift eller skift tekst inden for en celle

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. Tryk på F5 nøgle for at køre koden. I pop op Kutools til Excel i dialogboksen, vælg det interval med data, du har brug for at bytte, og klik derefter på OK knap. Se skærmbillede:

Derefter kan du se tekster i det angivne navn celler udskiftes med det samme.

Bemærk: Denne kode kan også bytte to ord inden for en celle, der er adskilt af mellemrum korrekt.

Du kan nemt bytte eller skifte tekst i en celle af Kutools til Excel

Dette afsnit anbefaler omvendt tekstbestillingsværktøj af Kutools til Excel for at hjælpe dig med let at løse dette problem. Gør som følger.

1. Vælg det interval, der indeholder de tekster, du skal skifte, og klik derefter på Kutools > tekst > Omvendt tekstrækkefølge. Se skærmbillede:

2. i Omvendt tekst dialogboks, skal du angive en separator, du vil bytte teksterne baseret på i Separator afsnit. I dette tilfælde vælger jeg Space mulighed. Og klik derefter på OK .

Derefter kan du se data i valgte celler byttes i samme celle med specificeret separator med det samme.

Relateret artikel:

• Hvordan bytter eller omvendt dag og måned i Excel?