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.
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.
Klicka för att ladda ner exempelfilen
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:
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.
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:
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.
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.
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. |
4. Tryck F5 eller klicka Körning Knappen i fönstret för att aktivera VBA-koden.
Nu har alla markerade celler lagts till texten "Iphone" i början.
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:
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.
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:
Aktivera sedan cellen under det första resultatet, klicka Data > Flashfyllning, kommer alla nedanstående celler inklusive den aktiva cellen att fyllas i automatiskt.
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.
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. |
4. Tryck F5 eller klicka Körning Knappen i fönstret för att aktivera VBA-koden.
Nu har texten "Kg" lagts till i slutet av varje cell.
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.
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.
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:
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.
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.
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) |
4. Tryck F5 eller klicka Körning Knappen i fönstret för att aktivera VBA-koden. En dialogruta öppnas för att markera celler för att lägga till text.
5. klick OK. Nu har texten ":" lagts till efter det andra tecknet i varje cell i intervallet B19:B23.
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.
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.
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.
Klicka Ansök or Ok för att avsluta tillägget.
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.
Klicka Ansök or Ok för att avsluta tillägget.
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:
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 Ansök.
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.
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:
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.
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:
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.
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 |
Lägg till tecken efter varje ord |
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.
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.
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
Lägg till efter varje ord exklusive det sista
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 |
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 |
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.
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 Körning Knappen ), en dialogruta dyker upp för att be dig att välja kontinuerliga celler för att fungera, klicka OK.
5. I den andra popup-dialogrutan skriver du de tecken du vill lägga till, klickar OK.
Sedan läggs tecknen till längst fram eller i slutet av varje ord.
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.
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.
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.
Om längden på siffror är 5 kommer formeln att ändras som =TEXT(B10,"# # # # #").
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.
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.
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. |
För att lägga till specifika tecken mellan texter och siffror enligt skärmbilden nedan, tillhandahålls här två metoder.
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.
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.
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.
Och tryck ctrl + E för att aktivera Flash Fill.
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.
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.
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.
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 Custom från Kategori sektion.
3. Sedan till höger Typ avsnitt, typ ###-###-### klicka i textrutan OK.
Nu har de valda siffrorna lagts till streck.
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.
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.
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.
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.
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 Custom 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.
Sedan har talen lagts till inledande nollor och i samma längd.
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.
Uppmärksamhet: om längden på originaldata överstiger den inställda längden, kommer den att visa originaldata utan inledande nollor. |
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 .
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.
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.
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.
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.
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 Custom från listan över Kategori, gå sedan till höger avsnitt för att skriva "'" "@" "" " i Typ textruta. Klick OK.
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.
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 & ")". |
4. Tryck F5 eller klicka Körning Knappen 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.
5. klick OK. Nu har citattecken lagts till runt texter i de markerade cellerna.
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.
Fall 1 lägg till text före formel
"Idag är "&TEXT(TODAY(),"dddd, mmmm dd.")
Fall 2 lägg till text efter formeln
TEXT(NU(),"TT:MM:SS")&" är den aktuella tiden."
Fall 3 lägg till texter på två sidor av formeln
"Idag sålde "&data&" kg."
Fler Excel-tutorials: |
Kombinera flera arbetsböcker/arbetsblad till ett Dela text-, nummer- och datumceller (dela upp i flera kolumner) Kombinera innehållet i flera celler utan att förlora data i Excel Jämför två kolumner för matchningar och skillnader i Excel |
De bästa Office-produktivitetsverktygen
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
- 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...
- 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!