Note: The other languages of the website are Google-translated. Back to English

Excel lägg till text och nummer i specificerad position i cellen

I Excel är det mycket vanligt att lägga till texter eller siffror i celler. Som att lägga till mellanslag mellan namn, lägga till prefix eller suffix i celler, lägga till bindestreck till sociala nummer. Här i den här handledningen listar den nästan alla tilläggsscenarier i Excel och ger dig motsvarande metoder.

Navigeringarna i denna handledning

1. Lägg till i början av varje cell

1.1 Lägg till i början av celler med hjälp av formeln

1.2 Lägg till i början av celler med Flash Fill

1.3 Lägg till i början av celler med hjälp av VBA-kod

2. Lägg till i slutet av varje cell

2.1 Lägg till i slutet av celler med hjälp av formeln

2.2 Lägg till i slutet av celler med Flash Fill

2.3 Lägg till i slutet av celler med hjälp av VBA-kod

3. Lägg till mitten av strängen

3.1 Lägg till efter det n:te tecknet i strängen med formeln

3.2 Lägg till efter n:te tecken i strängen med Flash Fill

3.3 Lägg till efter det n:te tecknet i strängen med hjälp av VBA-kod

4. Lägg till text med Kutools för Excel (lägg till tecken till specifik position efter behov)

4.1 Lägg till text före första tecknet eller efter sista tecknet

4.2 Lägg till text på angivna positioner

4.3 Förlängning av Add Text-verktyget

5. Lägg till text före eller efter den första specifika texten

5.1 Lägg till text före den första specifika texten

5.2 Lägg till text efter den första specifika texten

6. Lägg till tecken före eller efter varje ord

6.1 Lägg till tecken före eller efter varje ord med formel

6.2 Lägg till tecken före eller efter varje ord genom att söka och ersätta

6.3 Lägg till tecken före eller efter varje ord med VBA-kod

7. Lägg till text mellan tecken

7.1 Lägg till text mellan varje tecken/siffra med användardefinierad funktion

7.2 Lägg till mellanslag mellan varje tal med formeln

8. Lägg till tecken mellan varje ord

9. Lägg till tecken mellan texter och siffror

9.1 Lägg till tecken mellan texter och siffror med formel

9.2 Lägg till tecken mellan texter och siffror med Flash Fill

10. Lägg till bindestreck till telefonnummer/sociala nummer

10.1 Lägg till streck till tal med formel

10.2 Lägg till streck till tal genom att formatera celler

10.3 Lägg till streck till telefonnummer genom att lägga till text i Kutools för Excel

11. Lägg till inledande nollor till celler för att fixera längden

11.1 Lägg till inledande nollor till celler med funktionen Formatera celler

11.2 Lägg till inledande nollor till celler med formeln

12. Lägg till efterföljande nollor till siffror för att fastställa längden

13. Lägg till efterföljande utrymme till text

14. Lägg till citattecken/parenteser runt text eller siffror

14.1 Lägg till citattecken/parenteser runt formatera celler

14.2 Lägg till citattecken/parenteser runt formler

14.3 Lägg till citattecken/parenteser runt av VBA

15. Lägg till text direkt i formelresultatet

Anmärkningar

I den här handledningen skapar jag några exempel för att förklara metoderna, du kan ändra referenserna du behöver när du använder nedanstående VBA-kod eller formler, eller så kan du ladda ner exemplen för att prova metoder direkt.

doc-provKlicka för att ladda ner exempelfilen


1. Lägg till i början av varje cell

Den här delen listar olika metoder för att lägga till tecken i början av varje cell enligt nedanstående skärmdump:
doc lägg till vid start 1

1.1 Lägg till i början av celler med hjälp av formeln


Här kan du välja en av nedanstående tre formler:

Formel 1 Sammanfoga operatorn "&"

Sammanfoga flera texter med ett et-tecken "&".

"text"&cell

Formula2 CONCATENATE funktion

CONCATENATE-funktionen används för att sammanfoga texter.

CONCATENATE("text",cell)

Formula3 CONCAT-funktion

Detta är en ny funktion som endast visas i Excel 2019, Office 365 och Excel online.

CONCAT("text",cell)

I de generiska formlerna: cell är cellreferensen till texten som du vill lägga till prefix till, och text är texten som användes för att lägga till i cellen.

Med hjälp av exemplet ovan kan du använda formlerna i formelfältet som dessa:

"&"

=$E$3&B3 or ="Iphone"&B3

CONCATENATE-funktion

=KONKATERA($E$3,B3) or =CONCATENATE("Iphone",B3)

CONCAT-funktion

=CONCAT($E$3;B3) or =CONCAT("Iphone",B3)

Presse ange för att få resultatet, dra sedan autofyllhandtaget nedåt för att lägga till text i varje cell i området B3:B6.
doc lägg till vid start 1

 Uppmärksamhet: Text ska omges av dubbla citattecken, eller formeln returnerar ett felvärde #NAME?. Om du använder cellreferensen till en text, kom ihåg att använda den absoluta referensen, du kan trycka på F4-tangenten för att ändra den relativa referensen till absolut referens.

