Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

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.

Scheda Office Abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
  • Riutilizza qualsiasi cosa: Aggiungi le formule, i grafici e qualsiasi altra cosa più usati o complessi ai tuoi preferiti e riutilizzali rapidamente in futuro.
  • Più di 20 funzioni di testo: Estrai numero dalla stringa di testo; Estrai o rimuovi parte di testi; Converti numeri e valute in parole inglesi.
  • Unisci strumenti: Più cartelle di lavoro e fogli in uno; Unisci più celle / righe / colonne senza perdere dati; Unisci righe duplicate e somma.
  • Strumenti di divisione: Suddivisione dei dati in più fogli in base al valore; Una cartella di lavoro su più file Excel, PDF o CSV; Da una colonna a più colonne.
  • Incolla Salto Righe nascoste / filtrate; Count And Sum di Background Color; Invia e-mail personalizzate a più destinatari in blocco.
  • Super filtro: Crea schemi di filtri avanzati e applicali a qualsiasi foglio; Riordina per settimana, giorno, frequenza e altro; Filtro in grassetto, formule, commenti ...
  • Più di 300 potenti funzionalità; Funziona con Office 2007-2019 e 365; Supporta tutte le lingue; Facile distribuzione nella tua azienda o organizzazione.

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 >> Moduloe 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.

Osservazioni:: 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.

Passo 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 Iscriviti.

Il progetto 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

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Anish · 10 months ago
    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.
  • To post as a guest, your comment is unpublished.
    Peter · 3 years ago
    If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
  • To post as a guest, your comment is unpublished.
    cpk.adm@gmail.com · 3 years ago
    i want to add one character in before and after . please help .. mail me cpk.adm@gmail.com
  • To post as a guest, your comment is unpublished.
    cpk.adm@gmail.com · 3 years ago
    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