Gå til hovedindhold

Excel fjerner tegn, ord, tal fra tekststrenge

Antag, at du har en lang liste af tekststrenge, som indeholder tegn, tal eller andre specifikke symboler. I visse tilfælde skal du muligvis fjerne nogle tegn baseret på position, såsom fra højre, venstre eller midten fra tekststrengene, eller slette nogle uønskede tegn, tal fra listen over strenge. At finde løsningerne en efter en vil give dig hovedpine, denne tutorial samler alle slags metoder til at fjerne tegn, ord eller tal i Excel.

Indholdsfortegnelse:

1. Fjern tegn fra venstre, højre eller midten af ​​tekststrengene

2. Fjern uønskede/specialtegn fra tekststrenge

3. Fjern tegn/tekst før eller efter specifikke tegn

4. Fjern ord fra tekststrenge


Fjern tegn fra venstre, højre eller midten af ​​tekststrengene

Det kan være en almindelig opgave for de fleste af os at fjerne nogle tegn fra venstre, højre eller midten af ​​tekststrengene i Excel-regneark. Dette afsnit introducerer nogle hurtige og nemme tricks til at løse denne opgave.

1.1 Fjern de første n tegn fra tekststrenge

Hvis du har brug for at fjerne de første n tegn fra en liste over tekststrenge, kan følgende metoder gøre dig en tjeneste.

 Ved hjælp af formler

Normalt kan du bruge enten REPLACE-funktionen eller en kombination af HØJRE- og LEN-funktionerne for at slette tegnene fra begyndelsen af ​​tekststrengene.

REPLACE-funktion for at fjerne de første N tegn:

=REPLACE(string, 1, num_chars, "")
  • streng: Den tekststreng, som du vil fjerne tegn fra;
  • antal_tegn: Antallet af tegn, du vil fjerne.

For at fjerne de første 2 tegn fra cellerne skal du f.eks. bruge nedenstående formel og derefter trække i udfyldningshåndtaget for at kopiere formlen til andre celler, se skærmbillede:

=REPLACE(A4, 1, 2, "")

RIGHT og LEN funktioner til at fjerne de første N tegn:

=RIGHT(string, LEN(string) - num_chars)
  • streng: Den tekststreng, som du vil fjerne tegn fra;
  • antal_tegn: Antallet af tegn, du vil fjerne.

For at fjerne de første 2 tegn fra celler, skal du anvende følgende formel:

=RIGHT(A4,LEN(A4)-2)


 Ved at bruge brugerdefineret funktion

For at fjerne de første n tegn fra celler, kan du også oprette en brugerdefineret funktion for at løse denne opgave. Gør venligst med følgende trin:

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Fjern første n tegn fra tekststrenge

Function removeFirstx(rng As String, cnt As Long)
'Updateby Extendoffice
removeFirstx = Right(rng, Len(rng) - cnt)
End Function

3. Gå derefter tilbage til regnearket, og indtast derefter denne formel: = removefirstx (A4,2) ind i en tom celle, og træk derefter fyldhåndtaget ned for at få resultaterne efter behov, se skærmbillede:

Bemærk: I denne formel: A4 er den celle, du vil fjerne tegn fra; Nummeret 2 angiver antallet af tegn, du vil fjerne fra begyndelsen af ​​tekststrengen.


1.2 Fjern de sidste n tegn fra tekststrenge

For at fjerne et bestemt antal tegn fra højre side af tekststrenge kan du også bruge en formel eller brugerdefineret funktion.

 Ved at bruge formel

For at fjerne de sidste n tegn fra tekststrengene kan du bruge en formel baseret på funktionerne VENSTRE og LÆNGE.

LEFT og LEN funktioner til at fjerne sidste N tegn:

=LEFT(string, LEN(string) - num_chars)
  • streng: Den tekststreng, som du vil fjerne tegn fra;
  • antal_tegn: Antallet af tegn, du vil fjerne.

For at slette 3 tegn fra slutningen af ​​tekststrengene, brug venligst denne formel, og træk derefter udfyldningshåndtaget for at kopiere formlen til andre celler, se skærmbillede:

=LEFT(A4, LEN(A4) - 3)


 Ved at bruge brugerdefineret funktion

Her kan en brugerdefineret funktion også hjælpe dig med at fjerne de sidste n tegn fra en liste over celler, gør venligst som dette:

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Fjern sidste n tegn fra tekststrenge

Function removeLastx(rng As String, cnt As Long)
'Updateby Extendoffice
removeLastx = Left(rng, Len(rng) - cnt)
End Function

3. Vend derefter tilbage til regnearket, og indtast denne formel: = removeelastx (A4,3) ind i en tom celle, og træk derefter fyldhåndtaget ned for at få resultaterne efter behov, se skærmbillede:

Bemærk: I denne formel: A4 er den celle, du vil fjerne tegn fra; Nummeret 3 angiver antallet af tegn, du vil fjerne fra slutningen af ​​tekststrengen.


1.3 Fjern første, sidste n tegn eller bestemte positionstegn ved at bruge en kraftfuld funktion

Det kan være smertefuldt for dig at huske forskellige formler, at fjerne tegn fra venstre, højre eller en bestemt position af tekststrengene, Kutools til Excel understøtter en kraftfuld funktion - Fjern efter position. Med dette lille værktøj kan du håndtere disse opgaver med et par klik uden at huske nogen formler.

Efter installation Kutools til Excelskal du gøre som dette:

1. Vælg de celler, du vil fjerne tegn, og klik derefter Kutools > tekst > Fjern efter position, se skærmbillede:

2. I Fjern efter position dialogboksen, skal du udføre følgende handlinger:

2.1 Fjern de første n tegn fra celler:

  • In Tal tekstboks skal du indtaste antallet af tegn, du vil fjerne fra strenge. I dette eksempel vil jeg fjerne de første 2 tegn.
  • Type Fra venstre indstilling i Position sektion.
  • Klik derefter på Ok or Indløs knappen for at få resultatet som vist nedenfor skærmbillede.

2.2 Fjern de sidste n tegn fra celler:

  • In Tal tekstboks skal du indtaste antallet af tegn, du vil fjerne fra strenge. I dette eksempel vil jeg fjerne de sidste 3 tegn.
  • Type Fra højre indstilling i Position sektion.
  • Klik derefter på Ok or Indløs knappen for at få resultatet som vist nedenfor skærmbillede.

2.3 Fjern n tegn fra specifik position af celler:

Hvis du har brug for at fjerne et bestemt antal tegn fra en bestemt position af tekststrengene, for eksempel, fjernelse af 3 tegn starter fra det tredje tegn i strengene.

  • In Tal tekstboks skal du indtaste antallet af tegn, du vil fjerne fra strenge. I dette eksempel vil jeg fjerne 3 tegn fra en bestemt position.
  • Type Angiv valgmulighed, og skriv det nummer, som du vil fjerne tegn fra, i tekstboksen i Position afsnit. Her vil jeg fjerne tegn fra den tredje karakter.
  • Klik derefter på Ok or Indløs knappen for at få resultatet som vist nedenfor skærmbillede.

Download og gratis prøveversion Kutools til Excel nu!


1.4 Fjern både første n og sidste n tegn fra tekststrenge med formel

Når du skal fjerne nogle tegn på begge sider af tekststrenge i Excel, kan du kombinere MID- og LEN-funktionerne for at skabe en formel til at håndtere denne opgave.

=MID(string, left_chars + 1, LEN(string) - (left_chars + right_chars)
  • streng: Den tekststreng, som du vil fjerne tegn fra;
  • venstre_tegn: Antallet af tegn, der skal fjernes fra venstre;
  • højre_tegn: Antallet af tegn, der skal fjernes fra højre.

For eksempel skal du fjerne de første 7 tegn og de sidste 5 tegn fra tekststrenge på samme tid, indtast venligst følgende formel i en tom celle:

=MID(A4, 7+1, LEN(A4) - (7+5))

Bemærk: I denne formel: A4 er den celle, du vil fjerne tegn fra; Nummeret 7 er antallet af tegn, du vil fjerne fra venstre side; Nummeret 5 er antallet af tegn, du vil fjerne fra højre side.

Og træk derefter udfyldningshåndtaget ned til det sted, hvor du vil anvende denne formel, og du vil få resultatet som vist nedenfor skærmbillede:


Fjern uønskede/specialtegn fra tekststrenge

Når du importerer data fra et andet sted til Excel, kan en masse specielle eller uønskede tegn blive indsat på dit regneark. For at fjerne disse uønskede tegn såsom #@$%^&, mellemrum, tal, ikke-numeriske tal, linjeskift osv., vil dette afsnit give nogle nyttige metoder til at hjælpe dig.

2.1 Fjern nogle specialtegn fra tekststrenge

Hvis der er nogle specialtegn såsom %^&*() i tekststrengene, kan du bruge nedenstående tre tricks for at fjerne denne type tegn.

 Fjern flere specialtegn fra tekststrenge med SUBSTITUTE-funktionen

Normalt kan du i Excel indlejre flere ERSTAT-funktioner for at erstatte hvert specifikt tegn med ingenting, den generiske syntaks er:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(string_cell, char1, ""), char2, ""), char3, "")
  • streng_celle: Cellen indeholder den tekststreng, som du vil fjerne specialtegn fra;
  • char1, char2, char3: De uønskede tegn, du vil fjerne.

Nu skal du kopiere eller indtaste nedenstående formel i en tom celle:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, "#", ""), "&", ""), "*", ""), "%", "")

Og træk derefter udfyldningshåndtaget ned til de celler, hvor du vil anvende denne formel, og alle de uønskede tegn, du har angivet, vil blive fjernet på én gang, se skærmbillede:

Tips: Hvis der er flere tegn, du vil fjerne, skal du blot indlejre flere SUBSTITUTE-funktioner inde i formlen.


 Fjern flere specialtegn fra tekststrenge med brugerdefineret funktion

Ovenstående indlejrede SUBSTITUTE-funktioner fungerer godt, hvis der er få specialtegn, der skal fjernes, men hvis du har snesevis af tegn, der skal fjernes, bliver formlen for lang og svær at administrere. I dette tilfælde kan den følgende brugerdefinerede funktion hjælpe dig med at afslutte denne opgave hurtigt og nemt.

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Fjern flere specialtegn fra tekststrenge

Function RemoveUnwantedChars(Str As String, xchars As String)
'Updateby Extendoffice
    For Index = 1 To Len(xchars)
        Str = Replace(Str, Mid(xchars, Index, 1), "")
    Next
    RemoveUnwantedChars = Str
End Function

3. Luk derefter kodevinduet og gå tilbage til regnearket, indtast denne formel =Fjern uønskede tegn(A2, $D$2) ind i en tom celle, hvor resultatet skal udskrives, og træk derefter udfyldningshåndtaget ned for at få resultaterne, som du har brug for, se skærmbillede:

Bemærk: I ovenstående formel: A2 er den celle, du vil fjerne tegn fra; $ D $ 2 indeholder de specialtegn, du gerne vil fjerne (du kan indtaste alle andre specialtegn, du har brug for).


 Fjern flere specialtegn fra tekststrenge med en fantastisk funktion

Hvis du har installeret Kutools til Excel, Med Fjern tegn funktion, kan du fjerne alle slags tegn, såsom numeriske tegn, alfategn, ikke-udskrivende tegn ... fra en liste over celler, som du har brug for.

Efter installation Kutools til Excelskal du gøre som dette:

1. Vælg det celleområde, du vil fjerne specialtegn fra, og klik derefter Kutools > tekst > Fjern tegn, se skærmbillede:

2. I Fjern tegn dialog boks:

  • Check (Skak) Tilpasset mulighed under Fjern tegn sektion.
  • Og indtast derefter specialtegnene i tekstboksen, som du vil fjerne.
  • Klik derefter på Ok or Indløs knappen for at fjerne de tegn, du har angivet på én gang. Se skærmbillede:

Download og gratis prøveversion Kutools til Excel nu!


2.2 Fjern alle tal fra tekststrenge