1.2 Lägg till i början av celler med Flash Fill


Om du använder Excel 2013 eller senare versioner kan den kraftfulla nya funktionen, Flashfyllning, kan fylla cellerna baserat på ovanstående celler som du angett automatiskt.

Välj en cell bredvid den första originaldatan, skriv in den första datan manuellt med prefixtexten enligt nedan:
doc lägg till vid start 1

Sedan i cellen nedan, fortsätt att skriva den andra datan med prefixtext, under skrivningen kommer en lista i grå färg att visas, tryck på ange för att låta Flash Fill fylla data automatiskt.
doc lägg till vid start 1doc lägg till vid start 1

Om förhandsgranskningslistan inte genereras, gå till fliken Hem och klicka sedan Fyll > Flashfyllning för att köra den manuellt.

1.3 Lägg till i början av celler med hjälp av VBA-kod


Om du är bekant med VBA-kod, introducerar här en VBA-kod för att lägga till text i början av varje cell i ett intervall.

1. Välj ett cellintervall som du vill lägga till prefixtexten och tryck sedan på andra + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan i det popparerande fönstret Insert > Modulerna för att infoga en tom ny modul.
doc lägg till vid start 1

3. Kopiera och klistra in nedanstående VBA-kod till den nya modulen.

VBA: Lägg till i början av celler

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub
 Uppmärksamhet: i kodskriptet, iphone är texten du vill lägga till i början av markerade celler, ändra den efter ditt behov.

doc lägg till vid start 1

4. Tryck F5 eller klicka run Knappen doc lägg till vid start 1 i fönstret för att aktivera VBA-koden.

Nu har alla markerade celler lagts till texten "Iphone" i början.
doc lägg till vid start 1


2. Lägg till i slutet av varje cell

Förutom att lägga till text i början av celler är det också vanligt att lägga till text i slutet av celler. Här tar vi att lägga till enhet i slutet av varje cell för exempel som nedan skärmdump visas:
doc add i slutet 1

2.1 Lägg till i slutet av celler med hjälp av formeln


Här kan du välja en av nedanstående tre formler:

Formel 1 Sammanfoga operatorn "&"

Sammanfoga flera texter med ett et-tecken "&".

Cell&"text"

Formula2 CONCATENATE funktion

CONCATENATE-funktionen används för att sammanfoga texter.

CONCATENATE(cell,"text")

Formula3 CONCAT-funktion

Detta är en ny funktion som endast visas i Excel 2019, Office 365 och Excel online.

KONCAT(cell,"text")

I de generiska formlerna: cell är cellreferensen till texten som du vill lägga till suffix till, och text är texten som användes för att lägga till i cellen.

Med hjälp av exemplet ovan kan du använda formlerna i formelfältet som dessa:

"&"

=B3&$E$3 or =B3&"Kg"

CONCATENATE-funktion

=CONCATENATE(B3, $E$3) or =CONCATENATE(B3; "Kg")

CONCAT-funktion

=CONCAT(B3, $E$3) or =CONCAT(B3; "Kg")

Presse ange för att få resultatet, dra sedan autofyllhandtaget nedåt för att lägga till text i slutet av varje cell i området B3:B6.
doc add i slutet 1

 Uppmärksamhet: Text ska omges av dubbla citattecken, eller formeln returnerar ett felvärde #NAME?. Om du använder cellreferensen till en text, kom ihåg att använda den absoluta referensen, du kan trycka på F4-tangenten för att ändra den relativa referensen till absolut referens.

2.2 Lägg till i slutet av celler med Flash Fill


Om du använder Excel 2013 eller senare versioner kan den kraftfulla nya funktionen, Flashfyllning, kan fylla cellerna baserat på ovanstående celler som du angett automatiskt.

Välj en cell bredvid den första originaldatan, skriv in den första informationen manuellt med suffixet enligt nedan:
doc add i slutet 1

Aktivera sedan cellen under det första resultatet, klicka Data > Flashfyllning, kommer alla nedanstående celler inklusive den aktiva cellen att fyllas i automatiskt.
doc add i slutet 1
doc add i slutet 1

2.3 Lägg till i slutet av celler med hjälp av VBA-kod


Här är en VBA-kod som kan lägga till text i slutet av varje cell i ett intervall.

1. Välj ett cellintervall som du vill lägga till suffixtexten och tryck sedan på andra + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan i det popparerande fönstret Insert > Modulerna för att infoga en tom ny modul.
doc lägg till vid start 1

3. Kopiera och klistra in nedanstående VBA-kod till den nya modulen.

VBA: Lägg till i slutet av celler

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub
Uppmärksamhet: i kodskriptet, Kg är texten du vill lägga till i slutet av markerade celler, ändra den efter ditt behov. 

doc lägg till vid start 1

4. Tryck F5 eller klicka run Knappen doc lägg till vid start 1 i fönstret för att aktivera VBA-koden.

Nu har texten "Kg" lagts till i slutet av varje cell.
doc lägg till vid start 1


3. Lägg till mitten av strängen

För de flesta av er är det lätt att lägga till texter i början eller slutet av celler, men att lägga till texter i mitten av celler är kanske lite svårt. Ta exempel, som skärmbilden nedan, lägg till en avgränsare, såsom kolon : i slutet av det andra tecknet i varje cell i intervallet B3:B7.
doc lägg till mitten 1

3.1 Lägg till efter det n:te tecknet i strängen med formeln


Här är fyra formler som tillhandahålls för dig för att hantera det här jobbet, välj en att använda:

Formula1 Kombinera funktionerna VÄNSTER och HÖGER

VÄNSTER(cell, n) & "text" & HÖGER(cell, LEN(cell) -n)

Formula2 KOMBINERA CONCATENATE(CONCAT), RIGHT och LEN-funktionerna

CONCATENATE(VÄNSTER(cell, n), "text", HÖGER(cell, LEN(cell) -n))

Or

KONCAT(VÄNSTER(cell; n); "text", HÖGER(cell; LEN(cell) -n))

Formula3 REPLACE funktion

ERSÄTT(cell; n+1; 0; "text")

I de generiska formlerna: cell är cellreferensen till texten som du vill lägga till text i mitten, och text är texten som användes för att lägga till i cellen, n är numret som definierar efter vilket tecken i textsträngen du vill Lägg till text.

För att lösa jobbet som nämns ovan, använd formlerna enligt följande:

Kombinera VÄNSTER och HÖGER funktioner

=VÄNSTER(B3, 2) & ":" & HÖGER(B3, LEN(B3) -2) or =VÄNSTER(B3, 2) & $E$3 & RIGHT(B3, LEN(B3) -2)

KOMBINERA CONCATENATE(CONCAT), RIGHT och LEN funktionerna

=KONKATERA(VÄNSTER(B3, 2), ":", HÖGER(B3, LEN(B3) -2)) or =CONCAT (VÄNSTER(B3, 2), ":", HÖGER(B3, LEN(B3) -2))

Byt ut funktionen

=ERSÄTT(B3; 2+1; 0; ":") or =ERSÄTT(B3, 2+1, 0, 3 USD)

Presse ange för att få resultatet, dra sedan autofyllhandtaget nedåt för att lägga till text efter det andra tecknet i varje cell i området B3:B7.
doc lägg till mitten 1

 Uppmärksamhet: Text ska omges av dubbla citattecken, eller formeln returnerar ett felvärde #NAME?. Om du använder cellreferensen till en text, kom ihåg att använda den absoluta referensen, du kan trycka på F4-tangenten för att ändra den relativa referensen till absolut referens.

3.2 Lägg till efter n:te tecken i strängen med Flash Fill


Om du använder Excel 2013 eller senare versioner, Flashfyllning, kan fylla cellerna baserat på ovanstående celler som du angett automatiskt.

Välj en cell bredvid den första originaldatan, skriv in den första informationen manuellt med ett kolon efter det andra tecknet enligt nedan:
doc lägg till mitten 1

Aktivera sedan cellen under det första resultatet, tryck ctrl + E för att aktivera Flashfyllning kommandot har alla nedanstående celler inklusive den aktiva cellen fyllts i automatiskt.
doc lägg till mitten 1

Uppmärksamhet: Om du är i MAC-systemet, tryck på Kommando + E-tangenter. 

3.3 Lägg till efter det n:te tecknet i strängen med hjälp av VBA-kod


En VBA-kod kan också göra det här jobbet.

1. Tryck andra + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan i det popparerande fönstret Insert > Modulerna för att infoga en tom ny modul.
doc lägg till vid start 1

3. Kopiera och klistra in nedanstående VBA-kod till den nya modulen.

VBA: Lägg till i mitten av celler

Sub AddToMidduleOfString()
    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 = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub
Uppmärksamhet: i kodskriptet, 2 är numret definierar positionen som du vill lägga till text efter, : är texten du vill lägga till, 3 är summan av 2 och längden på text du lägger till. Ta en annan instans, för att lägga till "och" efter det första tecknet i strängen "AB", ska skriptet vara Rng.Value = VBA.Left(Rng.Value, 1) & "och" & VBA.Mid(Rng.Value, 4, VBA.Len(Rng.Value) - 1) 

doc lägg till vid start 1

4. Tryck F5 eller klicka run Knappen doc lägg till vid start 1 i fönstret för att aktivera VBA-koden. En dialogruta öppnas för att markera celler för att lägga till text.
doc lägg till vid start 1

5. klick OK. Nu har texten ":" lagts till efter det andra tecknet i varje cell i intervallet B19:B23.
doc lägg till vid start 1


4. Lägg till text med Kutools för Excel (lägg till tecken till specifik position efter behov)

Om du är trött på formler och VBA kan du prova ett kraftfullt och praktiskt verktyg, Kutools för Excel, som kan hjälpa dig med det lägga till text särdrag.
doc lägg till text 1

Den här funktionen Lägg till text kan:

  • Lägg till text före första tecknet
  • Lägg till text efter sista tecknet
  • Lägg till text på angivna positioner
  • Förlängning
    Lägg till text före versaler
    Lägg till text före gemener
    Lägg till text före versaler/små bokstäver
    Lägg till text före numeriska tecken

Klicka för att få 30 dagars gratis provperiod nu.

Markera de celler som du vill lägga till text och använd sedan Lägg till text genom att klicka Kutools > text > lägga till text.
doc lägg till text 1
4.1 Lägg till text före första tecknet eller efter sista tecknet


i lägga till text skriv in texten som du vill lägga till i cellerna i dialogrutan text textrutan och kontrollera sedan Före första karaktär i Placera sektion.
doc lägg till text 1

Klicka tillämpas or Ok för att avsluta tillägget.
doc lägg till text 1

För att lägga till text efter det sista tecknet, skriv texten som du vill lägga till i cellerna i text textrutan och kontrollera sedan Efter sista karaktär i Placera sektion.
doc lägg till text 1

Klicka tillämpas or Ok för att avsluta tillägget.
doc lägg till text 1

4.2 Lägg till text på angivna positioner


Ibland kanske du vill lägga till text i mitten av cellen, eller lägga till text på flera positioner i cellen. Antag att man lägger till avgränsare "-" efter den tredje och sjunde siffran i sociala numren som nedan skärmdump:
doc lägg till text 1

i lägga till text dialogrutan, skriv in texten i text textruta och kontrollera Ange alternativet, skriv sedan positionerna med kommatecken för att separera i textrutan och klicka sedan Ok or tillämpas.
doc lägg till text 1

4.3 Förlängning av Add Text-verktyget


Förutom att lägga till text i de normala positionerna (början, slutet och specificerad position), lägga till text verktyget stöder också att lägga till text

  • Före versaler
  • Före små bokstäver
  • Före versaler/små bokstäver
  • Före numeriska tecken

i lägga till text dialogrutan, skriv in texten i text textruta och kontrollera Lägg bara till och klicka sedan på rullgardinsmenyn nedan för att välja den åtgärd du behöver.
doc lägg till text 1
doc lägg till text 1

Förutom funktionen Lägg till text har Kutools för Excel andra 300+ användbara funktioner som kan göra dig en tjänst i olika Excel-jobb, få gratis nedladdning nu.


5. Lägg till text före eller efter den första specifika texten

Den här delen innehåller formler för att lägga till text före eller efter den första specifika texten som dök upp i Excel.

5.1 Lägg till text före den första specifika texten


Till exempel vill du lägga till texten "(rea)" före den första texten "pris" i cellen enligt nedanstående skärmdumpar:
doc lägg till text 1

I Excel kan funktionerna ERSÄTT och ERSÄTTA lösa detta jobb.

Byt ut funktionen

REPLACE(cell,FIND("hitta_text",cell),0,"lägg till_text")

SUBSTITUTE-funktion

SUBSTITUTE(cell,"hitta_text","ersätt_text",1)

I det här fallet, använd formlerna ovan enligt följande:

=ERSÄTT(B4,HITTA("pris",B4);0,"(rea)")

Or

=SUBSTITUTER(B4,"pris","(rea)pris",1)

Formelargumenten i detta fall är

Cell: B4,

Hitta_text: pris,

Add_text: (rea),

Ersätt_text:(försäljnings)pris.

Presse ange för att få det första tilläggsresultatet, dra sedan autofyllhandtaget över celler som behöver denna formel.
doc lägg till text 1

5.2 Lägg till text efter den första specifika texten


Till exempel vill du lägga till valutasymbolen "$" efter det första kolonet ":" i cellen enligt nedanstående skärmdumpar:
doc lägg till text 1

I Excel kan funktionerna ERSÄTT och ERSÄTTA lösa detta jobb.

Byt ut funktionen

REPLACE(cell,FIND("hitta_text",cell),hitta_text_längd,"ersätt_text")

SUBSTITUTE-funktion

SUBSTITUTE(cell,"hitta_text","ersätt_text")

I det här fallet, använd formlerna ovan enligt följande:

=ERSÄTT(B12,SITTA(":",B12),1,":$")

Or

=SUBSTITUTER(B12,":",":$")

Formelargumenten i detta fall är

Cell: B12,

Hitta_text: :,

Ersätt_text::$.

Hitta_text_längd:1

Presse ange för att få det första tilläggsresultatet, dra sedan autofyllhandtaget över celler som behöver denna formel.
doc lägg till text 1


6. Lägg till tecken före eller efter varje ord

I den här delen av handledningen introduceras tre olika metoder (formel, Sök och ersätt, VBA) för att hjälpa dig lägga till tecken före eller efter varje ord i cellen.

Lägg till tecken före varje ord 
doc lägg till före varje ord 1
Lägg till tecken efter varje ord
doc lägg till före varje ord 1

6.1 Lägg till tecken före eller efter varje ord med formel


ERSÄTTNINGSfunktionen kan användas för att lösa detta jobb, de allmänna formlerna som dessa:

Lägg till före varje ord

"tecken"&SUBSTITUTE(sträng, ""," tecken")

Lägg till efter varje ord

SUBSTITUTE(sträng," ","tecken ")&"tecken"

Om du lägger till "+" före varje ord i listan över B3:B6, använd formeln så här:

="+"&SUBSTITUTE(B3, " "," +")

Presse ange för att få det första resultatet, dra sedan handtaget för automatisk fyllning nedåt för att få alla resultat.
doc lägg till före varje ord 1

Om du lägger till ($) efter varje ord i listan B11:B14, använd formeln enligt nedan:

=SUBSTITUTER(B11," ","($) ")&"($)"

Presse ange för att få det första resultatet, dra sedan handtaget för automatisk fyllning nedåt för att få alla resultat.
doc lägg till före varje ord 1

6.2 Lägg till tecken före eller efter varje ord genom att söka och ersätta


Om du vill lägga till tecken före varje ord exklusive det första, eller lägga till tecken efter varje ord exklusive det sista som visas nedan, kan den inbyggda Excel Sök och ersätt verktyget kan hantera detta jobb.

Lägg till före varje ord exklusive det första
doc lägg till före varje ord 1

Lägg till efter varje ord exklusive det sista
doc lägg till före varje ord 1

1. Markera de celler som du vill lägga till tecken före eller efter varje ord och tryck sedan på ctrl + H för att aktivera Sök och ersätt dialog.

2. Skriv ett blanksteg i Hitta det textrutan och skriv sedan de nya tecknen med mellanslag i Ersätt med textrutan och klicka slutligen på Ersätt alla knapp.

Drift Allmänt Exempelvis
Lägg till tecken före varje ord Lägg till nya tecken efter ett mellanslag Lägg till (försäljning) före varje ord

doc lägg till före varje ord 1doc lägg till före varje ord 1

Drift Allmänt Exempelvis
Lägg till tecken efter varje ord Nya karaktärer följde med ett mellanslag Lägg till - efter varje ord

doc lägg till före varje ord 1doc lägg till före varje ord 1

6.3 Lägg till tecken före eller efter varje ord med VBA-kod

Här finns två VBA-koder för att lägga till tecken före eller efter varje ord. Kör koden genom att följa stegen nedan.

1. Tryck andra + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. Klicka på i poppfönstret Insert > Modulerna för att sätta in en ny tom modul.
doc lägg till före varje ord 1

3. Kopiera och klistra in nedanstående VBA-kod till modulen.

Lägg till före varje ord

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

Lägg till efter varje ord

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

4. Tryck F5 för att köra koden (eller så kan du klicka run Knappen  doc lägg till vid start 1 ), en dialogruta dyker upp för att be dig att välja kontinuerliga celler för att fungera, klicka OK.
doc lägg till före varje ord 1

5. I den andra popup-dialogrutan skriver du de tecken du vill lägga till, klickar OK.
doc lägg till före varje ord 1

Sedan läggs tecknen till längst fram eller i slutet av varje ord.


7. Lägg till text mellan tecken

Ibland kanske du vill lägga till text mellan varje tecken. Här i den här delen listar den två scenarier, ett är att lägga till text mellan varje tecken, ett annat är att lägga till mellanslag mellan varje nummer.

7.1 Lägg till text mellan varje tecken/siffra med användardefinierad funktion


För att lägga till tecken mellan varje tecken i en sträng kan den användardefinierade funktionen hjälpa dig.

I det här fallet lägger vi till ett mellanslag mellan varje tecken.

1. Tryck andra + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. Klicka på i poppfönstret Insert > Modulerna för att sätta in en ny tom modul.
doc lägg till före varje ord 1

3. Kopiera och klistra in nedanstående VBA-kod till modulen.

Lägg till text mellan tecken

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

4. Spara koden och stäng fönstret för att gå tillbaka till kalkylbladet, skriv sedan formeln nedan i en cell som du vill placera resultatet för att lägga till.

=Lägg till text(B3)

B3 är cellen som innehåller strängen som du vill lägga till mellanslag mellan tecken.

5. Tryck ange för att få resultatet, dra autofyllhandtaget över cellerna för att få andra resultat som du behöver.
doc lägg till före varje ord 1

 

Uppmärksamhet:

1) I VBA-koden kan du ändra "" till andra texter som du behöver, förutsatt att du ändrar det till "-" att lägga till - mellan tecken.

2) Koden lägger till den nya texten efter varje tecken. Du kan ta bort den senast tillagda texten om du inte behöver genom att använda formeln nedan. För mer information om formeln, besök:

Hur man tar bort första eller sista N-tecken från en cell eller sträng i Excel?

LEFT(cell,LEN(cell)-text_längd)

7.2 Lägg till mellanslag mellan varje tal med formeln


