Excel tilføjer tekst og tal til en specificeret celleposition
I Excel er tilføjelse af tekster eller tal til celler en meget almindelig opgave. Såsom tilføjelse af mellemrum mellem navne, tilføjelse af præfiks eller suffiks til celler, tilføjelse af bindestreger til sociale numre. Her i denne tutorial viser den næsten alle tilføjelsesscenarier i Excel og giver dig de tilsvarende metoder.
Bemærk
I denne tutorial opretter jeg nogle eksempler for at forklare metoderne, du kan ændre referencerne, som du har brug for, når du bruger nedenstående VBA-kode eller formler, eller du kan downloade eksemplerne til at prøve metoder direkte.
Klik for at downloade prøvefilen
Denne del viser forskellige metoder til at tilføje tegn til starten af hver celle som vist nedenfor skærmbillede:
1.1 Tilføj i begyndelsen af celler ved hjælp af formel
Her kan du vælge en af nedenstående tre formler:
Formel 1 Sammenkædningsoperatør "&"
Sammenføj flere tekster med et og-tegn "&".
"tekst"&celle
Formula2 CONCATENATE funktion
CONCATENATE-funktionen bruges til at sammenføje tekster.
CONCATENATE("tekst",celle)
Formula3 CONCAT funktion
Dette er en ny funktion, som kun vises i Excel 2019, Office 365 og Excel online.
CONCAT("tekst",celle)
I de generiske formler: celle er cellereferencen til den tekst, du vil tilføje præfiks til, og tekst er den tekst, der plejede at tilføje til cellen.
Ved at bruge eksemplet ovenfor kan du bruge formlerne i formellinjen som disse:
"&"
=$E$3&B3 or ="Iphone"&B3
CONCATENATE-funktion
=CONCATENATE($E$3;B3) or =CONCATENATE("Iphone",B3)
CONCAT funktion
=CONCAT($E$3;B3) or =CONCAT("Iphone",B3)
Presse Indtast tast for at få resultatet, og træk derefter autofyldhåndtaget ned for at tilføje tekst til hver celle i området B3:B6.
Opmærksomhed: Tekst skal være omgivet af dobbelte anførselstegn, eller formel returnerer en fejlværdi #NAVN?. Hvis du bruger cellereferencen til en tekst, så husk at bruge den absolutte reference, du kan trykke på F4-tasten for at ændre den relative reference til absolut reference. |
1.2 Tilføj i begyndelsen af celler med Flash Fill
Hvis du er i Excel 2013 eller nyere versioner, er den kraftfulde nye funktion, Flash Fill, kan udfylde cellerne baseret på ovenstående celler, du indtastede automatisk.
Vælg en celle ved siden af de første originale data, skriv manuelt de første data med præfiksteksten som vist nedenfor:
Fortsæt derefter med at skrive den anden data med præfikstekst i cellen nedenfor, under indtastningen vil en liste i grå farve blive vist, tryk Indtast tasten for at lade Flash Fill udfylde dataene automatisk.
Hvis forhåndsvisningslisten ikke genereres, skal du gå til fanen Hjem og derefter klikke Fyld > Flash Fill at køre det manuelt.
1.3 Tilføj i begyndelsen af celler ved hjælp af VBA-kode
Hvis du er bekendt med VBA-kode, introducerer du her en VBA-kode til at tilføje tekst i begyndelsen af hver celle i et område.
1. Vælg et celleområde, som du vil tilføje præfiksteksten, og tryk derefter på andre + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. Klik derefter i det åbne vindue indsatte > Moduler for at indsætte et tomt nyt modul.
3. Kopier og indsæt nedenstående VBA-kode til det nye modul.
VBA: Tilføj i begyndelsen af celler
Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub
Opmærksomhed: i kodescriptet, iphone er den tekst, du vil tilføje i begyndelsen af de valgte celler, skal du ændre den efter dit behov. |
4. Trykke F5 tast eller klik Kør . i vinduet for at aktivere VBA-koden.
Nu er alle markerede celler blevet tilføjet teksten "Iphone" i begyndelsen.
Bortset fra at tilføje tekst til begyndelsen af celler, er det også almindeligt at tilføje tekst til slutningen af celler. Her tager vi tilføjelse af enhed i slutningen af hver celle for eksempler som vist nedenfor skærmbillede:
2.1 Tilføj i slutningen af celler ved hjælp af formel
Her kan du vælge en af nedenstående tre formler:
Formel 1 Sammenkædningsoperatør "&"
Sammenføj flere tekster med et og-tegn "&".
Celle&"tekst"
Formula2 CONCATENATE funktion
CONCATENATE-funktionen bruges til at sammenføje tekster.
CONCATENATE(celle,"tekst")
Formula3 CONCAT funktion
Dette er en ny funktion, som kun vises i Excel 2019, Office 365 og Excel online.
KONCAT(celle,"tekst")
I de generiske formler: celle er cellereferencen til den tekst, du vil tilføje suffiks til, og tekst er den tekst, der plejede at tilføje til cellen.
Ved at bruge eksemplet ovenfor kan du bruge formlerne i formellinjen som disse:
"&"
=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 Indtast tast for at få resultatet, og træk derefter autofyldhåndtaget ned for at tilføje tekst til slutningen af hver celle i området B3:B6.
Opmærksomhed: Tekst skal være omgivet af dobbelte anførselstegn, eller formel returnerer en fejlværdi #NAVN?. Hvis du bruger cellereferencen til en tekst, så husk at bruge den absolutte reference, du kan trykke på F4-tasten for at ændre den relative reference til absolut reference. |
2.2 Tilføj i slutningen af celler ved hjælp af Flash Fill
Hvis du er i Excel 2013 eller nyere versioner, er den kraftfulde nye funktion, Flash Fill, kan udfylde cellerne baseret på ovenstående celler, du indtastede automatisk.
Vælg en celle ved siden af de første originale data, indtast manuelt de første data med suffikset som vist nedenfor:
Aktiver derefter cellen under det første resultat, klik data > Flash Fill, vil alle under celler inklusive den aktive celle blive udfyldt automatisk.
2.3 Tilføj i slutningen af celler ved hjælp af VBA-kode
Her er en VBA-kode, der kan tilføje tekst i slutningen af hver celle i et område.
1. Vælg en række celler, som du vil tilføje suffiksteksten, og tryk derefter på andre + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. Klik derefter i det åbne vindue indsatte > Moduler for at indsætte et tomt nyt modul.
3. Kopier og indsæt nedenstående VBA-kode til det nye modul.
VBA: Tilføj i slutningen af celler
Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub
Opmærksomhed: i kodescriptet, Kg er den tekst, du vil tilføje i slutningen af de valgte celler, skal du ændre den efter dit behov. |
4. Trykke F5 tast eller klik Kør . i vinduet for at aktivere VBA-koden.
Nu er teksten "Kg" tilføjet i slutningen af hver celle.
For de fleste af jer er det nemt at tilføje tekst til begyndelsen eller slutningen af celler, men det er måske lidt svært at tilføje tekster til midten af cellerne. Tag et eksempel, som vist på skærmbilledet nedenfor, ved at tilføje et skilletegn, såsom kolon : i slutningen af det andet tegn i hver celle i området B3:B7.
3.1 Tilføj efter n'te tegn i streng ved formel
Her er fire formler til rådighed for dig til at håndtere dette job, vælg en at bruge:
Formel1 Kombiner VENSTRE og HØJRE funktioner
VENSTRE(celle, n) & "tekst" & HØJRE(celle, LEN(celle) -n)
Formel2 KOMBINER CONCATENATE(CONCAT), HØJRE og LEN funktioner
CONCATENATE(VENSTRE(celle; n); "tekst", HØJRE(celle; LEN(celle) -n))
Or
KONCAT(VENSTRE(celle; n); "tekst", HØJRE(celle; LÆNGE(celle) -n))
Formula3 REPLACE funktion
REPLACE(celle; n+1; 0; "tekst")
I de generiske formler: celle er cellereferencen til den tekst, du vil tilføje tekst i midten, og tekst er den tekst, der plejede at tilføje til cellen, n er tallet definerer efter hvilket tegn i tekststrengen du vil tilføje tekst.
For at løse opgaven nævnt ovenfor, brug venligst formlerne som disse:
Kombiner VENSTRE og HØJRE funktioner
=VENSTRE(B3; 2) & ":" & HØJRE(B3; LEN(B3) -2) or =VENSTRE(B3, 2) & $E$3 & HØJRE(B3, LEN(B3) -2)
KOMBINER CONCATENATE(CONCAT), RIGHT og LEN funktionerne
=SAMMENHÆNG(VENSTRE(B3; 2); ":", HØJRE(B3; LEN(B3) -2)) or =CONCAT (VENSTRE(B3, 2), ":", HØJRE(B3, LEN(B3) -2))
ERSTAT-funktion
=ERSTAT(B3; 2+1; 0; ":") or =ERSTAT(B3; 2+1; 0; 3$E$)
Presse Indtast tast for at få resultatet, og træk derefter autofyldhåndtaget ned for at tilføje tekst efter andet tegn i hver celle i området B3:B7.
Opmærksomhed: Tekst skal være omgivet af dobbelte anførselstegn, eller formel returnerer en fejlværdi #NAVN?. Hvis du bruger cellereferencen til en tekst, så husk at bruge den absolutte reference, du kan trykke på F4-tasten for at ændre den relative reference til absolut reference. |
3.2 Tilføj efter n'te tegn i streng med Flash Fill
Hvis du er i Excel 2013 eller nyere versioner, Flash Fill, kan udfylde cellerne baseret på ovenstående celler, du indtastede automatisk.
Vælg en celle ved siden af de første originale data, skriv manuelt de første data med et kolon efter det andet tegn som vist nedenfor:
Aktiver derefter cellen under det første resultat, tryk Ctrl + E tasterne for at aktivere Flash Fill kommando, er alle nedenstående celler inklusive den aktive celle blevet udfyldt automatisk.
Opmærksomhed: Hvis du er i MAC-systemet, skal du trykke på Kommando + E-tasterne. |
3.3 Tilføj efter n'te tegn i streng ved at bruge VBA-kode
En VBA-kode kan også gøre dette job.
1. Trykke andre + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. Klik derefter i det åbne vindue indsatte > Moduler for at indsætte et tomt nyt modul.
3. Kopier og indsæt nedenstående VBA-kode til det nye modul.
VBA: Tilføj til midten af 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
Opmærksomhed: i kodescriptet, 2 er tallet definerer den position, du vil tilføje tekst efter, : er den tekst, du vil føje til, 3 er summen af 2 og længden af tekst, du tilføjer. Tag et andet eksempel, for at tilføje "og" efter det første tegn i strengen "AB", skal scriptet være Rng.Value = VBA.Left(Rng.Value, 1) & "," & VBA.Mid(Rng.Value, 4, VBA.Len(Rng.Value) - 1) |
4. Trykke F5 tast eller klik Kør . i vinduet for at aktivere VBA-koden. Der åbnes en dialogboks for at vælge celler for at tilføje tekst.
5. klik OK. Nu er teksten ":" blevet tilføjet efter det andet tegn i hver celle i området B19:B23.
Hvis du er træt af formler og VBA, kan du prøve et kraftfuldt og handy værktøj, Kutools til Excel, som kan hjælpe dig med sit tilføje tekst funktion.
Denne Tilføj tekst-funktion kan:
- Tilføj tekst før første tegn
- Tilføj tekst efter sidste tegn
- Tilføj tekst på angivne positioner
- Extension
Tilføj tekst før store bogstaver
Tilføj tekst før små bogstaver
Tilføj tekst før store/små bogstaver
Tilføj tekst før numeriske tegn
Klik for at få 30-dages gratis prøveperiode nu.
Vælg de celler, du vil tilføje tekst, og anvend derefter Tilføj tekst ved at klikke Kutools > tekst > tilføje tekst.
4.1 Tilføj tekst før første tegn eller efter sidste tegn
I tilføje tekst dialogboksen skal du skrive den tekst, du vil føje til celler i tekst tekstboks, og tjek derefter Før første karakter i Position sektion.
Klik Indløs or Ok for at afslutte tilføjelsen.
For at tilføje tekst efter sidste tegn skal du skrive den tekst, du vil tilføje til celler i tekst tekstboks, og tjek derefter Efter sidste karakter i Position sektion.
Klik Indløs or Ok for at afslutte tilføjelsen.
4.2 Tilføj tekst på angivne position(er)
Nogle gange vil du måske tilføje tekst til midten af cellen eller tilføje tekst til flere positioner i cellen. Antag, at man tilføjer separator "-" efter det tredje og syvende ciffer i de sociale numre som vist nedenfor skærmbillede:
I tilføje tekst dialogboks skal du skrive teksten ind tekst tekstboks, og tjek Angiv mulighed, skriv derefter positionerne ved hjælp af komma til at adskille i tekstboksen og klik derefter Ok or Indløs.
4.3 Udvidelse af værktøjet Tilføj tekst
Udover at tilføje tekst til de normale positioner (begyndelse, slutning og specificeret position), tilføje tekst værktøjet understøtter også at tilføje tekst
- Før store bogstaver
- Før små bogstaver
- Før store/små bogstaver
- Før numeriske tegn
I tilføje tekst dialogboks skal du skrive teksten ind tekst tekstboks, og tjek Føj kun til mulighed, og klik derefter på rullemenuen nedenfor for at vælge den handling, du har brug for.
Denne del indeholder formler for tilføjelse af tekst før eller efter den først dukkede specifikke tekst i Excel.
5.1 Tilføj tekst før den første specifikke tekst
For eksempel vil du tilføje teksten "(udsalg)" før den første tekst "pris" i cellen som vist nedenfor skærmbilleder:
I Excel kan ERSTAT- og ERSTAT-funktionerne løse dette job.
ERSTAT-funktion
REPLACE(celle,FIND("find_tekst",celle),0,"tilføj_tekst")
SUBSTITUTE-funktion
SUBSTITUTE(celle,"find_tekst","erstat_tekst",1)
I dette tilfælde skal du bruge ovenstående formler som disse:
=REPLACE(B4,FIND("pris",B4);0,"(udsalg)")
Or
=SUBSTITUTE(B4,"pris","(udsalg)pris",1)
Formelargumenterne i dette tilfælde er
Celle: B4,
Find_tekst: pris,
Tilføj_tekst: (udsalg),
Erstat_tekst:(udsalgs)pris.
Presse Indtast tasten for at få det første tilføjelsesresultat, og træk derefter autofyldhåndtaget hen over celler, der har brug for denne formel.
5.2 Tilføj tekst efter den første specifikke tekst
For eksempel vil du tilføje valutasymbol "$" efter det første kolon ":" i cellen som vist nedenfor skærmbilleder:
I Excel kan ERSTAT- og ERSTAT-funktionerne løse dette job.
ERSTAT-funktion
REPLACE(celle,FIND("find_tekst",celle),find_tekst_længde,"erstat_tekst")
SUBSTITUTE-funktion
SUBSTITUTE(celle,"find_tekst","erstat_tekst")
I dette tilfælde skal du bruge ovenstående formler som disse:
=ERSTAT(B12,FIND(":",B12),1,":$")
Or
=SUBSTITUD(B12,":",":$")
Formelargumenterne i dette tilfælde er
Celle: B12,
Find_tekst: :,
Erstat_tekst::$.
Find_tekst_længde:1
Presse Indtast tasten for at få det første tilføjelsesresultat, og træk derefter autofyldhåndtaget hen over celler, der har brug for denne formel.
I denne del af selvstudiet introducerer den tre forskellige metoder (formel, Find og Erstat, VBA) for at hjælpe dig med at tilføje tegn før eller efter hvert ord i cellen.
Tilføj tegn før hvert ord |
Tilføj tegn efter hvert ord |
6.1 Tilføj tegn før eller efter hvert ord ved hjælp af formel
ERSTAT-funktionen kan bruges til at løse dette job, de generelle formler som disse:
Tilføj før hvert ord
"tegn"&SUBSTITUTE(streng, ""," tegn")
Tilføj efter hvert ord
SUBSTITUTE(streng," ","tegn ")&"tegn"
Hvis du antager, at du tilføjer "+" før hvert ord i listen over B3:B6, skal du bruge formlen som denne:
="+"&SUBSTITUTE(B3; " "," +")
Presse Indtast tast for at få det første resultat, og træk derefter autofyldhåndtaget ned for at få alle resultater.
Hvis du antager, at du tilføjer ($) efter hvert ord på listen B11:B14, skal du bruge formlen som nedenfor:
=SUBSTITUTER(B11," ","($) ")&"($)"
Presse Indtast tast for at få det første resultat, og træk derefter autofyldhåndtaget ned for at få alle resultater.
6.2 Tilføj tegn før eller efter hvert ord ved hjælp af Find og Erstat
Hvis du vil tilføje tegn før hvert ord undtagen det første, eller tilføje tegn efter hvert ord undtagen det sidste som vist nedenfor, kan Excel indbygget Søg og erstat værktøj kan klare dette job.
Tilføj før hvert ord undtagen det første
Tilføj efter hvert ord undtagen det sidste
1. Vælg de celler, som du vil tilføje tegn før eller efter hvert ord, og tryk derefter på Ctrl + H for at aktivere Søg og erstat dialogen.
2. Indtast et mellemrum i Find hvad tekstboks, og skriv derefter de nye tegn med mellemrum i Erstat med tekstboksen, og klik til sidst på Erstat alle .
Produktion | Generelt | Eksempel |
Tilføj tegn før hvert ord | Tilføj nye tegn efter et mellemrum | Tilføj (salg) før hvert ord |
Produktion | Generelt | Eksempel |
Tilføj tegn efter hvert ord | Nye karakterer fulgte med et mellemrum | Tilføj - efter hvert ord |
Her giver to VBA-koder til at tilføje tegn før eller efter hvert ord. Kør venligst koden ved at følge nedenstående trin.
1. Trykke andre + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. Klik på i poppevinduet indsatte > Moduler for at indsætte et nyt tomt modul.
3. Kopiér og indsæt nedenstående VBA-kode til modulet.
Tilføj før hvert 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
Tilføj efter hvert 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. Trykke F5 tasten for at køre koden (eller du kan klikke Kør . ), dukker en dialog op for at bede dig om at vælge kontinuerlige celler for at fungere, klik OK.
5. Indtast de tegn, du vil tilføje, i den anden pop-out-dialog, klik OK.
Derefter tilføjes tegnene forrest eller i slutningen af hvert ord.
Nogle gange vil du måske tilføje tekst mellem hvert tegn. Her i denne del oplister den to scenarier, et er at tilføje tekst mellem hvert tegn, et andet er at tilføje mellemrum mellem hvert tal.
7.1 Tilføj tekst mellem hvert tegn/ciffer med brugerdefineret funktion
For at tilføje tegn mellem hvert tegn i en streng, kan den brugerdefinerede funktion hjælpe dig.
I dette tilfælde tilføjer vi et mellemrum mellem hvert tegn.
1. Trykke andre + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. Klik på i poppevinduet indsatte > Moduler for at indsætte et nyt tomt modul.
3. Kopiér og indsæt nedenstående VBA-kode til modulet.
Tilføj tekst mellem tegn
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. Gem koden og luk vinduet for at gå tilbage til regnearket, og skriv derefter nedenstående formel i en celle, hvor du vil placere tilføjelsesresultatet.
=Tilføj tekst(B3)
B3 er cellen, der indeholder den streng, som du vil tilføje mellemrum mellem tegn.
5. Trykke Indtast for at få resultatet, træk autofyldhåndtaget hen over cellerne for at få andre resultater, som du har brug for.
Opmærksomhed: 1) I VBA-koden kan du ændre "" til andre tekster, som du har brug for, hvis du antager, at du ændrer det til "-" at tilføje - mellem tegn. 2) Koden tilføjer den nye tekst efter hvert tegn. Du kan fjerne den sidst tilføjede tekst, hvis du ikke har brug for det, ved at bruge nedenstående formel. For flere detaljer om formlen, besøg venligst: Sådan fjerner du første eller sidste N-tegn fra en celle eller streng i Excel? VENSTRE(celle;LEN(celle)-tekstlængde) |
7.2 Tilføj mellemrum mellem hvert tal med formlen
Hvis du vil tilføje mellemrum mellem cifrene i en streng, som er en numerisk værdi, kan du bruge TEKST-funktionen.
Opmærksomhed: antallet af intervaller, du vil tilføje mellemrum mellem, skal være i samme længde, ellers kan nogle resultater være forkerte. |
Antag, at her er en liste over 8-cifrede tal i området B10:B12, vælg venligst en celle, der vil placere resultatet, skriv nedenstående formel:
=TEKST(B10,"# # # # # # # #")
Presse Indtast tast, og træk derefter autofyldhåndtaget hen over andre celler.
Hvis længden af tal er 5, vil formlen blive ændret som =TEKST(B10,"# # # # #").
Hvis du vil tilføje tegn mellem hvert ord, forudsat at tilføje mellemrum mellem for-, mellem- og efternavne som vist nedenfor, kan du bruge en brugerdefineret funktion.
1. Trykke andre + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. Klik på i poppevinduet indsatte > Moduler for at indsætte et nyt tomt modul.
3. Kopiér og indsæt nedenstående VBA-kode til modulet.
Tilføj tegn mellem ord
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. Gem koden og luk vinduet for at gå tilbage til regnearket, og skriv derefter nedenstående formel i en celle, hvor du vil placere tilføjelsesresultatet.
=Tilføj tegn(B3)
B3 er cellen, der indeholder den streng, som du vil tilføje mellemrum mellem ord.
5. Trykke Indtast for at få resultatet, træk autofyldhåndtaget hen over cellerne for at få andre resultater, som du har brug for.
Opmærksomhed: i VBA-koden kan du ændre "" til andre tekster, som du har brug for, hvis du antager, at du ændrer det til "-" at tilføje - mellem ord. |
For at tilføje specifik(e) karakter(er) mellem tekster og tal som vist nedenfor skærmbilledet, giver her to metoder.
9.1 Tilføj tegn mellem tekster og tal med formel
Hvis teksterne står foran tallene, er den generiske formel
TRIM(REPLACE(streng,MIN(FIND({1,2,3,4,5,6,7,8,9,0},streng&"1234567890")),0,"-"))
Brug ovenstående tilfælde som eksempel, brug formlen som denne:
=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))
Presse Indtast tast for at få det første resultat, og træk derefter autofyldhåndtaget over andre celler for at udfylde denne formel.
Hvis tallene står foran teksterne, er den generiske formel
VENSTRE(streng,SUM(LÆNG(streng)-LÆNGE(SUBSTITUTE(streng;{0,1,2,3,4,5,6,7,8,9},""))))&"."&HØJRE (string,LEN(B13)- SUM(LEN(streng)-LEN(SUBSTITUTE(streng, {0,1,2,3,4,5,6,7,8,9}, ""))))
Brug ovenstående tilfælde som et eksempel, brug formlen som denne:
=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 Indtast tast for at få det første resultat, og træk derefter autofyldhåndtaget over andre celler for at udfylde denne formel.
9.2 Tilføj tegn mellem tekster og tal med Flash Fill
Hvis du er i Excel 2013 eller nyere versioner, Flash Fill kan også hjælpe dig med at tilføje tegn mellem tekster og tal.
Ud for de originale data skal du skrive de nye data, som er tilføjet tegn/tegn mellem tekster og tal. Tryk derefter på Enter-tasten for at gå til den næste celle i det første resultat.
Og tryk Ctrl + E tasterne for at aktivere Flash Fill.
Extension
Denne vejledning viser også nogle scenarier om tilføjelse af tekst, som vi kan møde i vores daglige liv eller arbejde.
Nogle gange skal du tilføje separatorer såsom bindestreger til en serie af telefonnumre eller sociale numre som vist nedenfor. Manuel indtastning vil blive forsøgt, hvis der er hundredvis af numre, der skal tilføjes. I denne del introducerer den tre trick-måder til at håndtere dette job hurtigt.
10.1 Tilføj bindestreger til tal efter formel
Her er to formler, der hurtigt kan tilføje bindestreger til tal. For at tilføje bindestreger efter det tredje og sjette tal i celle B3, skal du bruge formlen som disse:
ERSTAT-funktion
=ERSTAT(UDSKIFT(B3,4,0;8,0;XNUMX,"-"),XNUMX,"-")
TEKST-funktion
=TEKST(B3,"???-???-??? ")
Presse Indtast tast for at få det første resultat, og træk derefter autofyldhåndtaget hen over andre celler.
Opmærksomhed: Du kan ændre ovenstående formlers argumenter efter behov. Antag tilføje "-" efter det andet, fjerde og sjette ciffer kan du bruge formlerne som: =ERSTAT(UDSKIFT(ERSTAT(B3,3,0,"-"),6,0,"-"),9,0,"-") =TEKST(B3,"??-??-??-??? ") |
10.2 Tilføj bindestreger til tal ved at formatere celler
For direkte at tilføje bindestreger til tallene i de originale celler, kan du bruge formater celler funktion.
1. Vælg de tal, du vil tilføje bindestreger til, og tryk derefter på Ctrl + 1 for at aktivere formater celler dialogen.
2. i formater celler under dialogboksen nummer fanebladet, vælg Tilpasset fra Boligtype sektion.
3. Så til højre Type sektion, type ###-###-### klik i tekstboksen OK.
Nu er de valgte tal blevet tilføjet tankestreger.
10.3 Tilføj bindestreger til telefonnummer ved at tilføje tekst fra Kutools til Excel
Hvis du har Kutools til Excel installeret i Excel, den tilføje tekst funktion kan også gøre dig en tjeneste.
1. Vælg de celler, der indeholder de tal, der skal tilføjes bindestreger, klik Kutools > tekst > Tilføj tekst.
2. i tilføje tekst dialogboks, skriv bindestreg eller anden separator i tekst tekstboks, vælg Angiv mulighed, og skriv derefter de positioner, du vil tilføje bindestreger efter, og adskil dem med kommaer i tekstfeltet nedenfor.
3. klik Ok eller Ansøg. Så er de valgte tal blevet tilføjet tankestreger.
Gratis download Tilføj tekst for 30-dages prøveversion.
Hvis du antager, at der er en liste over tal i forskellige længder, vil du tilføje indledende nuller for at få dem til at have samme længde og se pæne ud som vist nedenfor. Her er to metoder, som du kan klare opgaven på.
11.1 Tilføj indledende nuller til celler med funktionen Formater celler
Du kan bruge formater celler funktion til at indstille et brugerdefineret format til at fastsætte cellelængden ved at tilføje foranstillede nuller.
1. Vælg de celler, som du vil tilføje foranstillede nuller, og tryk derefter på Ctrl + 1 taster for at aktivere formater celler dialogen.
2. i formater celler under dialogboksen nummer fanebladet, vælg Tilpasset fra Boligtype sektion.
3. Så til højre Type sektion, type 0000 ind i tekstboksen (for at fastsætte nummerlængden til 4-dight, skriv 0000, du kan ændre den til en anden længde, såsom 5-dight, skriv 00000), klik OK.
Så er tallene blevet tilføjet foranstillede nuller og i samme længde.
Opmærksomhed: hvis længden af de originale data overstiger den indstillede længde, vil den vise de originale data uden indledende nuller. |
11.2 Tilføj indledende nuller til celler med formel
Hvis du ikke vil ændre de originale data, kan du bruge formlen til at tilføje indledende nuller til tal andre steder.
Her er tre funktioner, der kan hjælpe dig.
Formel1 TEKST funktion
TEXT(tal,"00...")
Formel2 HØJRE funktion
HØJRE ("00..."&tal, længde)
Formula3 BASE funktion
BASE(tal;10;længde)
Antallet af nuller i formlen er lig med længden af tallet.
Her indstiller du 4-cifret som længden af tallene, brug venligst formlerne som nedenfor:
= TEKST (B10, "0000")
=HØJRE("0000"&B10,4)
=GRUNDLAG(B10,10,4;XNUMX;XNUMX)
Presse Indtast tast og træk håndtaget til autofyld ned.
Opmærksomhed: hvis længden af de originale data overstiger den indstillede længde, vil den vise de originale data uden indledende nuller. |
Hvis du vil tilføje efterfølgende nuller til tal for at lave en fast længde, hvis du antager at tilføje efterfølgende nuller til tallene i celle B3:B7 for at gøre dem i 5-cifrede længder som vist nedenfor, kan du anvende en formel til at håndtere opgaven .
REPT funktion
tal&REPT("0",længde-LEN(tal))
I formlen repræsenterer argumentet "tal" det tal eller en cellereference, som du vil tilføje efterfølgende nuller, og argumentet "længde" er den faste længde, du ønsker.
Brug formlen som denne:
=B3&REPT("0",5-LEN(B3))
Presse Indtast tast og træk autofyldhåndtaget ned til celler, der har brug for denne formel.
Hvis du ønsker at eksportere eller kopiere data fra et regneark til en notesblok, kan teksterne placeres uryddeligt, da celleværdierne er i forskellige længder, for at få dem til at se pæne ud som vist nedenfor på skærmbilledet, skal du tilføje efterfølgende plads.
For at løse dette job kan REPT-funktionen gøre dig en tjeneste.
VENSTRE(tekst & REPT(" ",max_længde),max_længde)
I formlen er argumentet "tekst" den tekst eller cellehenvisningen, som du vil tilføje efterfølgende mellemrum, og argumentet "max_length" er den faste længde, du vil lave teksterne, som skal være længere end eller lig med maksimal længde på de brugte tekster.
For at tilføje efterfølgende plads til teksterne i celle B3:C6, brug venligst nedenstående formel:
=VENSTRE(B3 & REPT(" ";10);10)
Presse Indtast tast, og træk derefter autofyldhåndtaget over til alle celler, der skal bruge denne formel.
I dette tilfælde, da den længste af den brugte tekst er på 9 tegn, bruger vi 10 her.
Nogle gange skal du tilføje anførselstegn eller parenteser rundt om teksten eller tallene i celler som vist nedenfor på skærmbilledet, undtagen manuel indtastning en efter en, her er to metoder i Excel, der hurtigt kan løse det.
14.1 Tilføj anførselstegn/parenteser rundt om ved Formater celler
Hvis du vil tilføje anførselstegn omkring tekst i de originale data, kan funktionen Formater celler i Excel hjælpe dig.
1. Vælg de celler, du vil tilføje anførselstegn, tryk på Ctrl + 1 for at aktivere formater celler dialogen.
2. i formater celler dialog under nummer fanebladet, vælg Tilpasset fra listen over Boligtype, gå derefter til højre sektion for at skrive "'" "@"' '" ind i Type tekstboks. Klik på OK.
Teksten i markerede celler er tilføjet rundt med anførselstegn.
Hvis du vil tilføje parenteser omkring teksten, skal du bruge tekstboksen Type i dialogboksen Formater celler (@).
14.2 Tilføj anførselstegn/parenteser rundt om ved formler
Formler kan også bruges til at tilføje anførselstegn til tekst i andre celler.
Brug & stik
""""&tekst&""""
Or
char(34)&tekst&char(34)
I dette tilfælde, tekst i celle B11, brug venligst formlerne som disse:
=""""&B11&""""
Or
=char(34)&B11&char(34)
Presse Indtast tast og træk autofyldhåndtaget ned for at udfylde celler.
Hvis du vil tilføje parenteser omkring tekst, skal du bruge formlen som "("&tekst&")".
14.3 Tilføj anførselstegn/parenteser rundt om af VBA
Hvis du har brug for VBA-kode for at løse dette job, er her en VBA.
1. Trykke andre + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. Klik derefter i det åbne vindue indsatte > Moduler for at indsætte et tomt nyt modul.
3. Kopier og indsæt nedenstående VBA-kode til det nye modul.
VBA: Tilføj anførselstegn omkring tekster
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
Opmærksomhed: i kodescriptet, """" & Rng.Value & """" angiver at tilføje "" rundt om teksterne, hvis du vil tilføje parenteser () omkring tekst, skal du ændre det til "(" & Rng.Value & ")". |
4. Trykke F5 tast eller klik Kør . i vinduet for at aktivere VBA-koden. Der åbnes en dialogboks for at vælge celler for at tilføje anførselstegn.
5. klik OK. Nu er anførselstegnene blevet tilføjet omkring tekster i de valgte celler.
Nogle gange, for at hjælpe andre brugere med bedre at forstå data, skal du muligvis tilføje tekst i formelresultaterne som vist nedenfor. For at inkludere tekst i formlen kan du bruge anførselstegnene omkring teksten og tilføje &-forbindelsen for at kombinere teksten og formlen.
Tilfælde 1 tilføje tekst før formel
"I dag er "&TEXT(TODAY(),"dddd, mmmm dd.")
Case 2 tilføje tekst efter Formula
TEXT(NU(),"TT:MM:SS")&" er det aktuelle tidspunkt."
Case 3 tilføjer tekster på to sider af formlen
"I dag solgte "&data&" kg."
Flere Excel-tutorials: |
Kombiner flere arbejdsbøger/arbejdsark til én Opdel tekst-, tal- og datoceller (adskilles i flere kolonner) Kombiner indholdet af flere celler uden at miste data i Excel Sammenlign to kolonner for match og forskelle i Excel |
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner og opbevaring af data; Split celler indhold; Kombiner duplikatrækker og sum / gennemsnit... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Foretrukne og hurtigt indsætte formler, Områder, diagrammer og billeder; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Pivottabelgruppering efter ugenummer, ugedag og mere ... Vis ulåste, låste celler ved forskellige farver; Fremhæv celler, der har formel / navn...
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!