Preskoči na glavno vsebino

Kako dodati nize besedila v več celic v Excelu?

Če moramo dodati nekaj določenega besedila ali nizov besedila v več celic, bo to težko in dolgotrajno s kopiranjem tega besedila in lepljenjem v vsako celico enega za drugim. Naslednje metode nam lahko pomagajo priročno in hitro dodati določeno besedilo v več celic.

puščica modri desni mehurček Dodajte določeno besedilo v več celic v Excelu z VBA

Uporaba VBA lahko olajša naše delo in dodajanje določenega besedila v več celic brez kopiranja in lepljenja.

Korak 1: Izberite celice, v katere boste dodali določeno besedilo.

Korak 2: Držite pritisnjeno ALT + F11 in odpre okno Microsoft Visual Basic for Applications.

Korak 3: kliknite Vstavi >> Moduliin prilepite naslednji makro v okno modula.

Sub Add2Formula ()
'Dodaj besedilo

Za vsak c v izboru
c.Aktiviraj
ActiveCell.FormulaR1C1 = "test -" & ActiveCell.Formula
Naslednji c

End Sub

Korak 4: Pritisnite tipko F5 tipko za zagon tega makra.

Opombe: Ta makro lahko doda samo besedilo - na sprednji strani vsakega besedila v celici. Če želite dodati drugo besedilo ali nize, zamenjajte besedilo - z določenim besedilom, ki ga želite dodati.

puščica modri desni mehurček Dodajte več besedila v več celic v Excelu s programom Kutools za Excel

Za običajne uporabnike Microsoft Excela VBA morda ne poznamo. Druga možnost je Kutools za ExcelOrodje Dodaj besedilo nam lahko pomaga hitro in enostavno dodati določeno besedilo ali nize v več celic.

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Get it now

1. korak: Izberite celice, v katere boste dodali določeno besedilo.

Korak 2: Kliknite na Kutools > Orodja za besedilo > Dodaj besedilo .... Oglejte si posnetek zaslona:

3. korak: v dodajanje besedila v pogovorno okno vnesite določeno besedilo in znake v razdelek Besedilo.

4. korak: preverite položaj, kjer boste dodali določeno besedilo v položaj oddelku. (Opomba: če želite besedilo vstaviti na določen položaj, preverite Določite in določite položaj.) Oglejte si posnetek zaslona:

Korak 5: kliknite OK or Uporabi.

O dodajanje besedila orodje Kutools za Excel nas podpira dodajanje določenega besedila in znakov pred ali za izvirno besedilo celice. Še več, med izvirna besedila v celicah lahko dodamo določeno besedilo. Ne glede na nastavitve, ki ste jih nastavili, si lahko ogledate spremembe celic v razdelku Predogled.

Povezane člen:

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup  |   Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule   |  Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic   |  Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij:  12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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