Om du vill lägga till mellanslag mellan siffrorna i en sträng som är ett numeriskt värde, kan du använda TEXT-funktionen.

Uppmärksamhet: antalet intervall som du vill lägga till mellanrum mellan måste vara i samma längd, annars kan vissa resultat vara felaktiga. 

Anta att här är en lista med 8-siffriga nummer i intervallet B10:B12, välj en cell som ska placera resultatet, skriv nedan formel:

=TEXT(B10,"# # # # # # # #")

Presse ange och dra sedan autofyllhandtaget över andra celler.
doc lägg till före varje ord 1

Om längden på siffror är 5 kommer formeln att ändras som =TEXT(B10,"# # # # #").


8. Lägg till tecken mellan varje ord

Om du vill lägga till tecken mellan varje ord, förutsatt att du lägger till mellanslag mellan för-, mellan- och efternamn enligt skärmbilden nedan, kan du använda en användardefinierad funktion.
doc lägg till före varje ord 1

1. Tryck andra + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. Klicka på i poppfönstret Insert > Modulerna för att sätta in en ny tom modul.

3. Kopiera och klistra in nedanstående VBA-kod till modulen.

Lägg till tecken mellan orden

Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function

4. Spara koden och stäng fönstret för att gå tillbaka till kalkylbladet, skriv sedan formeln nedan i en cell som du vill placera resultatet för att lägga till.

=Lägg till tecken(B3)

B3 är cellen som innehåller strängen som du vill lägga till mellanslag mellan ord.

5. Tryck ange för att få resultatet, dra autofyllhandtaget över cellerna för att få andra resultat som du behöver.
doc lägg till före varje ord 1

 Uppmärksamhet: i VBA-koden kan du ändra "" till andra texter som du behöver, förutsatt att du ändrar det till "-" att lägga till - mellan ord.

9. Lägg till tecken mellan texter och siffror

För att lägga till specifika tecken mellan texter och siffror enligt skärmbilden nedan, tillhandahålls här två metoder.
lägg till mellan text och nummer 1

9.1 Lägg till tecken mellan texter och siffror med formel


Om texterna står framför siffrorna är den generiska formeln

TRIMMA(REPLACE(string,MIN(FIND({1,2,3,4,5,6,7,8,9,0},sträng&"1234567890")),0,"-"))

Använd fallet ovan som exempel, använd formeln så här:

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

Presse ange för att få det första resultatet, dra sedan autofyllhandtaget över andra celler för att fylla den här formeln.
lägg till mellan text och nummer 1

Om siffrorna står framför texterna är den generiska formeln

LEFT(string,SUM(LEN(sträng)-LEN(SUBSTITUTE(sträng;{0,1,2,3,4,5,6,7,8,9},""))))&"."&HÖGER (string,LEN(B13)- SUM(LEN(sträng)-LEN(SUBSTITUTE(sträng, {0,1,2,3,4,5,6,7,8,9}, ""))))

Använd fallet ovan som ett exempel, använd formeln så här:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))

Presse ange för att få det första resultatet, dra sedan autofyllhandtaget över andra celler för att fylla den här formeln.
lägg till mellan text och nummer 1

9.2 Lägg till tecken mellan texter och siffror med Flash Fill


Om du använder Excel 2013 eller senare versioner, Flashfyllning kan också hjälpa dig att lägga till tecken mellan texter och siffror.

Bredvid originaldata, skriv in de nya data som har lagts till tecknet/tecken mellan texter och siffror. Tryck sedan på Enter för att gå till nästa cell i det första resultatet.
lägg till mellan text och nummer 1

Och tryck ctrl + E för att aktivera Flash Fill.
lägg till mellan text och nummer 1

Förlängning

Den här handledningen listar också några scenarier om att lägga till text som vi kan möta i vårt dagliga liv eller arbete.


10. Lägg till bindestreck till telefonnummer/sociala nummer

Ibland måste du lägga till separatorer som bindestreck i en serie med telefonnummer eller sociala nummer enligt skärmbilden nedan. Manuell inmatning kommer att testas om det finns hundratals nummer som behöver läggas till. I den här delen introducerar den tre trick sätt att hantera det här jobbet snabbt.
doc lägg till streck till siffror 1

10.1 Lägg till streck till tal med formel


Här är två formler som snabbt kan lägga till bindestreck till siffror. För att lägga till bindestreck efter det tredje och sjätte numret i cell B3, använd formeln som dessa:

Byt ut funktionen

=ERSÄTT(ERSÄTT(B3,4,0,"-"),8,0,"-")

TEXT-funktion

=TEXT(B3,"???-???-??? ")

Presse ange för att få det första resultatet, dra sedan autofyllhandtaget över andra celler.
doc lägg till streck till siffror 1

Uppmärksamhet:

Du kan ändra ovanstående formlers argument efter behov. Antag lägga till "-" efter den andra, fjärde och sjätte siffran kan du använda formlerna som:

=ERSÄTT(ERSÄTT(ERSÄTT(B3,3,0,"-"),6,0,"-"),9,0,"-")

