Gå til hovedindhold

Hvordan tilføjes tekststrenge til flere celler i Excel?

Hvis vi har brug for at tilføje nogle specifikke tekst eller tekststrenge i flere celler, vil det være vanskeligt og tidskrævende at kopiere denne tekst og indsætte i hver celle en efter en. Følgende metoder kan hjælpe os med at tilføje specifik tekst i flere celler på en bekvem og hurtig måde.

pil blå højre boble Føj specifik tekst til flere celler i Excel med VBA

Brug af en VBA kan lette vores arbejde og tilføje specifik tekst i flere celler uden at kopiere og indsætte.

Trin 1: Vælg de celler, hvor du vil tilføje den specifikke tekst.

Trin 2: Hold nede ALT + F11 nøgler, og det åbner vinduet Microsoft Visual Basic for Applications.

Trin 3: Klik indsatte >> Moduler, og indsæt følgende makro i modulvinduet.

Sub Add2Formula ()
'Tilføj tekst

For hver c i valg
c.Aktiver
ActiveCell.FormulaR1C1 = "test -" & ActiveCell.Formula
Næste c

End Sub

Trin 4: Tryk på F5 nøgle til at køre denne makro.

Bemærk: Denne makro er kun i stand til at tilføje tekst - foran hver celletekst. Hvis du vil tilføje anden tekst eller strenge, skal du udskifte tekst - med den specifikke tekst, du vil tilføje.

pil blå højre boble Tilføj specifik tekst til flere celler i Excel med Kutools til Excel

For almindelige brugere af Microsoft Excel er vi muligvis ikke fortrolige med VBA. Alternativt er det Kutools til Excel's Tilføj tekst værktøj kan hjælpe os med at tilføje den specifikke tekst eller strenge i flere celler hurtigt og nemt.

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Få det nu

Trin 1: Vælg de celler, hvor du vil tilføje den specifikke tekst.

Trin 2: Klik på Kutools > Tekstværktøjer > Tilføj tekst .... Se skærmbillede:

Trin 3: I tilføje tekst dialogboksen, skal du indtaste den specifikke tekst og tegn i sektionen Tekst.

Trin 4: Kontroller en position, hvor du vil tilføje den specifikke tekst på i Position afsnit. (Bemærk: Hvis du vil indsætte teksten i en bestemt position, skal du kontrollere Angiv og angiv placeringen.) Se skærmbillede:

Trin 5: Klik OK or Indløs.

tilføje tekst værktøj fra Kutools til Excel understøtter os til at tilføje en bestemt tekst og tegn før eller efter den originale celletekst. Hvad mere er, kan vi tilføje specifik tekst mellem originale celletekster. Uanset hvilke indstillinger du indstiller, kan du få vist celleændringerne i afsnittet Eksempel.

Relateret artikel:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier  |   Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar   |  Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler   |  Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt:  12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • 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!
Comments (4)
No ratings yet. Be the first to rate!
Anish
Anish
This comment was minimized by the moderator on the site
how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

Thank you in Advance.
Reply
0
0
Peter
Peter
This comment was minimized by the moderator on the site
If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
Reply
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
Reply
Report
0
0
cpk.adm@gmail.com
This comment was minimized by the moderator on the site
Private Sub CommandButton1_Click()
On Error GoTo errorhandler:
Dim objRange1 As Range
Dim wk As Workbook

'Set up the ranges


Set objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="|"
Dim rn As String
Dim rn1 As String
Dim rn2 As String
Dim rep As String
Dim res As String
rep = "Do you want to copy Values?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
If res = vbYes Then

rn = InputBox(" Enter Range to Copy Circuit Id")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox (" Circuit Id has Successfully Pasted")
rn1 = InputBox(" Enter Range to copy Order Reference")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox (" Order Reference has Successfully Pasted")
rn2 = InputBox(" Enter Range to copy Inventory Name")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox (" Inventory has Successfully Pasted")
Sheets("sheet1").Range("Z1:AM10").ClearContents
Sheets("sheet2").Activate
Else
MsgBox (" Thank You")
End If
errorhandler:
MsgBox ("you have clicked cancelled bitton")
Sheet1.Activate
End Sub


Private Sub CommandButton2_Click()
Sheet1.Range("A10:A32").ClearContents
End Sub







it is working , but i have to add text in one cell . please help me
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations