Salt la conținutul principal

Cum se adaugă șiruri de text în mai multe celule din Excel?

Dacă trebuie să adăugăm un anumit text sau șiruri de text în mai multe celule, va fi dificil și consumator de timp cu copierea acestui text și lipirea fiecărei celule una câte una. Următoarele metode ne pot ajuta să adăugăm text specific în mai multe celule în mod convenabil și rapid.

săgeată albastru dreapta balon Adăugați text specific la mai multe celule din Excel cu VBA

Utilizarea unui VBA ne poate ușura munca și poate adăuga text specific în mai multe celule fără a copia și lipi.

Pasul 1: Selectați celulele în care veți adăuga textul specific.

Pasul 2: Țineți apăsat butonul ALT + F11 și deschide fereastra Microsoft Visual Basic pentru aplicații.

Pasul 3: Faceți clic pe Insera >> Moduleși lipiți următoarea macro în fereastra modulului.

Sub Add2Formula ()
' Adaugă text

Pentru fiecare c în selecție
c. Activați
ActiveCell.FormulaR1C1 = "test -" & ActiveCell.Formula
Următorul c

End Sub

Pasul 4: Apăsați tasta F5 tasta pentru a rula această macro.

notițe: Această macrocomandă poate adăuga numai fișierul text - în partea din față a fiecărui text celular. Dacă doriți să adăugați alt text sau șiruri, înlocuiți text - cu textul specific pe care doriți să îl adăugați.

săgeată albastru dreapta balon Adăugați text specific la mai multe celule din Excel cu Kutools pentru Excel

Pentru utilizatorii obișnuiți de Microsoft Excel, este posibil să nu fim familiarizați cu VBA. Alternativ, Kutools pentru ExcelInstrumentul Adăugare text ne poate ajuta să adăugăm rapid și ușor textul specific sau șirurile în mai multe celule.

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Ia-l acum

Pasul 1: Selectați celulele în care veți adăuga textul specific.

Pasul 2: Faceți clic pe Kutools > Instrumente de text > Adaugă text…. Vedeți captura de ecran:

Pasul 3: În Adăuga text caseta de dialog, introduceți textul și caracterele specifice în secțiunea Text.

Pasul 4: verificați o poziție în care veți adăuga textul specific în Poziţie secțiune. (Notă: dacă doriți să inserați textul într-o poziție specificată, vă rugăm să verificați Specifica și specificați poziția.) Vedeți captura de ecran:

Pasul 5: Faceți clic pe OK or Aplică.

Adăuga text instrumentul Kutools pentru Excel ne susține să adăugăm orice text și caractere specifice înainte sau după textul celulei originale. Mai mult, putem adăuga un text specific între textele celulare originale. Indiferent de setările pe care le setați, puteți previzualiza modificările celulei din secțiunea Previzualizare.

Articolul legate:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii  |   VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar   |  Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule   |  Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente:  12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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