Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com afegir cadenes de text a diverses cel·les d'Excel?

Si necessitem afegir un text específic o cadenes de text a diverses cel·les, serà difícil i requeriran copiar aquest text i enganxar-les a cada cel·la un per un. Els següents mètodes poden ajudar-nos a afegir text específic a diverses cel·les convenientment i ràpidament.


fletxa blau dreta bombolla Afegiu text específic a diverses cel·les d'Excel amb VBA


L'ús d'un VBA pot facilitar el nostre treball i afegir text específic a diverses cel·les sense copiar-les ni enganxar-les.

Pas 1: Seleccioneu les cel·les on afegiu el text específic.

Pas 2: manteniu premuda la tecla ALT + F11 , i obre la finestra de Microsoft Visual Basic per a aplicacions.

Pas 3: fes clic Insereix >> Mòduls, i enganxeu la macro següent a la finestra del mòdul.

Sub Add2Formula ()
'Afegeix text

Per a cadascun a la selecció
cActivateu
ActiveCell.FormulaR1C1 = "test -" & ActiveCell.Formula
Següent c

End Sub

Pas 4: premeu la tecla F5 clau per executar aquesta macro.

Nota: Aquesta macro només és capaç d 'afegir la text - a la part frontal de cada text de la cel·la. Si voleu afegir un altre text o cadenes, substituïu el text text - amb el text específic que voleu afegir.


fletxa blau dreta bombolla Afegiu text específic a diverses cel·les d'Excel amb Kutools for Excel

Per als usuaris comuns de Microsoft Excel, és possible que no estiguem familiaritzats amb VBA. Alternativament, el Kutools for ExcelL'eina Afegir text us pot ajudar a afegir el text o cadenes específics a diverses cel·les de forma ràpida i senzilla.

Kutools for Excel: amb més complements Excel de 300, gratuïts per intentar sense limitacions en 30 dies. Agafa-ho ara

Pas 1: seleccioneu les cel·les on afegiu el text específic.

Pas 2: feu clic al botó Kutools > Eines de text > Afegeix text .... Mostra la captura de pantalla:

Pas 3: a la Afegeix text quadre de diàleg, introduïu el text i els caràcters específics a la secció de text.

Pas 4: comproveu una posició on afegiu el text específic al Posició secció. (Nota: si voleu inserir el text en una posició específica, consulteu-la Especificar i especifiqueu la posició.) Mostra la captura de pantalla:

Pas 5: fes clic OK or aplicar.

El Afegeix text L'eina de Kutools for Excel ens suporta per afegir text i caràcters específics abans o després del text de la cel · la original. A més, podem afegir text específic entre els textos cel·lulars originals. No importa quina configuració heu configurat, podeu obtenir una vista prèvia dels canvis de les cel·les a la secció Vista prèvia.


Article relacionat:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Peter · 1 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.
    Prabha Karan · 1 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.
    Prabha Karan · 1 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
  • To post as a guest, your comment is unpublished.
    Wilton · 4 years ago
    hey there and thank you for your info – I
    have definitely picked up something new from right here.
    I did however expertise some technical issues using this website, since I experienced to reload the web site many times previous to I could get it to load correctly.
    I had been wondering if your web hosting is OK?
    Not that I am complaining, but slow loading instances times will very frequently affect your placement in google and can damage your quality score if advertising and
    marketing with Adwords. Well I'm adding this RSS to my email and can look out for much more of your respective interesting content.
    Make sure you update this again very soon.

    Also visit my blog post - [url=http://sem-marketing-services.com/account/index/1]buy betta fish online[/url]