Salt la conținutul principal

Cum se adaugă text în mijlocul celulelor selectate din Excel?

Presupunând că aveți o listă de date compuse cu o literă de început G și alte numere, iar acum doriți să adăugați o altă literă D după prima literă G la întreaga listă. Vedeți imaginea de mai jos prezentată.

Cum poți face pentru a realiza acest lucru? Adăugarea scrisorii la celule una câte una pare să piardă timpul în timpul lucrului. În acest articol, vă vom arăta cum să adăugați text în mijlocul celulelor selectate în Excel cu metode eficiente.

Adăugați text în mijlocul celulelor selectate cu formula
Adăugați text în mijlocul celulelor selectate cu cod VBA
Adăugați text în mijlocul celulelor selectate cu Kutools pentru Excel


Adăugați text în mijlocul celulelor selectate cu formula

În această secțiune, vă vom oferi formula pentru a adăuga text în mijlocul celulelor selectate. Vă rugăm să faceți următoarele.

1. Această metodă trebuie realizată cu ajutorul unei coloane de ajutor. Selectați celula necompletată adiacentă datelor originale, aici selectez celula B2.

2. Copiați și lipiți formula = STÂNGA (A2,1) & "D" & MID (A2,2,100) în bara de formule, apoi apăsați tasta Intrați cheie. Vedeți captura de ecran:

notițe:

  • 1). În formulă, numărul 1 înseamnă că textul va fi adăugat după primul caracter al celulei.
  • 2). Numărul 2 și 100 indică faptul că caracterele de la a doua până la sutime din celula originală vor fi adăugate după noul text inserat.
  • 3). Dacă doriți să adăugați text după al doilea caracter, vă rugăm să schimbați numărul 1 la 2 și 2 la 3 în formulă.
  • 4). Iar caracterul „D” este textul pe care îl veți adăuga la celulă. Vă rugăm să îl modificați în funcție de nevoile dvs.

3. Selectați celula B2, trageți mânerul de umplere în jos în celula pe care doriți să o acoperiți cu această formulă. Puteți vedea că textul este adăugat în mijlocul celulelor din întreaga listă.

sfaturi: Pe lângă formula de mai sus, puteți aplica și această formulă = REPLACE (A2,2,0, "D"), (numărul 2 indică locația în care doriți să inserați textul, iar litera D se referă la textul pe care trebuie să îl adăugați, le puteți schimba după nevoile dvs.), apoi apăsați tasta Enter pentru a obține rezultatul.


Adăugați text la începutul sau la sfârșitul tuturor celulelor selectate în Excel:

Kutools pentru Excel Adăuga text utilitarul poate adăuga rapid text specificat la începutul sau la sfârșitul celulelor dintr-o selecție în Excel.
Descărcați acum caracteristica completă gratuită de 30 de zile a Kutools pentru Excel!


Adăugați text în mijlocul celulelor selectate cu cod VBA

În plus, puteți adăuga text în mijlocul celulelor selectate cu cod VBA.

1. Vă rugăm să apăsați Alt + F11 pentru a deschide Aplicații Microsoft Visual Basic fereastră.

2. clic Insera > Module. Apoi copiați și lipiți mai jos codul VBA în editorul de coduri.

Cod VBA: Adăugați text la o listă de date după primul caracter

Sub AddString()
	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, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1)
	Next
End Sub

3. presa F5 tasta pentru a rula codul și în fereastra pop-up KutoolsforExcel caseta de dialog, selectați intervalul la care doriți să adăugați text și apoi faceți clic pe OK butonul.

Acum, textul specificat este adăugat după primul caracter al celulelor selectate.

notițe: În codul de mai sus, veți insera o valoare specifică după primul caracter din celulă, puteți schimba numărul 1 și 2 la numărul 2 și 3 dacă adăugați textul după al doilea caracter în acest script VBA.Left (Rng.Value, 1) & "D" & VBA.Mid (Rng.Value, 2, VBA.Len (Rng.Value) - 1), iar litera D este noul text pe care doriți să îl inserați.


Adăugați text în mijlocul celulelor selectate cu Kutools pentru Excel

Trebuie să recunoaștem că cele două metode de mai sus sunt incomode pentru noi. Aici vă voi arăta Adăuga text utilitatea Kutools pentru Excel, cu acest utilitar, puteți specifica cu ușurință poziția de mijloc a listei, apoi puteți adăuga textul anumit la acea poziție a întregii liste în același timp.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Selectați lista pe care doriți să adăugați text în mijlocul celulelor, apoi faceți clic pe Kutools > Text > Adăuga text. Vedeți captura de ecran:

2. În Adăuga text caseta de dialog, introduceți textul pe care doriți să îl adăugați la celule în Text , specificați poziția în care doriți să adăugați textul bifând Specifica opțiune (aici introduc numărul 1), apoi faceți clic pe OK buton. (Puteți previzualiza instantaneu rezultatul adăugării în caseta din dreapta)

notițe: Pentru a adăuga text în mai multe poziții ale celulei selectate simultan, puteți specifica pozițiile cu virgulă separând în Specifica cutie. Vedeți captura de ecran:

Acum, textul specificat este adăugat după prima literă din lista selectată.

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Adăugați text în mijlocul celulelor selectate cu Kutools pentru Excel


Articol asociat:.

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 instrumente12 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Boa tarde, tudo bem ?

Eu testei as duas fórmulas e não funcionaram. Inclusive testei também no mesmo cenário descrito no texto e também não funcionou. Poderia verificar se falta algo na fórmula do excel ?
This comment was minimized by the moderator on the site
Tive o mesmo problema, mas segui pela resposta que enviaram aqui, a formula para o excel em português seria =ESQUERDA(A2;1) & "D" & EXT.TEXTO(A2;2;100)

A parte da fórmula que dá o erro seria o "MID" que precisa ser substituído por "EXT.TEXTO"
This comment was minimized by the moderator on the site
Hi Matheus C.,
If you are using the Excel version in a different language than English, please convert the formula from English to the language you are currently using.
You can translate the formula in this page: https://de.excel-translator.de/translator/
This comment was minimized by the moderator on the site
Hi Vick,
The formula provided in the post can only be applied in English system environment Excel. If you have Excel in a different language than English, please convert the formula from English to the language you are currently using.
It seems that you are using the Excel in Portuguese language system. You need to change the commas in the formula to semicolons.
You can translate the formula in this page: https://de.excel-translator.de/translator/
This comment was minimized by the moderator on the site
TRIMAKASIH KAK, SANGAT MEMBANTUUUU
This comment was minimized by the moderator on the site
This seems complicated. For the originally stated problem why not just do a search for G and replace all with GD?
This comment was minimized by the moderator on the site
Because you might want to insert a specific character at a certain index of the string. What if they weren't all G's? This was just to provide an example of how it works.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations