Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

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.

Navigationerne i denne vejledning

1. Tilføj til starten af ​​hver celle

1.1 Tilføj i begyndelsen af ​​celler ved hjælp af formel

1.2 Tilføj i begyndelsen af ​​celler med Flash Fill

1.3 Tilføj i begyndelsen af ​​celler ved hjælp af VBA-kode

2. Tilføj til slutningen af ​​hver celle

2.1 Tilføj i slutningen af ​​celler ved hjælp af formel

2.2 Tilføj i slutningen af ​​celler ved hjælp af Flash Fill

2.3 Tilføj i slutningen af ​​celler ved hjælp af VBA-kode

3. Tilføj til midten af ​​strengen

3.1 Tilføj efter n'te tegn i streng ved formel

3.2 Tilføj efter n'te tegn i streng med Flash Fill

3.3 Tilføj efter n'te tegn i streng ved at bruge VBA-kode

4. Tilføj tekst med Kutools til Excel (tilføj tegn til specifik position efter behov)

4.1 Tilføj tekst før første tegn eller efter sidste tegn

4.2 Tilføj tekst på angivne position(er)

4.3 Udvidelse af værktøjet Tilføj tekst

5. Tilføj tekst før eller efter den første specifikke tekst

5.1 Tilføj tekst før den første specifikke tekst

5.2 Tilføj tekst efter den første specifikke tekst

6. Tilføj tegn før eller efter hvert ord

6.1 Tilføj tegn før eller efter hvert ord ved hjælp af formel

6.2 Tilføj tegn før eller efter hvert ord ved hjælp af Find og Erstat

6.3 Tilføj tegn før eller efter hvert ord ved hjælp af VBA-kode

7. Tilføj tekst mellem tegn

7.1 Tilføj tekst mellem hvert tegn/ciffer med brugerdefineret funktion

7.2 Tilføj mellemrum mellem hvert tal med formlen

8. Tilføj tegn mellem hvert ord

9. Tilføj tegn mellem tekster og tal

9.1 Tilføj tegn mellem tekster og tal med formel

9.2 Tilføj tegn mellem tekster og tal med Flash Fill

10. Tilføj bindestreger til telefonnumre/sociale numre

10.1 Tilføj bindestreger til tal efter formel

10.2 Tilføj bindestreger til tal ved at formatere celler

10.3 Tilføj bindestreger til telefonnummer ved at tilføje tekst fra Kutools til Excel

11. Tilføj indledende nuller til celler for at fastlægge længden

11.1 Tilføj indledende nuller til celler med funktionen Formater celler

11.2 Tilføj indledende nuller til celler med formel

12. Tilføj efterfølgende nuller til tal for at fastlægge længden

13. Tilføj efterfølgende mellemrum til tekst

14. Tilføj anførselstegn/parenteser omkring tekst eller tal

14.1 Tilføj anførselstegn/parenteser rundt om ved Formater celler

14.2 Tilføj anførselstegn/parenteser rundt om ved formler

14.3 Tilføj anførselstegn/parenteser rundt om af VBA

15. Tilføj tekst til formelresultatet direkte

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.

doc-prøveKlik for at downloade prøvefilen


1. Tilføj til starten af ​​hver celle

Denne del viser forskellige metoder til at tilføje tegn til starten af ​​hver celle som vist nedenfor skærmbillede:
doc tilføje ved start 1

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.
doc tilføje ved start 1

 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:
doc tilføje ved start 1

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.
doc tilføje ved start 1doc tilføje ved start 1

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.
doc tilføje ved start 1

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 Every 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.

doc tilføje ved start 1

4. Trykke F5 tast eller klik Kørdoc tilføje ved start 1 i vinduet for at aktivere VBA-koden.

Nu er alle markerede celler blevet tilføjet teksten "Iphone" i begyndelsen.
doc tilføje ved start 1


2. Tilføj til slutningen af ​​hver celle

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:
doc tilføje i slutningen 1

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.
doc tilføje i slutningen 1

 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:
doc tilføje i slutningen 1

Aktiver derefter cellen under det første resultat, klik data > Flash Fill, vil alle under celler inklusive den aktive celle blive udfyldt automatisk.
doc tilføje i slutningen 1
doc tilføje i slutningen 1

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.
doc tilføje ved start 1

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 Every c In Selection Hvis c.Value <> "" Så 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. 

doc tilføje ved start 1

4. Trykke F5 tast eller klik Kørdoc tilføje ved start 1 i vinduet for at aktivere VBA-koden.

Nu er teksten "Kg" tilføjet i slutningen af ​​hver celle.
doc tilføje ved start 1


3. Tilføj til midten af ​​strengen

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.
doc tilføje til midterste 1

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.
doc tilføje til midterste 1

 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:
doc tilføje til midterste 1

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.
doc tilføje til midterste 1

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.
doc tilføje ved start 1

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 Ved fejl Genoptag næste xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Hver 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) & "og" & VBA.Mid(Rng.Value, 4, VBA.Len(Rng.Value) - 1) 

doc tilføje ved start 1

4. Trykke F5 tast eller klik Kørdoc tilføje ved start 1 i vinduet for at aktivere VBA-koden. Der åbnes en dialogboks for at vælge celler for at tilføje tekst.
doc tilføje ved start 1

5. klik OK. Nu er teksten ":" blevet tilføjet efter det andet tegn i hver celle i området B19:B23.
doc tilføje ved start 1


4. Tilføj tekst med Kutools til Excel (tilføj tegn til specifik position efter behov)

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.
doc tilføj tekst 1

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.
doc tilføj tekst 1
4.1 Tilføj tekst før første tegn eller efter sidste tegn


I boksen 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.
doc tilføj tekst 1

Klik på Indløs or Ok for at afslutte tilføjelsen.
doc tilføj tekst 1

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.
doc tilføj tekst 1

Klik på Indløs or Ok for at afslutte tilføjelsen.
doc tilføj tekst 1

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:
doc tilføj tekst 1

I boksen 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.
doc tilføj tekst 1

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 boksen 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.
doc tilføj tekst 1
doc tilføj tekst 1

Bortset fra Tilføj tekst-funktionen har Kutools til Excel andre 300+ nyttige funktioner, som kan gøre dig en tjeneste i Excel forskellige job, få den gratis download nu.


5. Tilføj tekst før eller efter den første specifikke tekst

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:
doc tilføj tekst 1

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.
doc tilføj tekst 1

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:
doc tilføj tekst 1

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.
doc tilføj tekst 1


6. Tilføj tegn før eller efter hvert ord

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 
doc tilføje før hvert ord 1
Tilføj tegn efter hvert ord
doc tilføje før hvert ord 1

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.
doc tilføje før hvert ord 1

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.
doc tilføje før hvert ord 1

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
doc tilføje før hvert ord 1

Tilføj efter hvert ord undtagen det sidste
doc tilføje før hvert ord 1

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

doc tilføje før hvert ord 1doc tilføje før hvert ord 1

Produktion Generelt Eksempel
Tilføj tegn efter hvert ord Nye karakterer fulgte med et mellemrum Tilføj - efter hvert ord

doc tilføje før hvert ord 1doc tilføje før hvert ord 1

6.3 Tilføj tegn før eller efter hvert ord ved hjælp af VBA-kode

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.
doc tilføje før hvert ord 1

3. Kopiér og indsæt nedenstående VBA-kode til modulet.

Tilføj før hvert ord

Sub InsertCharBeforeWord() 'UpdateByExtendOffice
Dim ws As regneark 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("Vælg celler(kontinuerlig) ):", "Kutools for Excel", xSRg.Address, , , , , 8) Hvis xRg er ingenting, skal du afslutte Sub xInStr = Application.InputBox("Skriv tegn, du vil tilføje:", "Kutools for Excel", " ", , , , , 2) Hvis StrPtr(xInStr) = 0 Afslut Sub Application.ScreenUpdating = Falsk for hver xCell i xRg xArr = Split(xCell.Text, " ") xValue = "" For hver xStr i 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 regneark 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("Vælg celler(kontinuerlig) ):", "Kutools for Excel", xSRg.Address, , , , , 8) Hvis xRg er ingenting, skal du afslutte Sub xInStr = Application.InputBox("Skriv tegn, du vil tilføje:", "Kutools for Excel", " ", , , , , 2) Hvis StrPtr(xInStr) = 0 Afslut Sub Application.ScreenUpdating = Falsk for hver xCell i xRg xArr = Split(xCell.Text, " ") xValue = "" For hver xStr i 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ørdoc tilføje ved start 1 ), dukker en dialog op for at bede dig om at vælge kontinuerlige celler for at fungere, klik OK.
doc tilføje før hvert ord 1

5. Indtast de tegn, du vil tilføje, i den anden pop-out-dialog, klik OK.
doc tilføje før hvert ord 1

Derefter tilføjes tegnene forrest eller i slutningen af ​​hvert ord.


7. Tilføj tekst mellem tegn

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.
doc tilføje før hvert ord 1

3. Kopiér og indsæt nedenstående VBA-kode til modulet.

Tilføj tekst mellem tegn

Funktion AddText(Str As String) As String Dim i As Long For i = 1 To Len(Str) AddText = AddText & Mid(Str, i, 1) & " " Næste i AddSpace = Trim(AddSpace) Slutfunktion

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.
doc tilføje før hvert ord 1

 

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.
doc tilføje før hvert ord 1

Hvis længden af ​​tal er 5, vil formlen blive ændret som =TEKST(B10,"# # # # #").


8. Tilføj tegn mellem hvert ord

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.
doc tilføje før hvert ord 1

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