=TEXT(B3,"??-??-??-??? ")

 

10.2 Lägg till streck till tal genom att formatera celler


För att direkt lägga till streck till siffrorna i de ursprungliga cellerna kan du använda Formatera celler särdrag.

1. Välj siffrorna som du vill lägga till streck på och tryck sedan på ctrl + 1 för att aktivera Formatera celler dialog.

2. I Formatera celler under dialogrutan Antal fliken, välj anpassad från Kategori sektion.

3. Sedan till höger Typ avsnitt, typ ###-###-### klicka i textrutan OK.
doc lägg till streck till siffror 1

Nu har de valda siffrorna lagts till streck.
doc lägg till streck till siffror 1

10.3 Lägg till streck till telefonnummer genom att lägga till text i Kutools för Excel


Om du har Kutools för Excel installerat i Excel, den lägga till text funktionen kan också göra dig en tjänst.

1. Markera cellerna som innehåller siffrorna som behövs för att lägga till bindestreck, klicka Kutools > text > Lägg till text.
doc lägg till streck till siffror 1

2. I lägga till text dialogrutan, skriv in bindestrecket eller annan avgränsare i text textruta, välj Ange alternativet, skriv sedan de positioner du vill lägga till bindestreck efter och separera dem med kommatecken i textrutan nedan.
doc lägg till streck till siffror 1

3. klick Ok eller Ansök. Sedan har de valda siffrorna lagts till streck.

Gratis nedladdning Lägg till text för 30-dagars provperiod.


11. Lägg till inledande nollor till celler för att fixera längden

Om du antar att det finns en lista med siffror i olika längder, vill du lägga till inledande nollor för att få dem i samma längd och se snygga ut som nedanstående skärmbild. Här är två metoder som tillhandahålls för dig att hantera jobbet.
doc lägg till ledande nollor 1

11.1 Lägg till inledande nollor till celler med funktionen Formatera celler


Du kan använda Formatera celler funktion för att ställa in ett anpassat format för att fixa celllängden genom att lägga till inledande nollor.

1. Markera de celler som du vill lägga till inledande nollor och tryck sedan på ctrl + 1 för att aktivera Formatera celler dialog.

2. I Formatera celler under dialogrutan Antal fliken, välj anpassad från Kategori sektion.

3. Sedan till höger Typ avsnitt, typ 0000 i textrutan (för att fixera sifferlängden till 4-dight, skriv 0000, du kan ändra den till annan längd, som 5-dight, skriv 00000), klicka på OK.
doc lägg till ledande nollor 1

Sedan har talen lagts till inledande nollor och i samma längd.
doc lägg till ledande nollor 1

Uppmärksamhet: om längden på originaldata överstiger den inställda längden, kommer den att visa originaldata utan inledande nollor.


11.2 Lägg till inledande nollor till celler med formeln


Om du inte vill ändra originaldata kan du använda formeln för att lägga till inledande nollor till siffror på andra platser.

Här är tre funktioner som kan hjälpa dig.

Formel1 TEXT-funktion

TEXT(nummer,"00...")

Formula2 RIGHT-funktion

RIGHT("00..."&nummer, längd)

Formula3 BASE-funktion

BASE(tal;10;längd)

Antalet nollor i formeln är lika med längden på talet.

Här ställer du in 4-siffrig som längd på siffrorna, använd formlerna enligt nedan:

= TEXT (B10, "0000")

=HÖGER("0000"&B10,4)

=BAS(B10,10,4;XNUMX;XNUMX)

Presse ange och dra ned handtaget för automatisk fyllning.
doc lägg till ledande nollor 1

Uppmärksamhet: om längden på originaldata överstiger den inställda längden, kommer den att visa originaldata utan inledande nollor.


12. Lägg till efterföljande nollor till siffror för att fastställa längden

Om du vill lägga till efterföljande nollor till siffror för att skapa en fast längd, anta att du lägger till efterföljande nollor till siffrorna i cell B3:B7 för att göra dem i 5-siffriga längder enligt skärmbilden nedan, kan du använda en formel för att hantera jobbet .
doc lägg till avslutande nollor 1

REPT funktion

nummer&REPT("0",längd-LEN(tal))

I formeln representerar argumentet "nummer" talet eller en cellreferens som du vill lägga till efterföljande nollor, och argumentet "längd" är den fasta längden du vill ha.

Använd formeln så här:

=B3&REPT("0",5-LAN(B3))

Presse ange tangenten och dra autofyllhandtaget ner till celler som behöver denna formel.
doc lägg till avslutande nollor 1


13. Lägg till efterföljande utrymme till text

Om du vill exportera eller kopiera data från ett kalkylblad till ett anteckningsblock kan texterna placeras stökigt eftersom cellvärdena är i olika längder, för att de ska se snygga ut som nedanstående skärmdump måste du lägga till efterföljande utrymme.
doc lägg till efterutrymme 1

För att lösa detta jobb kan REPT-funktionen göra dig en tjänst.

VÄNSTER(text & REPT(" ",max_längd),max_längd)

I formeln är argumentet "text" texten eller cellreferensen som du vill lägga till efterföljande utrymme, och argumentet "max_length" är den fasta längden du vill göra texterna, som måste vara längre än eller lika med maximal längd på de använda texterna.

För att lägga till efterföljande utrymme till texterna i cell B3:C6, använd nedanstående formel:

=VÄNSTER(B3 & REPT(" ";10);10)

Presse ange och dra sedan autofyllhandtaget över till alla celler som behövs för den här formeln.

I det här fallet, eftersom den längsta av den använda texten är 9 tecken, använder vi 10 här.
doc lägg till efterutrymme 1


14. Lägg till citattecken/parenteser runt text eller siffror

Ibland måste du lägga till citattecken eller hakparenteser runt texten eller siffrorna i cellerna enligt skärmbilden nedan, förutom att manuellt skriva en efter en, här är två metoder i Excel som snabbt kan lösa det.
doc lägg till citattecken 1

14.1 Lägg till citattecken/parenteser runt formatera celler


Om du vill lägga till citattecken runt text i originaldata kan funktionen Formatera celler i Excel hjälpa dig.

1. Välj de celler som du vill lägga till citattecken, tryck på ctrl + 1 för att aktivera Formatera celler dialog.

2. I Formatera celler dialog, under Antal fliken, välj anpassad från listan över Kategori, gå sedan till höger avsnitt för att skriva "'" "@" "" " i Typ textruta. Klick OK.
doc lägg till citattecken 1

Texten i markerade celler har lagts till med citattecken.

Om du vill lägga till parenteser runt texten, i textrutan Typ i dialogrutan Formatera celler, använd (@).

14.2 Lägg till citattecken/parenteser runt formler


Formler kan också användas för att lägga till citattecken i text i andra celler.

Använder & kontakt

""""&text&""""

Or

char(34)&text&char(34)

I det här fallet, text i cell B11, använd formlerna som dessa:

=""""&B11&""""

Or

=char(34)&B11&char(34)

Presse ange tangent och dra autofyllhandtaget nedåt för att fylla celler.
doc lägg till citattecken 1

Om du vill lägga till parenteser runt text använder du formeln som "("&text&")".

14.3 Lägg till citattecken/parenteser runt av VBA


Om du behöver VBA-kod för att lösa det här jobbet, här är en VBA.

1. Tryck andra + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan i det popparerande fönstret Insert > Modulerna för att infoga en tom ny modul.

3. Kopiera och klistra in nedanstående VBA-kod till den nya modulen.

VBA: Lägg till citattecken runt texter

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
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 = """" & Rng.Value & """"
Next
End Sub
 Uppmärksamhet: i kodskriptet, """" & Rng.Value & """" anger att lägga till "" runt texterna, om du vill lägga till parenteser () runt texten, ändra det till "(" & Rng.Value & ")".

doc lägg till citattecken 1

4. Tryck F5 eller klicka run Knappen doc lägg till citattecken 1 i fönstret för att aktivera VBA-koden. En dialogruta dyker upp för att markera celler för att lägga till citattecken.
doc lägg till citattecken 1

5. klick OK. Nu har citattecken lagts till runt texter i de markerade cellerna.


15. Lägg till text direkt i formelresultatet

Ibland, för att hjälpa andra användare att bättre förstå data, kan du behöva lägga till text i formelresultaten enligt skärmbilden nedan. För att inkludera text i formeln kan du använda citattecken som omger texten och lägga till &-kopplingen för att kombinera texten och formeln.
doc lägg till text i formel 1

Fall 1 lägg till text före formel

"Idag är "&TEXT(TODAY(),"dddd, mmmm dd.")
doc lägg till text i formel 1

Fall 2 lägg till text efter formeln

TEXT(NU(),"TT:MM:SS")&" är den aktuella tiden."
doc lägg till text i formel 1

Fall 3 lägg till texter på två sidor av formeln

"Idag sålde "&data&" kg."
doc lägg till text i formel 1


Fler Excel-tutorials:

Kombinera flera arbetsböcker/arbetsblad till ett
Denna handledning listar nästan alla kombinationsscenarier du kan möta och ger dig relativt professionella lösningar.

Dela text-, nummer- och datumceller (dela upp i flera kolumner)
Denna handledning är uppdelad i tre delar: delade textceller, delade nummerceller och delade datumceller. Varje del ger olika exempel som hjälper dig att veta hur du ska hantera klyvningsjobbet när du stöter på samma problem.

Kombinera innehållet i flera celler utan att förlora data i Excel
Denna handledning begränsar extraheringen till en specifik position i en cell och samlar olika metoder för att hjälpa till att extrahera text eller siffror från en cell efter specifik position i Excel.

Jämför två kolumner för matchningar och skillnader i Excel
Här täcker den här artikeln de flesta möjliga scenarier av de två jämförande kolumnerna du kan möta, och hoppas att det kan hjälpa dig.



  • 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 åt dig varje dag!
officetab botten