Hoppa till huvudinnehåll

Excel tar bort tecken, ord, siffror från textsträngar

Om du antar att du har en lång lista med textsträngar som innehåller tecken, siffror eller andra specifika symboler. I vissa fall kan du behöva ta bort vissa tecken baserat på position, till exempel från höger, vänster eller mitten från textsträngarna, eller ta bort några oönskade tecken, siffror från listan med strängar. Att hitta lösningarna en efter en kommer att få huvudvärk, den här handledningen samlar alla typer av metoder för att ta bort tecken, ord eller siffror i Excel.

Innehållsförteckning:

1. Ta bort tecken från vänster, höger eller mitten av textsträngarna

2. Ta bort oönskade / specialtecken från textsträngar

3. Ta bort tecken/text före eller efter specifik karaktär

4. Ta bort ord från textsträngar


Ta bort tecken från vänster, höger eller mitten av textsträngarna

Det kan vara ett vanligt jobb för de flesta av oss att ta bort vissa tecken från vänster, höger eller mitten av textsträngarna i Excel-kalkylblad. Det här avsnittet kommer att introducera några snabba och enkla knep för att lösa denna uppgift.

1.1 Ta bort första n tecken från textsträngar

Om du behöver ta bort de första n tecknen från en lista med textsträngar kan följande metoder göra dig en tjänst.

 Genom att använda formler

Normalt, för att ta bort tecknen från början av textsträngarna, kan du använda antingen REPLACE-funktionen eller en kombination av RIGHT- och LEN-funktionerna.

REPLACE-funktion för att ta bort första N tecken:

=REPLACE(string, 1, num_chars, "")
  • sträng: Textsträngen som du vill ta bort tecken från;
  • num_chars: Antalet tecken du vill ta bort.

Till exempel, för att ta bort de första två tecknen från cellerna, använd formeln nedan och dra sedan i fyllningshandtaget för att kopiera formeln till andra celler, se skärmdump:

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

RIGHT och LEN funktioner för att ta bort första N tecken:

=RIGHT(string, LEN(string) - num_chars)
  • sträng: Textsträngen som du vill ta bort tecken från;
  • num_chars: Antalet tecken du vill ta bort.

För att ta bort de två första tecknen från celler, använd följande formel:

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


 Genom att använda användardefinierad funktion

För att ta bort de första n tecknen från celler kan du också skapa en användardefinierad funktion för att lösa denna uppgift. Vänligen gör med följande steg:

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA-kod: Ta bort första n tecken från textsträngar

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

3. Gå sedan tillbaka till kalkylbladet och ange sedan denna formel: = removefirstx (A4,2) in i en tom cell och dra sedan ned fyllningshandtaget för att få resultatet efter behov, se skärmdump:

Anmärkningar: I denna formel: A4 är cellen som du vill ta bort tecken från; Numret 2 anger antalet tecken som du vill ta bort från början av textsträngen.


1.2 Ta bort de sista n tecknen från textsträngar

För att ta bort ett specifikt antal tecken från höger sida av textsträngar kan du också använda en formel eller en användardefinierad funktion.

 Genom att använda formeln

För att ta bort de sista n tecknen från textsträngarna kan du använda en formel baserad på LEFT- och LEN-funktionerna.

LEFT och LEN funktioner för att ta bort de sista N tecknen:

=LEFT(string, LEN(string) - num_chars)
  • sträng: Textsträngen som du vill ta bort tecken från;
  • num_chars: Antalet tecken du vill ta bort.

För att ta bort 3 tecken från slutet av textsträngarna, använd den här formeln och dra sedan i fyllningshandtaget för att kopiera formeln till andra celler, se skärmdump:

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


 Genom att använda användardefinierad funktion

Här kan en användardefinierad funktion också hjälpa dig att ta bort de sista n tecknen från en lista med celler, gör så här:

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA-kod: Ta bort de sista n tecknen från textsträngar

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

3. Gå sedan tillbaka till kalkylbladet och skriv in denna formel: = removeelastx (A4,3) in i en tom cell och dra sedan ned fyllningshandtaget för att få resultatet efter behov, se skärmdump:

Anmärkningar: I denna formel: A4 är cellen som du vill ta bort tecken från; Numret 3 anger antalet tecken som du vill ta bort från slutet av textsträngen.


1.3 Ta bort första, sista n tecken eller vissa positionstecken genom att använda en kraftfull funktion

Det kan vara smärtsamt för dig att komma ihåg olika formler, att ta bort tecken från vänster, höger eller en specifik position av textsträngarna, Kutools för Excel stöder en kraftfull funktion - Ta bort efter position. Med detta lilla verktyg kan du hantera dessa uppgifter med några få klick utan att komma ihåg några formler.

När du har installerat Kutools för Excel, gör så här:

1. Markera de celler du vill ta bort tecken och klicka sedan Kutools > text > Ta bort efter position, se skärmdump:

2. I Ta bort efter position dialogrutan, gör följande:

2.1 Ta bort första n tecken från celler:

  • In Nummer textrutan anger du antalet tecken du vill ta bort från strängar. I det här exemplet kommer jag att ta bort de två första tecknen.
  • Välja Från vänster alternativet i Placera sektion.
  • Klicka sedan Ok or Ansök knappen för att få resultatet enligt skärmbilden nedan.

2.2 Ta bort de sista n tecknen från celler:

  • In Nummer textrutan anger du antalet tecken du vill ta bort från strängar. I det här exemplet kommer jag att ta bort de tre sista tecknen.
  • Välja Från höger alternativet i Placera sektion.
  • Klicka sedan Ok or Ansök knappen för att få resultatet enligt skärmbilden nedan.

2.3 Ta bort n tecken från specifik position av celler:

Om du behöver ta bort ett specifikt antal tecken från en viss position i textsträngarna, till exempel, tar bort 3 tecken börja från det tredje tecknet i strängarna.

  • In Nummer textrutan anger du antalet tecken du vill ta bort från strängar. I det här exemplet kommer jag att ta bort 3 tecken från en viss position.
  • Välja Ange och skriv numret som du vill ta bort tecken från i textrutan i Placera sektion. Här kommer jag att ta bort karaktärer från det tredje tecknet.
  • Klicka sedan Ok or Ansök knappen för att få resultatet enligt skärmbilden nedan.

Ladda ner och prova gratis Kutools för Excel nu!


1.4 Ta bort både första n och sista n tecknen från textsträngar med formel

När du behöver ta bort några tecken på båda sidor av textsträngar i Excel kan du kombinera MID- och LEN-funktionerna för att skapa en formel för att hantera denna uppgift.

=MID(string, left_chars + 1, LEN(string) - (left_chars + right_chars)
  • sträng: Textsträngen som du vill ta bort tecken från;
  • left_chars: Antal tecken att ta bort från vänster;
  • right_chars: Antalet tecken som ska tas bort från höger.

Du måste till exempel ta bort de första 7 tecknen och de sista 5 tecknen från textsträngar samtidigt, skriv in följande formel i en tom cell:

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

Anmärkningar: I denna formel: A4 är cellen som du vill ta bort tecken från; Numret 7 är antalet tecken du vill ta bort från vänster sida; Numret 5 är antalet tecken du vill ta bort från höger sida.

Och dra sedan fyllningshandtaget ner till där du vill använda den här formeln, och du kommer att få resultatet enligt nedanstående skärmdump:


Ta bort oönskade/specialtecken från textsträngar

När du importerar data från någon annanstans till Excel kan många speciella eller oönskade tecken klistras in i ditt kalkylblad. För att ta bort dessa oönskade tecken som #@$%^&, mellanslag, siffror, icke-numeriska siffror, radbrytningar, etc., kommer detta avsnitt att ge några användbara metoder för att hjälpa dig.

2.1 Ta bort några specialtecken från textsträngar

Om det finns några specialtecken som %^&*() i textsträngarna, för att ta bort den här typen av tecken, kan du använda följande tre knep.

 Ta bort flera specialtecken från textsträngar med SUBSTITUTE-funktionen

Normalt, i Excel, kan du kapsla flera SUBSTITUTE-funktioner för att ersätta varje specifik karaktär med ingenting, den generiska syntaxen är:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(string_cell, char1, ""), char2, ""), char3, "")
  • sträng_cell: Cellen innehåller textsträngen som du vill ta bort specialtecken från;
  • röding1, röding2, röding3: De oönskade tecken du vill ta bort.

Kopiera nu eller skriv in formeln nedan i en tom cell:

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

Och dra sedan fyllningshandtaget ner till cellerna där du vill använda den här formeln, och alla oönskade tecken du angav kommer att tas bort på en gång, se skärmdump:

tips: Om det finns fler tecken du vill ta bort behöver du bara kapsla in fler SUBSTITUTE-funktioner i formeln.


 Ta bort flera specialtecken från textsträngar med användardefinierad funktion

Ovanstående kapslade SUBSTITUTE-funktioner fungerar bra om det finns få specialtecken som ska tas bort, men om du har dussintals tecken som ska tas bort blir formeln för lång och svår att hantera. I det här fallet kan följande användardefinierade funktion hjälpa dig att slutföra denna uppgift snabbt och enkelt.

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra in följande kod i modulfönstret.

VBA-kod: Ta bort flera specialtecken från textsträngar

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. Stäng sedan kodfönstret och gå tillbaka till kalkylbladet, ange denna formel =Ta bort oönskade tecken(A2, $D$2) in i en tom cell där resultatet ska matas ut, och dra sedan fyllningshandtaget nedåt för att få resultatet som du behöver, se skärmdump:

Anmärkningar: I ovanstående formel: A2 är cellen som du vill ta bort tecken från; $ D $ 2 innehåller de specialtecken du vill ta bort (du kan skriva vilka andra specialtecken du behöver).


 Ta bort flera specialtecken från textsträngar med en fantastisk funktion

Om du har installerat Kutools för Excel, med dess Ta bort tecken funktionen kan du ta bort alla typer av tecken, såsom numeriska tecken, alfatecken, tecken som inte kan skrivas ut ... från en lista med celler som du behöver.

När du har installerat Kutools för Excel, gör så här:

1. Välj intervallet av celler som du vill ta bort specialtecken från och klicka sedan Kutools > text > Ta bort tecken, se skärmdump:

2. I Ta bort tecken dialog ruta:

  • Kolla upp Custom alternativet under Ta bort tecken sektion.
  • Och skriv sedan in specialtecknen i textrutan som du vill ta bort.
  • Klicka sedan Ok or Ansök för att ta bort tecknen du angav på en gång. Se skärmdump:

Ladda ner och prova gratis Kutools för Excel nu!


2.2 Ta bort alla siffror från textsträngar

Om du har en lista med textsträngar som blandas med siffror, bokstäver och specialtecken, och nu vill du bara ta bort alla siffror och behålla andra tecken. Det här avsnittet ger dig några praktiska sätt att hjälpa dig.

 Ta bort siffror från textsträngar med SUBSTITUTE-funktionen

I Excel kan den kapslade SUBSTITUTE-funktionen hjälpa till att ersätta alla nummer med ingenting, så du kan använda formeln nedan för att ta bort alla nummer från celler:

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

Dra sedan fyllningshandtaget ner till cellerna där du vill använda denna formel, och alla siffror kommer att raderas från listan med textsträngar, se skärmdump:


 Ta bort nummer från textsträngar med TEXTJOIN-funktionen

Om du har Excel 2019, 2021 eller 365 kan den nya TEXTJOIN-funktionen också hjälpa till att ta bort siffror från textsträngar.

Kopiera följande formel till en tom cell och tryck sedan på Ctrl + Shift + Enter-tangenterna samtidigt för att få det första resultatet:

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

Och kopiera sedan formeln till andra celler nedan där du vill använda den här formeln, se skärmdump:

Anmärkningar: Denna TEXTJOIN är endast tillgänglig i Excel 2019, 2021 och Office 365.


 Ta bort siffror från textsträngar med användardefinierad funktion

Förutom ovanstående två formler kan en användardefinierad funktion också göra dig en tjänst, vänligen gör med följande steg:

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra in följande kod i modulfönstret.

VBA-kod: Ta bort siffror från textsträngar

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. Stäng sedan och avsluta kodfönstret, gå tillbaka till kalkylbladet och ange denna formel: = Ta bort nummer (A2) in i en tom cell, dra sedan fyllningshandtaget ner till cellerna där du vill använda den här formeln, se skärmdump:


 Ta bort siffror från textsträngar med ett praktiskt alternativ

Om du är trött på de komplicerade formlerna, låt mig nu visa dig ett enkelt verktyg – Kutools för ExcelÄr Ta bort tecken. Med denna praktiska funktion kan du utföra denna uppgift med bara några få klick.

När du har installerat Kutools för Excel, gör så här:

1. Välj cellintervallet där du vill ta bort siffror och klicka sedan Kutools > text > Ta bort tecken.

2. I Ta bort tecken dialogrutan, gör följande:

  • Kolla upp Numerisk alternativet under Ta bort tecken sektion.
  • Klicka sedan Ok or Ansök för att ta bort siffrorna omedelbart. Se skärmdump:

Ladda ner och prova gratis Kutools för Excel nu!


2.3 Ta bort icke-numeriska tecken från textsträngar

För att ta bort alla icke-numeriska tecken och bara behålla siffrorna från textsträngar, kommer detta avsnitt att tala om några sätt att lösa denna uppgift i Excel.

 Ta bort icke-numeriska tecken från textsträngar med formel i Excel 2016 och tidigare versioner

Om du använder Excel 2016 eller tidigare versioner bör du använda en komplex formel för att uppnå detta jobb, kopiera eller skriv in nedanstående formel i en tom cell:

=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)

Och kopiera sedan formeln till andra celler nedan där du vill använda den här formeln, se skärmdump:

Anmärkningar: Om siffrorna i en textsträng börjar med 0, kommer 0:an att gå förlorad.


 Ta bort icke-numeriska tecken från textsträngar med TEXTJOIN-funktionen i Excel 2019, 2021, 365

Ovanstående formel kan vara för svår att förstå för de flesta av oss. Om du har Excel 2019, 2021 eller 365 finns det en snygg formel som kan hjälpa dig.

Kopiera eller skriv in följande formel i en tom cell och tryck Ctrl + Skift + Enter tangenterna tillsammans för att få det första korrekta resultatet:

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

Dra sedan fyllningshandtaget ner till cellerna där du kommer att tillämpa den här formeln, och du kommer att få resultatet enligt nedanstående skärmdump:

Anmärkningar: Med denna formel kan du se att de inledande nollorna kommer att behållas eftersom siffrorna returneras som text.


 Ta bort icke-numeriska tecken från textsträngar med användardefinierad funktion

Naturligtvis kan du också skapa din egen användardefinierade funktion med en enklare syntax, vänligen gör så här:

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra in följande kod i modulfönstret.

VBA-kod: Ta bort icke-numeriska tecken från textsträngar

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. Stäng sedan och avsluta kodfönstret, gå tillbaka till kalkylbladet och ange denna formel: =Ta bort från numerisk(A2) in i en tom cell, dra sedan fyllningshandtaget ner till cellerna där du vill använda den här formeln, endast siffror kommer att extraheras enligt skärmbilden nedan:


 Ta bort icke-numeriska tecken från textsträngar med en enkel funktion

För att ta bort icke-numeriska tecken i ett cellintervall direkt, Kutools för ExcelÄr Ta bort tecken verktyget kan få det gjort med bara några få klick.

När du har installerat Kutools för Excel, gör så här:

1. Välj intervallet av celler som du vill ta bort icke-numeriska tecken från och klicka sedan Kutools > text > Ta bort tecken.

2. I Ta bort tecken dialogrutan, ställ in följande åtgärder:

  • Kolla upp Icke-numerisk alternativet under Ta bort tecken sektion.
  • Klicka sedan Ok or Ansök för att ta bort alla icke-numeriska tecken omedelbart. Se skärmdump:

Ladda ner och prova gratis Kutools för Excel nu!


2.4 Separera text och siffror från en cell i två kolumner

Ibland kanske du vill extrahera texten och siffrorna från textsträngar i två separerade kolumner, med hjälp av följande metoder kan du slutföra denna uppgift snabbt och enkelt.

 Separera text och siffror från en cell i två kolumner med användardefinierad funktion

Genom att använda följande användardefinierade funktion kan du extrahera texten och siffrorna på en gång, vänligen gör med stegen nedan:

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra in följande kod i modulfönstret.

VBA-kod: Separera text och siffror från textsträngar i två kolumner

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. Stäng sedan och avsluta kodfönstret, gå tillbaka till kalkylbladet och ange denna formel: = SplitText (A2, FALSE) in i en tom cell och dra sedan fyllningshandtaget ner till de celler som du vill ska fylla den här formeln för att få all text, se skärmdump:

4. Och fortsätt sedan att skriva den här formeln: = SplitText (A2, TRUE) in i en annan cell och dra påfyllningshandtaget ner till cellerna som du vill fylla i denna formel för att få siffrorna, se skärmdump:


 Separera text och siffror från en cell i två kolumner med en enkel funktion

Om du har Kutools för Excel, dess Dela celler verktyget kan hjälpa dig att dela upp celler i flera kolumner eller rader baserat på eventuella avgränsare, specificerad bredd eller text och nummer.

När du har installerat Kutools för Excel, gör så här:

1. Välj intervallet av celler du vill dela och klicka sedan Kutools > Slå ihop och dela > Dela celler, se skärmdump:

2. I Dela celler dialogrutan väljer du Dela upp till kolumner alternativet under Typ avsnittet och kontrollera sedan Text och nummer från Dela med avsnitt, se skärmdump:

3. Klicka sedan Ok knapp och en till Dela celler dialogrutan kommer att öppnas, välj en cell för att mata ut den separerade texten och siffrorna och klicka sedan på OK knapp. Nu kan du se att texten och siffrorna i markerade celler är uppdelade i två kolumner på en gång som nedan visas:

Ladda ner och prova gratis Kutools för Excel nu!


2.5 Ta bort radbrytningstecken från textsträngar

En radbrytning är något som låter dig ha flera rader i samma cell i Excel. Ibland, när du kopierar data från webbplatsen eller separerar ditt cellinnehåll med Alt + Enter nycklar manuellt kommer du att få radbrytningar eller vagnreturer. I vissa fall kanske du vill ta bort radbrytningarna för att göra cellinnehållet till en rad enligt skärmbilden nedan. Här kommer jag att presentera några sätt att lösa denna uppgift i Excel.

 Ta bort radbrytningstecken från textsträngar med funktionen Sök och ersätt

I Excel kan du använda Sök och ersätt funktionen för att ta bort radbrytningar, gör så här:

1. Välj det dataintervall från vilket du vill ta bort radbrytningarna.

2. Klicka sedan Hem > Hitta och välj > ersätta (eller tryck på Ctrl + H nycklar) för att gå till Sök och ersätt dialogruta, se skärmdump:

3. I poppade ut Sök och ersätt dialogrutan, gör följande:

  • Placera markören i Hitta det fältet och tryck Ctrl + J på tangentbordet kanske du inte ser någonting, men tecknet för radbrytning har infogats.
  • I Ersätt med lämna det här fältet tomt för att bara ta bort radbrytningarna eller tryck på Space bar en gång för att ersätta radbrytningarna med blanksteg.

4. Klicka sedan Ersätt alla knappen kommer alla radbrytningar i de markerade cellerna att raderas eller ersättas med tomma fält på en gång. Se skärmdump:


 Ta bort radbrytningstecken från textsträngar med SUBSTITUTE-funktionen

Du kan också skapa en formel baserad på SUBSTITUTE- och CHAR-funktionerna för att ta bort radbrytningarna från textsträngarna.

Använd formeln nedan för att få resultatet:

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

tips: SUBSTITUTE-funktionen hittar och ersätter tecknet CHAR(10) som representerar radbrytningstecknet med ingenting. Om du vill att resultatet ska separeras med kommatecken och mellanslag kan du använda formeln nedan:

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


 Ta bort radbrytningstecken från textsträngar med VBA-kod

Om du är bekväm med att använda VBA-kod, finns här också en kod för dig, vänligen gör med följande steg:

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra in följande kod i modulfönstret.

VBA-kod: Ta bort radbrytningar från textsträngar

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. Tryck sedan på F5 för att köra den här koden, och en promptruta visas, välj det intervall som du vill ta bort radbrytningarna, se skärmdump:

4. Och klicka sedan på OK knappen kommer alla radbrytningar att raderas från det valda dataintervallet.


 Ta bort radbrytningstecken från textsträngar med ett smart alternativ

Här, Kutools för ExcelÄr Ta bort tecken funktionen kan också hjälpa dig att ta bort radbrytningar med lätthet.

När du har installerat Kutools för Excel, gör så här:

1. Markera cellintervallet där du vill ta bort radbrytningar och klicka sedan Kutools > text > Ta bort tecken.

2. I Ta bort tecken dialogrutan, ställ in följande åtgärder:

  • Kolla upp Icke-utskrift alternativet under Ta bort tecken sektion.
  • Klicka sedan Ok or Ansök för att ta bort alla radbrytningar från det valda dataintervallet. Se skärmdump:

Ladda ner och prova gratis Kutools för Excel nu!


2.6 Ta bort mellanslag (ledande, efterföljande, extra eller alla mellanslag) från textsträngar

Att hantera och klistra in text från en extern källa till ett Excel-kalkylblad ger ofta några irriterande överblivna blanksteg, det kommer att vara tråkigt att ta bort inledande, efterföljande eller andra extra mellanslag manuellt. Lyckligtvis ger Excel några enkla knep för att hantera denna uppgift.

 Ta bort extra mellanslag (ledande, efterföljande, överskott) från textsträngar med TRIM-funktionen

I Excel kan den enkla TRIM-funktionen hjälpa dig för att ta bort inledande, avslutande och extra mellanslag från textsträngar. Den här funktionen tar bort alla mellanslag utom enstaka mellanslag mellan ord.

Ange formeln nedan i en tom cell:

=TRIM(A2)

Och dra sedan fyllningshandtaget nedåt för att kopiera formeln för andra celler, nu kan du se alla inledande, efterföljande mellanslag och extra mellanslag bland orden tas bort på en gång från skärmdumpen:


 Ta bort alla mellanslag från textsträngar

Om du vill ta bort alla blanksteg från textsträngar kan följande ERSÄTTNINGSfunktion och Sök & Ersätt-funktion göra dig en tjänst.

Genom att använda SUBSTITUTA-funktionen

Du kan använda SUBSTITUTE-funktionen för att ersätta alla blanksteg med ingenting, använd formeln nedan i en tom cell:

=SUBSTITUTE(A2," ","")

Dra sedan fyllningshandtaget nedåt för att kopiera den här formeln till andra celler du behöver, och alla mellanslag kommer att raderas enligt nedanstående skärmbild:


Genom att använda funktionen Sök och ersätt

I själva verket Hitta och ersätt funktion i Excel kan också hjälpa till att bli av med alla mellanslag från valda celler, vänligen gör med följande steg:

1. Välj det dataintervall från vilket du vill ta bort alla mellanslag.

2. Klicka sedan Hem > Hitta och välj > ersätta (eller tryck på Ctrl + H nycklar) för att gå till Sök och ersätt dialogrutan i den öppnade Sök och ersätt dialogrutan, gör följande åtgärder:

  • Presse Mellanslag i Hitta det fält;
  • I Ersätt med lämna detta fält tomt.

3. Och klicka sedan på Ersätt alla knappen, kommer alla blanksteg i de markerade cellerna att raderas på en gång. Se skärmdump:


 Ta bort alla typer av mellanslag från textsträngar med en kraftfull funktion

Kutools för Excel har en kraftfull funktion – Ta bort utrymmen, med det här verktyget kan du inte bara ta bort inledande mellanslag, avslutande mellanslag, överflödiga mellanslag utan också alla mellanslag från valda områden i en dialogruta, vilket kommer att förbättra din arbetsproduktivitet.

När du har installerat Kutools för Excel, gör så här:

1. Välj dataintervallet som du vill ta bort mellanslag från och klicka sedan Kutools > text > Ta bort utrymmen. Se skärmdump:

2. I Ta bort utrymmen dialogrutan väljer du en blankstegstyp som du vill ta bort från Plats typ:

  • Ta bort de inledande mellanslagen, välj Ledande utrymmen alternativ;
  • Ta bort de efterföljande utrymmena, välj Efterföljande utrymmen alternativ;
  • Ta bort de inledande utrymmena och de efterföljande utrymmena på en gång, välj Ledande och efterföljande utrymmen alternativ;
  • Ta bort alla extra mellanslag, välj Alla överflödiga utrymmen alternativ;
  • Ta bort alla mellanslag, välj Alla utrymmen alternativ.

3. Klicka sedan Ok or Ansök knappen får du det resultat du behöver.

Ladda ner och prova gratis Kutools för Excel nu!


Ta bort tecken/text före eller efter ett specifikt tecken

I det här avsnittet kommer jag att introducera några operationer för att ta bort texten eller tecknen före eller efter den första, sista eller n:e förekomsten av ett specifikt tecken.

3.1 Ta bort text före eller efter det första specifika tecknet

Om du vill ta bort texten före eller efter det första specifika tecknet, såsom mellanslag, kommatecken från en lista med textsträngar som visas nedan, kommer jag att lägga upp två metoder för dig.

 Ta bort text före det första specifika tecknet med en formel

För att ta bort text eller tecken före det första specifika tecknet kan du skapa en formel baserad på funktionerna HÖGER, LEN och SÖK, den allmänna syntaxen är:

=RIGHT(cell, LEN(cell)-FIND("char", cell))
  • cellen: Cellreferensen eller textsträngen som du vill ta bort text från;
  • röding: Den specifika separator som du vill ta bort text baserat på.

