Sådan omarrangeres tekst i en celle i Excel?
Antag, at du fik et regneark med en lang liste, der alle formateres som "Efternavn Fornavn", og nu skal du omarrangere alle navne til "Fornavn, Efternavn". Hvordan opnås det? Denne artikel introducerer tre metoder til at hjælpe dig med at løse problemet.
Omarrangere tekst i en celle med formlen
Omarrangere tekst i en celle med VBA-kode
Omarranger hurtigt tekst i en celle med Kutools til Excel
Omarrangere tekst i en celle med formlen
Nedenstående formel kan hjælpe dig med at vende efternavn og fornavn i en celle i Excel. Gør som følger.
1. Vælg en tom celle for at sende den omarrangerede tekst, indtast nedenstående formel i den, og tryk derefter på Enter-tasten.
= TRIM (MID (b2, SEARCH ("", b2) +1,250)) & "" & VENSTRE (b2, SEARCH ("", b2) -1)
Bemærk: i formlen er B2 cellen indeholder det navn, du vil omarrangere. Skift det ud fra dit behov.
2. Bliv ved med at vælge resultatcellen, træk Fill Handle ned for at vende alle navne som vist nedenstående skærmbillede.
Omarrangere let tekst i en celle i Excel:
Omvendt tekst nytte af Kutools til Excel kan hjælpe dig med let at bytte tekst rundt i en celle med en bestemt separator i Excel. Se nedenstående skærmbillede:
Download og prøv! (30-dages gratis spor)
Omarrangere tekst i en celle med VBA-kode
Desuden kan du anvende nedenstående VBA-kode for at vende alle navne på en liste på én gang i Excel. Gør som følger.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter under VAB-koden til modulvinduet.
VBA-kode: Omarranger tekst i en celle
Sub RearrangeText()
'Updated by Extendoffice 20180503
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. Derefter a Kutools til Excel dialogboksen dukker op, vælg venligst den navneliste, du vil omarrangere, og klik derefter på OK knap. Se skærmbillede:
Så bliver alle "Efternavn Fornavn" i den valgte liste vendt med det samme.
Omarranger hurtigt tekst i en celle med Kutools til Excel
Dette afsnit introducerer Omvendt tekstrækkefølge nytte af Kutools til Excel for at hjælpe dig med at omarrangere tekst i en celle.
Før påføring Kutools til Excel, Bedes download og installer det først.
1. Vælg den navneliste, du vil vende "Efternavn Fornavn", og klik derefter Kutools > tekst > Omvendt tekstrækkefølge. Se skærmbillede:
2. i Omvendt tekst dialogboksen skal du vælge Space valgmulighed, og klik derefter på OK knap. Se skærmbillede:
Derefter omarrangeres alle navne på den valgte liste på én gang.
Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.
Relaterede artikler:
- Hvordan bytter eller omvendt dag og måned i Excel?
- Hvordan bytter eller skifter tekst rundt i en celle i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!