Hvis du har en liste over tekststrenge, der blandes med tal, bogstaver og specialtegn, og nu vil du bare fjerne alle tal og beholde andre tegn. Dette afsnit vil give nogle praktiske måder at hjælpe dig på.

 Fjern tal fra tekststrenge med SUBSTITUTE-funktionen

I Excel kan den indlejrede SUBSTITUTE-funktion hjælpe med at erstatte alle tal med ingenting, så du kan bruge nedenstående formel til at fjerne alle tal fra celler:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,1,""),2,""),3,""),4,""),5,""),6,""),7,""),8,""),9,""),0,"")

Træk derefter udfyldningshåndtaget ned til de celler, hvor du vil anvende denne formel, og alle tal vil blive slettet fra listen over tekststrenge, se skærmbillede:


 Fjern tal fra tekststrenge med TEXTJOIN-funktionen

Hvis du har Excel 2019, 2021 eller 365, kan den nye TEXTJOIN-funktion også hjælpe med at fjerne tal fra tekststrenge.

Kopier venligst følgende formel ind i en tom celle, og tryk derefter på Ctrl + Shift + Enter-tasterne sammen for at få det første resultat:

=TEXTJOIN("", TRUE, IF(ISERR(MID(A2, ROW(INDIRECT( "1:"&LEN(A2) )), 1) *1), MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1), ""))

Og kopier derefter formlen til andre celler nedenfor, hvor du vil anvende denne formel, se skærmbillede:

Bemærk: Denne TEXTJOIN er kun tilgængelig i Excel 2019, 2021 og Office 365.


 Fjern tal fra tekststrenge med brugerdefineret funktion

Udover ovenstående to formler kan en brugerdefineret funktion også gøre dig en tjeneste, gør venligst med følgende trin:

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Fjern tal fra tekststrenge

Function RemoveNumbers(Txt As String) As String
'Updateby Extendoffice
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[0-9]"
RemoveNumbers = .Replace(Txt, "")
End With
End Function

3. Luk derefter kodevinduet, gå tilbage til regnearket og indtast denne formel: = Fjern numre (A2) ind i en tom celle, og træk derefter udfyldningshåndtaget ned til de celler, hvor du vil anvende denne formel, se skærmbillede:


 Fjern tal fra tekststrenge med en praktisk mulighed

Hvis du er træt af de komplicerede formler, så lad mig nu vise dig et nemt værktøj – Kutools til Excel's Fjern tegn. Med denne praktiske funktion kan du udføre denne opgave med kun et par klik.

Efter installation Kutools til Excelskal du gøre som dette:

1. Vælg det celleområde, hvor du vil fjerne tal, og klik derefter Kutools > tekst > Fjern tegn.

2. I Fjern tegn dialogboksen, skal du udføre følgende handlinger:

  • Check (Skak) Numerisk mulighed under Fjern tegn sektion.
  • Klik derefter på Ok or Indløs knappen for at fjerne tallene med det samme. Se skærmbillede:

Download og gratis prøveversion Kutools til Excel nu!


2.3 Fjern ikke-numeriske tegn fra tekststrenge

For at fjerne alle ikke-numeriske tegn og kun beholde tallene fra tekststrenge, vil dette afsnit tale om nogle måder at løse denne opgave i Excel.

 Fjern ikke-numeriske tegn fra tekststrenge med formel i Excel 2016 og tidligere versioner

Hvis du bruger Excel 2016 eller tidligere versioner, bør du anvende en kompleks formel for at opnå dette job. Kopier eller indtast nedenstående formel i en tom celle:

=SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2, ROW(INDIRECT("1:"&LEN(A2))), 1)) * ROW(INDIRECT("1:"&LEN(A2))), 0), ROW(INDIRECT("1:"&LEN(A2))))+1, 1) * 10^ROW(INDIRECT("1:"&LEN(A2)))/10)

Og kopier derefter formlen til andre celler nedenfor, hvor du vil anvende denne formel, se skærmbillede:

Bemærk: Hvis tallene i en tekststreng starter med 0, vil 0'et gå tabt.


 Fjern ikke-numeriske tegn fra tekststrenge med TEXTJOIN-funktionen i Excel 2019, 2021, 365

Ovenstående formel kan være for svær at forstå for de fleste af os. Hvis du har Excel 2019, 2021 eller 365, er der en pæn formel, som kan hjælpe dig.

Kopier eller indtast følgende formel i en tom celle, og tryk på Ctrl + Skift + Enter nøgler sammen for at få det første rigtige resultat:

=TEXTJOIN("",TRUE,IFERROR(MID(A2,ROW(INDIRECT("1:100")),1)+0,""))

Træk derefter udfyldningshåndtaget ned til cellerne, hvor du vil anvende denne formel, og du vil få resultatet som vist nedenfor skærmbillede:

Bemærk: Med denne formel kan du se, at de foranstillede 0'er bevares, da tallene returneres som tekst.


 Fjern ikke-numeriske tegn fra tekststrenge med brugerdefineret funktion

Du kan selvfølgelig også oprette din egen brugerdefinerede funktion med en enklere syntaks, gør venligst som dette:

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Fjern ikke-numeriske tegn fra tekststrenge

Function Removenonnumeric(str As String) As String
'Updateby Extendoffice
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9]"
        Removenonnumeric = .Replace(str, "")
    End With
End Function

3. Luk derefter kodevinduet, gå tilbage til regnearket og indtast denne formel: =Fjernonnumerisk(A2) ind i en tom celle, og træk derefter udfyldningshåndtaget ned til de celler, hvor du vil anvende denne formel, kun tal vil blive udtrukket som vist nedenfor:


 Fjern ikke-numeriske tegn fra tekststrenge med en simpel funktion

For at slette ikke-numeriske tegn i en række celler direkte, Kutools til Excel's Fjern tegn værktøj kan få det gjort med kun få klik.

Efter installation Kutools til Excelskal du gøre som dette:

1. Vælg det celleområde, du vil fjerne ikke-numeriske tegn fra, og klik derefter Kutools > tekst > Fjern tegn.