Till exempel, för att ta bort allt före det första kommatecken från liststrängarna, bör du tillämpa följande formel i en tom cell och sedan dra den ner till de celler du behöver, se skärmdump:

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

Anmärkningar:I formeln ovan: A2 är cellen som du vill ta bort text från; , är det specifika tecken du vill ta bort text baserat på, kan du ändra det till andra tecken som du behöver.


 Ta bort text efter det första specifika tecknet med en formel

För att ta bort allt efter det första specifika tecknet kan du använda funktionerna VÄNSTER och SÖK för att få resultatet, den generiska syntaxen är:

=LEFT(cell,FIND("char",cell)-1)
  • cellen: Cellreferensen eller textsträngen som du vill ta bort text från;
  • röding: Den specifika separator som du vill ta bort text baserat på.

Ange nu formeln nedan i en tom cell och dra sedan fyllningshandtaget ner till andra celler där du vill använda denna formel, och alla tecken efter det första kommatecken kommer att tas bort på en gång, se skärmdump:

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


3.2 Ta bort text före eller efter N:te förekomsten av ett tecken

Ibland innehåller textsträngarna flera instanser av en specifik avgränsare, du kanske vill ta bort alla tecken före eller efter en specifik instans, till exempel den andra, tredje eller fjärde efter behov. För att hantera den här typen av borttagning kan du använda följande knep:

 Ta bort text före N:te förekomsten av ett tecken med en formel

För att ta bort texten före den N:te förekomsten av ett specifikt tecken kan följande formel hjälpa dig, den generiska syntaxen är:

=RIGHT(cell,LEN(cell)-FIND("#",SUBSTITUTE(cell,"char","#",N)))
  • cellen: Cellreferensen eller textsträngen som du vill ta bort text från;
  • röding: Den specifika avgränsare som du vill ta bort text baserat på;
  • N: Karaktärens förekomst innan text ska tas bort.

Till exempel, för att ta bort allt före det andra kommatecken från textsträngarna, bör du använda följande formel:

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

Anmärkningar:I formeln ovan: A2 är cellen som du vill ta bort text från; , är det specifika tecken du vill ta bort text baserat på, du kan ändra det till andra tecken som du behöver; 2 indikerar det n:e kommatecken före vilket du vill ta bort text.

Och dra sedan i fyllningshandtaget för att kopiera formeln till andra celler, se skärmdump:


 Ta bort text efter N:te förekomsten av ett tecken med en formel

För att ta bort texten efter den N:te förekomsten av en specifik avgränsare kan funktionerna VÄNSTER, ERSÄTTNING och SÖK göra dig en tjänst. Den generiska syntaxen är:

=LEFT(cell, FIND("#", SUBSTITUTE(cell, "char", "#", N)) -1)
  • cellen: Cellreferensen eller textsträngen som du vill ta bort text från;
  • röding: Den specifika avgränsare som du vill ta bort text baserat på;
  • N: Karaktärens förekomst efter vilken text ska tas bort.

När du förstår den grundläggande syntaxen, kopiera eller skriv in formeln nedan i en tom cell:

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

Anmärkningar:I formeln ovan: A2 är cellen som du vill ta bort text från; , är det specifika tecken du vill ta bort text baserat på, du kan ändra det till andra tecken som du behöver; 2 anger det n:e kommatecken efter vilket du vill ta bort text.

Dra sedan i fyllningshandtaget för att kopiera formeln till andra celler, och alla tecken efter det andra kommatecken raderas på en gång, se skärmdump:


 Ta bort text före eller efter N:te förekomsten av ett tecken med användardefinierad funktion

Som du kan se kan du lösa fallen för att ta bort text före eller efter N:te förekomsten av ett tecken genom att använda Excels inbyggda funktioner i olika kombinationer. Problemet är att du måste komma ihåg dessa knepiga formler. I det här fallet kommer jag att skapa en användardefinierad funktion för att täcka alla scenarier, vänligen gör så här:

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra in följande kod i modulfönstret.

VBA-kod: Ta bort text före eller efter N:te förekomsten av ett tecken

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. Stäng sedan och avsluta kodfönstret, gå tillbaka till kalkylbladet, använd följande formler:

Ta bort text före den andra förekomsten av ett kommatecken:

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

Ta bort text efter den andra förekomsten av ett kommatecken

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


3.3 Ta bort text före eller efter den sista förekomsten av ett tecken

Om du behöver ta bort all text före eller efter det sista specifika tecknet och bara lämna delsträngarna efter eller före det sista specifika tecknet som visas nedan, kommer detta avsnitt att tala om några formler för att lösa detta problem.

 Ta bort text före den sista förekomsten av ett tecken med en formel

För att ta bort alla tecken före den sista förekomsten av ett tecken, är den allmänna syntaxen:

=RIGHT(cell,LEN(cell)-SEARCH("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char","")))))
  • cellen: Cellreferensen eller textsträngen som du vill ta bort text från;
  • röding: Den specifika avgränsare som du vill ta bort text baserat på;

Nu, om du behöver ta bort texten innan den senaste förekomsten av ett kommatecken, kopiera eller skriv in formeln nedan i en tom cell:

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

Anmärkningar:I formeln ovan: A2 är cellen som du vill ta bort text från; , är det specifika tecken du vill ta bort text baserat på, kan du ändra det till andra tecken som du behöver.

Dra sedan i fyllningshandtaget för att kopiera formeln till andra celler, och alla tecknen före det sista kommatecken kommer att raderas enligt skärmbilden nedan:


 Ta bort text efter den senaste förekomsten av ett tecken med formler

Om cellvärdena är separerade med ett variabelt antal avgränsare, nu vill du ta bort allt efter den sista instansen av det avgränsningstecken, den generiska syntaxen är:

=LEFT(cell,FIND("#",SUBSTITUTE(cell,"char","#",LEN(cell)-LEN(SUBSTITUTE(cell,"char",""))))-1)
  • cellen: Cellreferensen eller textsträngen som du vill ta bort text från;
  • röding: Den specifika avgränsare som du vill ta bort text baserat på;

Kopiera eller skriv in formeln nedan i en tom cell och dra sedan fyllningshandtaget nedåt för att få andra resultat du behöver, se skärmdump:

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

Anmärkningar:I formeln ovan: A2 är cellen som du vill ta bort text från; , är det specifika tecken du vill ta bort text baserat på, kan du ändra det till andra tecken som du behöver.


3.4 Ta bort text mellan parenteser

Om du har en lista med textsträngar med en del av tecknen inom parentes, kanske du nu vill ta bort alla tecken inom parentesen inklusive parenteserna som visas nedan. Det här avsnittet kommer att prata om några knep för att lösa denna uppgift i Excel.

 Ta bort text mellan parenteser med funktionen Sök och ersätt

I Excel kan den inbyggda Sök och ersätt-funktionen hjälpa dig att hitta alla texter inom parentes och sedan ersätta dem med ingenting. Gör så här:

1. Välj datalistan som du vill ta bort texterna mellan parenteserna.

2. Klicka sedan Hem > Hitta och välj > ersätta (eller tryck på Ctrl + H tangenter) för att gå till dialogrutan Sök och ersätt, i Sök och ersätt dialogrutan, gör följande:

  • I Hitta det fält, typ (*) in i textrutan;
  • I Ersätt med lämna detta fält tomt.

3. Klicka sedan Ersätt alla knappen, kommer alla tecken inom parentesen (inklusive parenteserna) i de markerade cellerna att raderas på en gång. Se skärmdump:

tips: Den Sök och ersätt funktionen fungerar även för två eller flera par parenteser inom textsträngarna.


 Ta bort text mellan parenteser med formel

Förutom funktionen Sök och ersätt kan du också använda en formel för att lösa denna uppgift i Excel, den generiska syntaxen är:

=SUBSTITUTE(text,MID(LEFT(text,FIND(")",text)),FIND("(",text),LEN(text)),"")
  • text: Textsträngen eller cellreferens som du vill ta bort tecken från.

Kopiera nu eller skriv in följande formel i en tom cell där du vill få resultatet:

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

Dra sedan fyllningshandtaget ner till cellerna där du vill använda den här formeln, och alla texter inom parentesen inklusive parentesen kommer att tas bort på en gång, se skärmdump:

tips: Om det inte finns några parenteser i cellvärdet, kommer ett fel att visas efter tillämpning av formeln ovan. För att ignorera felet, använd formeln nedan:

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


 Ta bort text mellan parenteser med användardefinierad funktion

Ovanstående formel fungerar bra för att ta bort text från ett par parenteser, om du behöver ta bort texterna från flera par parenteser inom textsträngarna kommer formeln inte att fungera korrekt. Här kommer jag att skapa en enkel användardefinierad funktion för att lösa denna uppgift.

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra in följande kod i modulfönstret.

VBA-kod: Ta bort text mellan 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å sedan tillbaka till kalkylbladet och skriv in den här formeln i en tom cell: = remtxt (A2), dra sedan fyllningshandtaget ner till cellerna där du vill använda den här formeln, alla texter inom alla parenteser inklusive parenteser kommer att tas bort enligt nedanstående skärmbild:


Ta bort ord från textsträngar

I vissa fall kanske du vill ta bort vissa ord från en lista med celler, till exempel första eller sista ordet, dubbletter av ord från en cell. För att lösa den här typen av borttagning kommer det här avsnittet att introducera några metoder för dig.

4.1 Ta bort första eller sista ordet från textsträngen

För att ta bort det första eller sista ordet från en lista med textsträngar kan följande formler göra dig en tjänst.

 Ta bort det första ordet från textsträngen med formeln

Ta bort de första orden från en lista med textsträngar, du kan skapa en enkel formel baserad på funktionerna RIGHT, LEN och HIT, den generiska syntaxen är:

=RIGHT(text,LEN(text)-FIND(" ",text))
  • text: Textsträngen eller cellreferens som du vill ta bort det första ordet från.

Vänligen ange eller kopiera följande formel till en tom cell:

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

Och dra sedan fyllningshandtaget nedåt för att tillämpa formeln på andra celler, se skärmdump:

tips: Om du behöver ta bort de första N orden från cellerna, använd formeln nedan:

=MID(TRIM(text),1+FIND("~",SUBSTITUTE(TRIM(text)," ","~",N)),255)
  • text: Textsträngen eller cellreferensen som du vill ta bort de första n orden från;
  • N: Indikerar hur många ord du vill ta bort från början av textsträngen.