Funktion Tilføj Characters(pValue As String) Som String 'UpdatebyExtendoffice20160908 Dim xOut As String xOut = VBA.Left(pValue, 1) For i = 2 Til VBA.Len(pValue) xAsc = VBA.Asc(VBA.Mid(pValue, i, 1)) Hvis xAsc >= 65 Og xAsc <= 90 Så 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.
doc tilføje før hvert ord 1

 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.

9. Tilføj tegn mellem tekster og tal

For at tilføje specifik(e) karakter(er) mellem tekster og tal som vist nedenfor skærmbilledet, giver her to metoder.
doc tilføje mellem tekst og nummer 1

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.
doc tilføje mellem tekst og nummer 1

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.
doc tilføje mellem tekst og nummer 1

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.
doc tilføje mellem tekst og nummer 1

Og tryk Ctrl + E tasterne for at aktivere Flash Fill.
doc tilføje mellem tekst og nummer 1

Extension

Denne vejledning viser også nogle scenarier om tilføjelse af tekst, som vi kan møde i vores daglige liv eller arbejde.


10. Tilføj bindestreger til telefonnumre/sociale numre

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.
doc tilføje bindestreger til tal 1

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.
doc tilføje bindestreger til tal 1

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.
doc tilføje bindestreger til tal 1

Nu er de valgte tal blevet tilføjet tankestreger.
doc tilføje bindestreger til tal 1

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.
doc tilføje bindestreger til tal 1

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.
doc tilføje bindestreger til tal 1

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.


11. Tilføj indledende nuller til celler for at fastlægge længden

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å.
doc tilføj ledende nuller 1

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.
doc tilføj ledende nuller 1

Så er tallene blevet tilføjet foranstillede nuller og i samme længde.
doc tilføj ledende nuller 1

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.
doc tilføj ledende nuller 1

Opmærksomhed: hvis længden af ​​de originale data overstiger den indstillede længde, vil den vise de originale data uden indledende nuller.


12. Tilføj efterfølgende nuller til tal for at fastlægge længden

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 .
doc tilføje efterfølgende nuller 1

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.
doc tilføje efterfølgende nuller 1


13. Tilføj efterfølgende mellemrum til tekst

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.
doc tilføj bageste plads 1

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.
doc tilføj bageste plads 1


14. Tilføj anførselstegn/parenteser omkring tekst eller tal

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.
doc tilføje anførselstegn 1

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.
doc tilføje anførselstegn 1

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.
doc tilføje anførselstegn 1

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 Ved fejl Genoptag næste xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Every 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 & ")".

doc tilføje anførselstegn 1

4. Trykke F5 tast eller klik Kørdoc tilføje anførselstegn 1 i vinduet for at aktivere VBA-koden. Der åbnes en dialogboks for at vælge celler for at tilføje anførselstegn.
doc tilføje anførselstegn 1

5. klik OK. Nu er anførselstegnene blevet tilføjet omkring tekster i de valgte celler.


15. Tilføj tekst til formelresultatet direkte

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.
doc tilføje tekst i formel 1

Tilfælde 1 tilføje tekst før formel

"I dag er "&TEXT(TODAY(),"dddd, mmmm dd.")
doc tilføje tekst i formel 1

Case 2 tilføje tekst efter Formula

TEXT(NU(),"TT:MM:SS")&" er det aktuelle tidspunkt."
doc tilføje tekst i formel 1

Case 3 tilføjer tekster på to sider af formlen

"I dag solgte "&data&" kg."
doc tilføje tekst i formel 1


Flere Excel-tutorials:

Kombiner flere arbejdsbøger/arbejdsark til én
Denne tutorial viser næsten alle kombinationsscenarier, du kan komme ud for, og giver dig relative professionelle løsninger.

Opdel tekst-, tal- og datoceller (adskilles i flere kolonner)
Denne vejledning er opdelt i tre dele: opdelte tekstceller, opdelte talceller og opdelte datoceller. Hver del giver forskellige eksempler for at hjælpe dig med at vide, hvordan du skal håndtere opdelingsjobbet, når du støder på det samme problem.

Kombiner indholdet af flere celler uden at miste data i Excel
Denne vejledning indsnævrer udtrækningen til en specifik position i en celle og samler forskellige metoder til at hjælpe med at udtrække tekst eller tal fra en celle efter specifik position i Excel.

Sammenlign to kolonner for match og forskelle i Excel
Her dækker denne artikel de fleste mulige scenarier af de to sammenlignende kolonner, du måske møder, og håber, at det kan hjælpe dig.



  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner og opbevaring af data; Split celler indhold; Kombiner duplikatrækker og sum / gennemsnit... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Foretrukne og hurtigt indsætte formler, Områder, diagrammer og billeder; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Pivottabelgruppering efter ugenummer, ugedag og mere ... Vis ulåste, låste celler ved forskellige farver; Fremhæv celler, der har formel / navn...
kte-fane 201905
  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50%og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.