Vai al contenuto principale

Come aggiungere stringhe di testo a più celle in Excel?

Se abbiamo bisogno di aggiungere un testo specifico o stringhe di testo in più celle, sarà arduo e dispendioso in termini di tempo copiare questo testo e incollarlo in ciascuna cella una per una. I seguenti metodi possono aiutarci ad aggiungere un testo specifico in più celle in modo comodo e rapido.

freccia blu freccia destra Aggiungi testo specifico a più celle in Excel con VBA

L'uso di un VBA può semplificare il nostro lavoro e aggiungere testo specifico in più celle senza copiare e incollare.

Passo 1: Seleziona le celle in cui aggiungerai il testo specifico.

Passo 2: tieni premuto il tasto ALT + F11 e apre la finestra di Microsoft Visual Basic, Applications Edition.

Passo 3: fare clic inserire >> Modulie incolla la seguente macro nella finestra del modulo.

Sub Add2Formula ()
' Aggiungi testo

Per ogni c Nella selezione
c. attiva
ActiveCell.FormulaR1C1 = "test -" e ActiveCell.Formula
Successivo c

End Sub

Passo 4: premere il tasto F5 chiave per eseguire questa macro.

Note:: Questa macro è in grado di aggiungere solo il file testo - nella parte anteriore del testo di ogni cella. Se desideri aggiungere altro testo o stringhe, sostituisci il file testo - con il testo specifico che desideri aggiungere.

freccia blu freccia destra Aggiungi testo specifico a più celle in Excel con Kutools per Excel

Per gli utenti comuni di Microsoft Excel, potremmo non avere familiarità con VBA. In alternativa, il file Kutools for ExcelLo strumento Aggiungi testo può aiutarci ad aggiungere il testo o le stringhe specifiche in più celle in modo rapido e semplice.

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Get it Now

Passaggio 1: seleziona le celle in cui aggiungere il testo specifico.

Passaggio 2: fare clic su Kutools > Strumenti di testo > Aggiungi testo…. Vedi screenshot:

Passaggio 3: in aggiungi testo finestra di dialogo, immettere il testo e i caratteri specifici nella sezione Testo.

Passaggio 4: controlla una posizione in cui aggiungere il testo specifico in Posizione sezione. (Nota: se vuoi inserire il testo in una posizione specificata, controlla Specificare e specificare la posizione.) Vedi screenshot:

Passo 5: fare clic OK or APPLICA.

I aggiungi testo lo strumento di Kutools per Excel ci supporta per aggiungere testo e caratteri specifici prima o dopo il testo della cella originale. Inoltre, possiamo aggiungere un testo specifico tra i testi delle celle originali. Indipendentemente dalle impostazioni impostate, puoi visualizzare in anteprima le modifiche alle celle nella sezione Anteprima.

Articolo correlato:

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli  |   VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule   |  Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle   |  Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti:  12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione

Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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