Till exempel, för att ta bort de två första orden från celler, kopiera eller skriv in formeln nedan i en tom cell för att få resultatet som du behöver, se skärmdump:

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


  Ta bort sista ordet från textsträngen med formel

För att ta bort det sista ordet från textsträngar kan du också använda en formel för att lösa denna uppgift, den generiska syntaxen är:

=LEFT(TRIM(text),FIND("~",SUBSTITUTE(text," ","~",LEN(TRIM(text))-LEN(SUBSTITUTE(TRIM(text)," ",""))))-1)
  • text: Textsträngen eller cellreferens som du vill ta bort det sista ordet från;

Använd formeln nedan i en tom cell och dra sedan fyllningshandtaget nedåt för att tillämpa formeln på andra celler, se skärmdump:

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

tips: För att ta bort de sista N orden från en lista med celler är den allmänna syntaxen:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",LEN(text)-LEN(SUBSTITUTE(text," ",""))-(N-1))))
  • text: Textsträngen eller cellreferens som du vill ta bort de sista n orden från;
  • N: Indikerar antalet ord du vill ta bort från slutet av textsträngen.

Antag att för att ta bort de tre sista orden från en lista med celler, använd formeln nedan för att returnera resultatet, se skärmdump:

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


4.2 Ta bort dubbletter av tecken eller ord i en cell

När du tar bort dubbletter av värden eller rader erbjuder Excel några olika alternativ, men när det gäller att ta bort några dubbletter av tecken eller ord i en given cell, kanske det inte finns någon bra inbyggd funktion för att lösa det. I det här fallet kommer det här avsnittet att hjälpa till att skapa några användardefinierade funktioner för att hantera detta pussel.

 Ta bort dubbletter av tecken i en cell med hjälp av användardefinierad funktion

Om du har flera förekomster av samma tecken i en cell, för att ta bort de dubblerade tecknen i en cell och bara behålla de första förekomsterna enligt skärmbilden nedan, kan du använda följande användardefinierade funktion.

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra in följande kod i modulfönstret.

VBA-kod: Ta bort dubbletter av tecken i en cell

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. Stäng sedan kodfönstret, gå tillbaka till kalkylbladet och ange denna formel =Ta bort Dupeschars(A2) in i en tom cell vid sidan av dina data och dra sedan fyllningshandtaget över till de celler som du vill använda den här formeln, se skärmdump:

AnmärkningarA2 är datacellen där du vill ta bort dubbletter av tecken från.

Tips: Funktionen är skiftlägeskänslig, så små och stora bokstäver behandlas som olika tecken.


 Ta bort dubbletter av ord i en cell med hjälp av användardefinierad funktion

Om du antar att du har samma ord eller textsträngar i en cell och vill ta bort alla samma ord från cellen som visas nedan. Du kan använda följande användardefinierade funktion för att lösa denna uppgift i Excel.

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra in följande kod i modulfönstret.

VBA-kod: Ta bort dubbletter av ord i en cell

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. Stäng sedan kodfönstret, gå tillbaka till kalkylbladet och ange denna formel =RemoveDupeswords(A2,", ") in i en tom cell vid sidan av dina data och dra sedan fyllningshandtaget över till de celler som du vill använda den här formeln, se skärmdump:

Anmärkningar: A2 är cellen som du vill ta bort dubblettorden från, och kommatecken och mellanslag (, ) är avgränsare för att separera textsträngarna, du kan ändra dem till andra avgränsare efter dina behov.

Tips: Denna funktion är inte skiftlägeskänslig, gemener och stora bokstäver behandlas som samma tecken.


4.3 Trimma textsträngen till N ord

Om du har en lång textsträng i en cell, ibland, kanske du vill trimma textsträngen till ett visst antal ord, vilket betyder att bara behålla de första n orden och klippa resten av orden. Det här avsnittet kommer att prata om några knep för att hjälpa dig att uppnå detta jobb i Excel.

 Trimma textsträngen till N ord med formeln

För att trimma en textsträng till N ord kan du skapa en formel baserad på funktionerna LEFT, FIND och SUBSTITUTE, den allmänna syntaxen är:

=LEFT(text,FIND("~",SUBSTITUTE(text," ","~",N))-1)
  • text: Textsträngen eller cellreferens som du vill trimma;
  • N: Antalet ord du vill behålla från vänster sida av den givna textsträngen.

För att hantera det här jobbet, kopiera eller skriv in formeln nedan i en tom cell:

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

Och dra sedan fyllningshandtaget nedåt för att tillämpa den här formeln på andra celler, se skärmdump:


 Trimma textsträngen till N ord med användardefinierad funktion

Förutom formeln ovan kan du också skapa en användardefinierad funktion för att lösa denna uppgift, vänligen gör så här:

1. Håll ner Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulerna, och klistra in följande kod i modulfönstret.

VBA-kod: Trimma textsträngen till 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. Stäng sedan och avsluta kodfönstret, gå tillbaka till kalkylbladet och ange denna formel: =GetNWords(A2,B2) in i en tom cell och dra sedan fyllningshandtaget nedåt för att tillämpa den här formeln på andra celler. Endast det första specifika antalet ord behålls enligt skärmbilden nedan:


  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...
kte-flik 201905
  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
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