2. I Fjern tegn dialogboks, skal du indstille følgende handlinger:

  • Check (Skak) Ikke-numerisk mulighed under Fjern tegn sektion.
  • Klik derefter på Ok or Indløs knappen for at fjerne alle ikke-numeriske tegn med det samme. Se skærmbillede:

Download og gratis prøveversion Kutools til Excel nu!


2.4 Adskil tekst og tal fra én celle i to kolonner

Nogle gange vil du måske udtrække teksten og tallene fra tekststrenge i to adskilte kolonner, ved hjælp af følgende metoder kan du afslutte denne opgave hurtigt og nemt.

 Adskil tekst og tal fra én celle i to kolonner med brugerdefineret funktion

Ved at bruge følgende brugerdefinerede funktion, kan du udtrække teksten og tallene på én gang, gør venligst med nedenstående trin:

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Adskil tekst og tal fra tekststrenge i to kolonner

Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

3. Luk derefter kodevinduet, gå tilbage til regnearket og indtast denne formel: = SplitText (A2, FALSE) ind i en tom celle, og træk derefter udfyldningshåndtaget ned til de celler, som du vil udfylde denne formel for at få al teksten, se skærmbillede:

4. Og så fortsæt med at skrive denne formel: = SplitText (A2, SAND) ind i en anden celle og træk fyldhåndtaget ned til de celler, som du vil udfylde denne formel for at få tallene, se skærmbillede:


 Adskil tekst og tal fra én celle i to kolonner med en nem funktion

Hvis du har Kutools til Excel, dens Opdel celler værktøjet kan hjælpe dig med at opdele celler i flere kolonner eller rækker baseret på eventuelle separatorer, specificeret bredde eller tekst og tal.

Efter installation Kutools til Excelskal du gøre som dette:

1. Vælg det celleområde, du vil opdele, og klik derefter Kutools > Flet og del > Opdel celler, se skærmbillede:

2. I Opdel celler dialogboksen, vælg Opdel til kolonner mulighed under Type sektion, og kontroller derefter Tekst og nummer fra Opdel ved sektion, se skærmbillede:

3. Klik derefter på Ok knap og en anden Opdel celler dialogboksen vil blive poppet ud, vælg en celle for at udskrive den adskilte tekst og tal, og klik derefter på OK knap. Nu kan du se, at teksten og tallene i de valgte celler er opdelt i to kolonner på én gang som vist nedenfor:

Download og gratis prøveversion Kutools til Excel nu!


2.5 Fjern linjeskifttegn fra tekststrenge

Et linjeskift er noget, der giver dig mulighed for at have flere linjer i samme celle i Excel. Nogle gange, når du kopierer data fra hjemmesiden eller adskiller dit celleindhold med Alt + Enter tasterne manuelt, vil du få linjeskift eller vognretur. I visse tilfælde vil du måske slette linjeskiftene for at gøre celleindholdet til én linje som vist nedenfor. Her vil jeg introducere nogle måder at løse denne opgave i Excel.

 Fjern linjeskifttegn fra tekststrenge med funktionen Find og erstat

I Excel kan du bruge Søg og erstat funktion for at fjerne linjeskift, skal du gøre følgende:

1. Vælg det dataområde, hvorfra du vil fjerne linjeskiftene.

2. Klik derefter på Home > Find og vælg > udskifte (eller tryk på Ctrl + H nøgler) for at gå til Søg og erstat dialogboks, se skærmbillede:

3. I poppet ud Søg og erstat dialogboksen, skal du udføre følgende handlinger:

  • Placer markøren i Find hvad felt og tryk Ctrl + J på tastaturet kan du muligvis ikke se noget, men linjeskifttegnet er indsat.
  • I Erstat med feltet skal du lade dette felt være tomt for blot at slette linjeskiftene eller trykke på Space bar én gang for at erstatte linjeskiftene med blanke.

4. Klik derefter på Erstat alle knappen, vil alle linjeskift i de valgte celler blive slettet eller erstattet med tomme felter på én gang. Se skærmbillede:


 Fjern linjeskifttegn fra tekststrenge med SUBSTITUTE-funktionen

Du kan også oprette en formel baseret på SUBSTITUTE- og CHAR-funktionerne for at fjerne linjeskiftene fra tekststrengene.

Anvend venligst nedenstående formel for at få resultatet:

=SUBSTITUTE(A2,CHAR(10),"")

Tips: SUBSTITUTE-funktionen finder og erstatter CHAR(10)-tegnet, som repræsenterer linjeskifttegnet med ingenting. Hvis du ønsker, at resultatet skal adskilles med komma og mellemrum, kan du bruge nedenstående formel:

=SUBSTITUTE(A2,CHAR(10),", ")


 Fjern linjeskifttegn fra tekststrenge med VBA-kode

Hvis du er tryg ved at bruge VBA-kode, giver her også en kode til dig, gør venligst med følgende trin:

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Fjern linjeskift fra tekststrenge

Sub RemoveCarriage()
'Updateby Extendoffice
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. Tryk derefter på F5 tasten for at køre denne kode, og en promptboks vises, vælg det område, du vil fjerne linjeskiftene, se skærmbillede:

4. Klik derefter på OK knappen, vil alle linjeskift blive slettet fra det valgte dataområde.


 Fjern linjeskifttegn fra tekststrenge med en smart mulighed

Her, Kutools til Excel's Fjern tegn funktion kan også hjælpe dig med at fjerne linjeskift med lethed.

Efter installation Kutools til Excelskal du gøre som dette:

1. Vælg det celleområde, hvor du vil fjerne linjeskift, og klik derefter Kutools > tekst > Fjern tegn.

2. I Fjern tegn dialogboks, skal du indstille følgende handlinger:

  • Check (Skak) Ikke-udskrivning mulighed under Fjern tegn sektion.
  • Klik derefter på Ok or Indløs knappen for at fjerne alle linjeskift fra det valgte dataområde. Se skærmbillede:

Download og gratis prøveversion Kutools til Excel nu!


2.6 Fjern mellemrum (førende, efterfølgende, ekstra eller alle mellemrum) fra tekststrenge

At håndtere og indsætte tekst fra en ekstern kilde til et Excel-regneark medfører ofte nogle irriterende mellemrum, det vil være kedeligt at fjerne de indledende, efterfølgende eller andre ekstra mellemrum manuelt. Heldigvis giver Excel nogle nemme tricks til at håndtere denne opgave.

 Fjern ekstra mellemrum (førende, efterfølgende, overskydende) fra tekststrenge med TRIM-funktionen

I Excel kan den simple TRIM-funktion hjælpe dig for at slette de indledende, efterfølgende og ekstra mellemrum fra tekststrenge. Denne funktion sletter alle mellemrum undtagen enkelte mellemrum mellem ord.

Indtast nedenstående formel i en tom celle:

=TRIM(A2)

Og træk derefter udfyldningshåndtaget ned for at kopiere formlen til andre celler, nu kan du se alle de foranstående, efterfølgende mellemrum og ekstra mellemrum blandt ordene fjernes på én gang fra skærmbilledet:


 Fjern alle mellemrum fra tekststrenge

Hvis du vil fjerne alle mellemrum fra tekststrenge, kan følgende ERSTAT-funktion og Find & Erstat-funktion gøre dig en tjeneste.

Ved at bruge ERSTAT-funktionen

Du kan bruge SUBSTITUTE-funktionen til at erstatte alle mellemrum med ingenting. Anvend venligst nedenstående formel i en tom celle:

=SUBSTITUTE(A2," ","")

Træk derefter udfyldningshåndtaget ned for at kopiere denne formel til andre celler, du har brug for, og alle mellemrum vil blive slettet som vist nedenfor skærmbillede:


Ved at bruge funktionen Find og erstat

Faktisk den Find & erstat funktion i Excel kan også hjælpe med at slippe af med alle mellemrum fra udvalgte celler, gør venligst med følgende trin:

1. Vælg det dataområde, som du vil fjerne alle mellemrum fra.

2. Klik derefter på Home > Find og vælg > udskifte (eller tryk på Ctrl + H nøgler) for at gå til Søg og erstat dialogboksen i den åbnede Søg og erstat dialogboksen, skal du udføre nedenstående handlinger:

  • Presse Mellemrum bar i Find hvad Mark;
  • I Erstat med felt, lad dette felt stå tomt.

3. Klik derefter på Erstat alle knappen, slettes alle mellemrum i de valgte celler på én gang. Se skærmbillede:


 Fjern alle slags mellemrum fra tekststrenge med en kraftfuld funktion

Kutools til Excel har en kraftfuld funktion – Fjern mellemrum, med dette værktøj kan du ikke kun fjerne førende mellemrum, efterfølgende mellemrum, overskydende mellemrum, men også alle mellemrum fra udvalgte områder i én dialogboks, hvilket vil øge din arbejdsproduktivitet.

Efter installation Kutools til Excelskal du gøre som dette:

1. Vælg det dataområde, du vil fjerne mellemrum fra, og klik derefter Kutools > tekst > Fjern mellemrum. Se skærmbillede:

2. I Fjern mellemrum dialogboksen skal du vælge en mellemrumstype, du vil fjerne fra Rumtype:

  • Fjern de forreste mellemrum, vælg venligst Ledende rum mulighed;
  • Fjern de efterfølgende mellemrum, vælg venligst Bageste rum mulighed;
  • Fjern de forreste mellemrum og de efterfølgende mellemrum på én gang, vælg venligst Ledende og efterfølgende rum mulighed;
  • Fjern alle ekstra mellemrum, vælg venligst Alle overskydende rum mulighed;
  • Fjern alle mellemrum, vælg venligst Alle mellemrum valgmulighed.

3. Klik derefter på Ok or Indløs knappen, får du det resultat, du har brug for.

Download og gratis prøveversion Kutools til Excel nu!


Fjern tegn/tekst før eller efter et bestemt tegn

I dette afsnit vil jeg introducere nogle operationer til at fjerne teksten eller tegnene før eller efter den første, sidste eller n'te forekomst af et specifikt tegn.

3.1 Fjern tekst før eller efter det første specifikke tegn

Hvis du vil fjerne teksten før eller efter det første specifikke tegn, såsom mellemrum, komma fra en liste over tekststrenge som vist nedenfor, vil jeg her poste to metoder for dig.

 Fjern tekst før det første specifikke tegn med en formel

For at fjerne tekst eller tegn før det første specifikke tegn, kan du oprette en formel baseret på HØJRE, LÆNGE og FIND funktionerne, den generiske syntaks er:

=RIGHT(cell, LEN(cell)-FIND("char", cell))
  • celle: Cellereferencen eller tekststrengen, som du vil fjerne tekst fra;
  • char: Den specifikke separator, som du vil fjerne tekst baseret på.

For eksempel, for at fjerne alt før det første komma fra listestrengene, skal du anvende følgende formel i en tom celle og derefter trække den ned til de celler, du har brug for, se skærmbillede:

=RIGHT(A2,LEN(A2)-FIND(",",A2))

Bemærk:I ovenstående formel: A2 er den celle, du vil fjerne tekst fra; , er det specifikke tegn, du vil fjerne tekst baseret på, kan du ændre det til andre tegn, som du har brug for.


 Fjern tekst efter det første specifikke tegn med en formel

For at fjerne alt efter det første specifikke tegn, kan du bruge funktionerne VENSTRE og FIND for at få resultatet, den generiske syntaks er:

=LEFT(cell,FIND("char",cell)-1)
  • celle: Cellereferencen eller tekststrengen, som du vil fjerne tekst fra;
  • char: Den specifikke separator, som du vil fjerne tekst baseret på.

Indtast nu nedenstående formel i en tom celle, og træk derefter udfyldningshåndtaget ned til andre celler, hvor du vil anvende denne formel, og alle tegnene efter det første komma vil blive fjernet på én gang, se skærmbillede:

=LEFT(A2,FIND(",",A2)-1)


3.2 Fjern tekst før eller efter N. forekomst af et tegn

Nogle gange indeholder tekststrengene flere forekomster af en specifik afgrænsning, du vil måske fjerne alle tegn før eller efter en bestemt forekomst, såsom den anden, tredje eller fjerde efter behov. For at håndtere denne type fjernelse kan du bruge følgende tricks:

 Fjern tekst før N. forekomst af et tegn med en formel

For at fjerne teksten før den N. forekomst af et specifikt tegn, kan følgende formel hjælpe dig, den generiske syntaks er:

=RIGHT(cell,LEN(cell)-FIND("#",SUBSTITUTE(cell,"char","#",N)))
  • celle: Cellereferencen eller tekststrengen, som du vil fjerne tekst fra;
  • char: Den specifikke separator, som du vil fjerne tekst baseret på;
  • N: Karakterens forekomst, før teksten skal fjernes.

For eksempel, for at fjerne alt før det andet komma fra tekststrengene, skal du anvende nedenstående formel:

=RIGHT(A2,LEN(A2)-FIND("#",SUBSTITUTE(A2,",","#",2)))

Bemærk:I ovenstående formel: A2 er den celle, du vil fjerne tekst fra; , er det specifikke tegn, du vil fjerne tekst baseret på, kan du ændre det til andre tegn, som du har brug for; 2 angiver det n'te komma, før som du vil fjerne tekst.

Og træk derefter i udfyldningshåndtaget for at kopiere formlen til andre celler, se skærmbillede:


 Fjern tekst efter N. forekomst af et tegn med en formel

For at fjerne teksten efter den N-te forekomst af en specifik separator, kan VENSTRE, ERSTAT og FIND funktionerne gøre dig en tjeneste. Den generiske syntaks er:

=LEFT(cell, FIND("#", SUBSTITUTE(cell, "char", "#", N)) -1)
  • celle: Cellereferencen eller tekststrengen, som du vil fjerne tekst fra;
  • char: Den specifikke separator, som du vil fjerne tekst baseret på;
  • N: Karakterens forekomst, hvorefter tekst fjernes.

Når du forstår den grundlæggende syntaks, skal du kopiere eller indtaste nedenstående formel i en tom celle:

=LEFT(A2, FIND("#", SUBSTITUTE(A2, ",", "#", 2)) -1)

Bemærk:I ovenstående formel: A2 er den celle, du vil fjerne tekst fra; , er det specifikke tegn, du vil fjerne tekst baseret på, kan du ændre det til andre tegn, som du har brug for; 2 angiver det n'te komma, hvorefter du vil fjerne tekst.

Træk derefter udfyldningshåndtaget for at kopiere formlen til andre celler, og alle tegnene efter det andet komma slettes på én gang, se skærmbillede:


 Fjern tekst før eller efter N. forekomst af et tegn med brugerdefineret funktion

Som du kan se, kan du løse sagerne for fjernelse af tekst før eller efter N. forekomst af et tegn ved at bruge Excels native funktioner i forskellige kombinationer. Problemet er, at du skal huske disse vanskelige formler. I dette tilfælde vil jeg oprette en brugerdefineret funktion til at dække alle scenarierne. Gør venligst som dette:

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Fjern tekst før eller efter N. forekomst af et tegn

Function RemoveTextOccurrence(Str As String, Delimiter As String, Occurrence As Integer, IsAfter As Boolean)
Dim xStr As String
Dim xStrLen, xF, xIntStart As Integer
xStr = Str
xStrLen = Len(xStr)
xIntStart = 1
For xF = 1 To Occurrence
xIntStart = InStr(xIntStart + 1, xStr, Delimiter, vbTextCompare)
If (xIntStart = 0) Or (xIntStart < 0) Then
    If IsAfter Then
    RemoveTextOccurrence = xStr
    Else
    RemoveTextOccurrence = ""
    End If
    Exit Function
End If
Next
If IsAfter Then
    RemoveTextOccurrence = Mid(Str, 1, xIntStart - 1)
Else
    RemoveTextOccurrence = Mid(Str, xIntStart + 1)
End If
End Function

3. Luk derefter og afslut kodevinduet, gå tilbage til regnearket, brug følgende formler:

Fjern tekst før den anden forekomst af et komma:

=RemoveTextOccurrence(A2, ", ", 2, FALSE)

Fjern tekst efter den anden forekomst af et komma

=RemoveTextOccurrence(A2, ", ", 2, TRUE)


3.3 Fjern tekst før eller efter den sidste forekomst af et tegn

Hvis du har brug for at fjerne al tekst før eller efter det sidste specifikke tegn, og kun efterlade understrengene efter eller før det sidste specifikke tegn som vist nedenfor, vil dette afsnit tale om nogle formler til at løse dette problem.

 Fjern tekst før den sidste forekomst af et tegn med en formel

For at fjerne alle tegn før den sidste forekomst af et tegn, er den generiske syntaks:

=RIGHT(cell,LEN(cell)-SEARCH("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char","")))))
  • celle: Cellereferencen eller tekststrengen, som du vil fjerne tekst fra;
  • char: Den specifikke separator, som du vil fjerne tekst baseret på;

Nu, hvis du har brug for at fjerne teksten før den sidste forekomst af et komma, skal du kopiere eller indtaste nedenstående formel i en tom celle:

=RIGHT(A2,LEN(A2)-SEARCH("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",","")))))

Bemærk:I ovenstående formel: A2 er den celle, du vil fjerne tekst fra; , er det specifikke tegn, du vil fjerne tekst baseret på, kan du ændre det til andre tegn, som du har brug for.

Træk derefter udfyldningshåndtaget for at kopiere formlen til andre celler, og alle tegnene før det sidste komma slettes som vist nedenfor:


 Fjern tekst efter den sidste forekomst af et tegn med formler

Hvis celleværdierne er adskilt med et variabelt antal afgrænsningstegn, vil du nu slette alt efter den sidste forekomst af det afgrænsningstegn, den generiske syntaks er:

=LEFT(cell,FIND("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char",""))))-1)
  • celle: Cellereferencen eller tekststrengen, som du vil fjerne tekst fra;
  • char: Den specifikke separator, som du vil fjerne tekst baseret på;

Kopier eller indtast nedenstående formel i en tom celle, og træk derefter udfyldningshåndtaget ned for at få andre resultater, du har brug for, se skærmbillede:

=LEFT(A2,FIND("#",SUBSTITUTE(A2,",","#",LEN(A2)-LEN(SUBSTITUTE(A2,",",""))))-1)

Bemærk:I ovenstående formel: A2 er den celle, du vil fjerne tekst fra; , er det specifikke tegn, du vil fjerne tekst baseret på, kan du ændre det til andre tegn, som du har brug for.


3.4 Fjern tekst mellem parenteser

Hvis du har en liste over tekststrenge med en del af tegn indesluttet i parentes, vil du måske nu fjerne alle tegn i parentesen inklusive parenteserne som vist nedenfor. Dette afsnit vil tale om nogle tricks til at løse denne opgave i Excel.

 Fjern tekst mellem parenteser med funktionen Find og erstat

I Excel kan den indbyggede Find og Erstat-funktion hjælpe dig med at finde alle tekster inden for parentes og derefter erstatte dem med ingenting. Gør venligst som dette:

1. Vælg den dataliste, som du vil fjerne teksterne mellem parenteserne.

2. Klik derefter på Home > Find og vælg > udskifte (eller tryk på Ctrl + H tasterne) for at gå til dialogboksen Find og erstat i Søg og erstat i dialogboksen, skal du udføre følgende handlinger:

  • I Find hvad felt, type (*) ind i tekstboksen;
  • I Erstat med felt, lad dette felt stå tomt.

3. Klik derefter på Erstat alle knappen, vil alle tegn inden for parentesen (inklusive parenteserne) i de valgte celler blive slettet på én gang. Se skærmbillede:

Tips: The Søg og erstat funktion fungerer også for to eller flere par parenteser inden for tekststrengene.


 Fjern tekst mellem parenteser med formel

Udover funktionen Find og erstat, kan du også bruge en formel til at løse denne opgave i Excel, den generiske syntaks er:

=SUBSTITUTE(text,MID(LEFT(text,FIND(")",text)),FIND("(",text),LEN(text)),"")
  • tekst: Tekststrengen eller cellereferencen, som du vil fjerne tegn fra.

Nu skal du kopiere eller indtaste følgende formel i en tom celle, hvor du vil have resultatet:

=SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),"")

Træk derefter udfyldningshåndtaget ned til de celler, hvor du vil anvende denne formel, og alle tekster inden for parentesen inklusive parentesen vil blive fjernet på én gang, se skærmbillede:

Tips: Hvis der ikke er nogen parentes i celleværdien, vil der blive vist en fejl efter anvendelse af ovenstående formel. For at ignorere fejlen, brug venligst nedenstående formel:

=IFERROR(SUBSTITUTE(A2,MID(LEFT(A2,FIND(")",A2)),FIND("(",A2),LEN(A2)),""),A2)


 Fjern tekst mellem parenteser med brugerdefineret funktion

Ovenstående formel fungerer godt til at fjerne tekst fra et par parenteser, hvis du har brug for at fjerne tekster fra flere par parenteser inden for tekststrengene, vil formlen ikke fungere korrekt. Her vil jeg oprette en simpel brugerdefineret funktion til at løse denne opgave.

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Fjern tekst mellem parenteser

Function remtxt(ByVal str As String) As String
'Updateby Extendoffice
  While InStr(str, "(") > 0 And InStr(str, ")") > InStr(str, "(")
    str = Left(str, InStr(str, "(") - 1) & Mid(str, InStr(str, ")") + 1)
  Wend
  remtxt = Trim(str)
End Function

3. Gå derefter tilbage til regnearket, og indtast denne formel i en tom celle: = remtxt (A2), og træk derefter udfyldningshåndtaget ned til de celler, hvor du vil anvende denne formel, vil alle tekster inden for alle parenteser, inklusive parenteserne, blive fjernet som vist nedenfor:


Fjern ord fra tekststrenge

I visse tilfælde vil du måske fjerne nogle ord fra en liste over celler, såsom første eller sidste ord, dublerede ord fra en celle. For at løse disse former for fjernelse vil dette afsnit introducere nogle metoder for dig.

4.1 Fjern første eller sidste ord fra tekststrengen

For at fjerne det første eller sidste ord fra en liste over tekststrenge kan følgende formler måske gøre dig en tjeneste.

 Fjern det første ord fra tekststrengen med formel

Fjern de første ord fra en liste over tekststrenge, du kan oprette en simpel formel baseret på HØJRE, LÆNGE og FIND funktionerne, den generiske syntaks er:

=RIGHT(text,LEN(text)-FIND(" ",text))
  • tekst: Tekststrengen eller cellereferencen, som du vil fjerne det første ord fra.

Indtast eller kopier nu følgende formel til en tom celle:

=RIGHT(A2,LEN(A2)-FIND(" ",A2))

Og træk derefter udfyldningshåndtaget ned for at anvende formlen på andre celler, se skærmbillede:

Tips: Hvis du skal fjerne de første N ord fra cellerne, skal du bruge nedenstående formel:

=MID(TRIM(text),1+FIND("~",SUBSTITUTE(TRIM(text)," ","~",N)),255)
  • tekst: Tekststrengen eller cellereferencen, som du vil fjerne de første n ord fra;
  • N: Angiver, hvor mange ord du vil fjerne fra begyndelsen af ​​tekststrengen.

For at fjerne de første to ord fra celler, skal du for eksempel kopiere eller indtaste nedenstående formel i en tom celle for at få resultatet, som du har brug for, se skærmbillede:

=MID(TRIM(A2),1+FIND("~",SUBSTITUTE(TRIM(A2)," ","~",2)),255)


  Fjern sidste ord fra tekststrengen med formel

For at fjerne det sidste ord fra tekststrenge kan du også bruge en formel til at løse denne opgave, den generiske syntaks er:

=LEFT(TRIM(text),FIND("~",SUBSTITUTE(text," ","~",LEN(TRIM(text))-LEN(SUBSTITUTE(TRIM(text)," ",""))))-1)
  • tekst: Tekststrengen eller cellereferencen, som du vil fjerne det sidste ord fra;

Brug venligst nedenstående formel i en tom celle, og træk derefter udfyldningshåndtaget ned for at anvende formlen på andre celler, se skærmbillede:

=LEFT(TRIM(A2),FIND("~",SUBSTITUTE(A2," ","~",LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))))-1)

Tips: For at fjerne de sidste N ord fra en liste over celler er den generiske syntaks:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",LEN(text)-LEN(SUBSTITUTE(text," ",""))-(N-1))))
  • tekst: Tekststrengen eller cellereferencen, som du vil fjerne de sidste n ord fra;
  • N: Angiver antallet af ord, du vil fjerne fra slutningen af ​​tekststrengen.

Antag, at for at slette de sidste 3 ord fra en liste over celler, brug venligst nedenstående formel for at returnere resultatet, se skærmbillede:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))-(3-1))))


4.2 Fjern dublerede tegn eller ord i en celle

Når du fjerner duplikerede værdier eller rækker, tilbyder Excel nogle forskellige muligheder, men når det kommer til at fjerne nogle duplikerede tegn eller ord i en given celle, er der muligvis ikke nogen god indbygget funktion til at løse det. I dette tilfælde vil dette afsnit hjælpe med at skabe nogle brugerdefinerede funktioner til at håndtere dette puslespil.

 Fjern dublerede tegn i en celle ved at bruge brugerdefineret funktion

Hvis du har flere forekomster af det samme tegn i en celle, for at fjerne de duplikerede tegn i en celle og kun beholde de første forekomster som vist nedenfor, kan du bruge følgende brugerdefinerede funktion.

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Fjern dublerede tegn i en celle

Function RemoveDupeschars(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupeschars = xOutValue
End Function

3. Luk derefter kodevinduet, gå tilbage til regnearket, og indtast denne formel =FjernDupeschars(A2) ind i en tom celle ved siden af ​​dine data, og træk derefter udfyldningshåndtaget over til de celler, som du vil anvende denne formel, se skærmbillede:

BemærkA2 er den datacelle, hvor du vil fjerne duplikerede tegn fra.

Tip: Funktionen skelner mellem store og små bogstaver, så små og store bogstaver behandles som forskellige tegn.


 Fjern dublerede ord i en celle ved at bruge brugerdefineret funktion

Forudsat at du har de samme ord eller tekststrenge i en celle og gerne vil fjerne alle de samme ord fra cellen som vist nedenfor. Du kan bruge følgende brugerdefinerede funktion til at løse denne opgave i Excel.

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Fjern dublerede ord i en celle

Function RemoveDupeswords(txt As String, Optional delim As String = " ") As String
'Updateby Extendoffice
    Dim x
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupeswords = Join(.keys, delim)
    End With
End Function

3. Luk derefter kodevinduet, vend tilbage til regnearket og indtast denne formel =FjernDupeswords(A2,", ") ind i en tom celle ved siden af ​​dine data, og træk derefter udfyldningshåndtaget over til de celler, som du vil anvende denne formel, se skærmbillede:

Bemærk: A2 er den celle, du vil slette de duplikerede ord fra, og kommaet og mellemrummet (, ) er afgrænsningerne for at adskille tekststrengene, du kan ændre dem til andre afgrænsninger efter dine behov.

Tip: Denne funktion skelner ikke mellem store og små bogstaver, små og store bogstaver behandles som de samme tegn.


4.3 Trim tekststrengen til N ord

Hvis du har en lang tekststreng i en celle, vil du nogle gange måske trimme tekststrengen til et bestemt antal ord, hvilket betyder kun at beholde de første n ord og klippe resten af ​​ordene. Dette afsnit vil tale om nogle tricks til at hjælpe dig med at opnå dette job i Excel.

 Trim tekststrengen til N ord med formel

For at trimme en tekststreng til N ord, kan du oprette en formel baseret på funktionerne VENSTRE, FIND og ERSTAT, den generiske syntaks er:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",N))-1)
  • tekst: Tekststrengen eller cellereferencen, som du vil trimme;
  • N: Antallet af ord, du vil beholde fra venstre side af den givne tekststreng.

For at håndtere dette job skal du kopiere eller indtaste nedenstående formel i en tom celle:

=LEFT(A2,FIND("~",SUBSTITUTE(A2," ","~",B2))-1)

Og træk derefter udfyldningshåndtaget ned for at anvende denne formel på andre celler, se skærmbillede:


 Trim tekststrengen til N ord med brugerdefineret funktion

Bortset fra ovenstående formel, kan du også oprette en brugerdefineret funktion til at løse denne opgave. Gør venligst som dette:

1. Hold nede Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Trim tekststrengen til N ord

Function GetNWords(StrWords As String, Num_of_Words As Integer) As String
'Updateby Extendoffice
Dim xArr
Dim xRes As String
Dim xF As Integer
xStr = StrWords
If (Num_of_Words < 1) Then
    GetNWords = ""
    Exit Function
End If
xArr = Split(xStr, " ")
xRes = ""
On Error Resume Next
For xF = 0 To UBound(xArr)
    If Trim(xArr(xF)) <> "" Then
    Num_of_Words = Num_of_Words - 1
        If xRes = "" Then
            xRes = Trim(xArr(xF))
        Else
            xRes = xRes & " " & Trim(xArr(xF))
        End If
    End If
    If Num_of_Words = 0 Then Exit For
Next
If Num_of_Words = 0 Then
    GetNWords = xRes & "..."
Else
    GetNWords = xRes & "..."
End If
End Function

3. Luk og luk derefter kodevinduet, gå tilbage til regnearket og indtast denne formel: =GetNWords(A2,B2) ind i en tom celle, og træk derefter udfyldningshåndtaget ned for at anvende denne formel på andre celler, kun det første specifikke antal ord bevares som vist nedenfor:


  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner og opbevaring af data; Split celler indhold; Kombiner duplikatrækker og sum / gennemsnit... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Foretrukne og hurtigt indsætte formler, Områder, diagrammer og billeder; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Pivottabelgruppering efter ugenummer, ugedag og mere ... Vis ulåste, låste celler ved forskellige farver; Fremhæv celler, der har formel / navn...
kte-fane 201905
  • 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!
officetab bund
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations