Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

Kako dodati nize besedila v več celic v Excelu?

Če moramo dodati nekaj določenega besedila ali nizov besedila v več celic, bo to težko in dolgotrajno s kopiranjem tega besedila in lepljenjem v vsako celico enega za drugim. Naslednje metode nam lahko pomagajo priročno in hitro dodati določeno besedilo v več celic.

Kartica Office Omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte svoje delo ...
Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%
  • Ponovno uporabi vse: Med priljubljene dodajte najbolj uporabljene ali zapletene formule, grafikone in kar koli drugega ter jih v prihodnosti hitro ponovno uporabite.
  • Več kot 20 besedilnih funkcij: Izvleček številke iz besedilnega niza; Izvleči ali odstrani del besedil; Pretvorite številke in valute v angleške besede.
  • Združi orodja: Več delovnih zvezkov in listov v eno; Združi več celic / vrstic / stolpcev brez izgube podatkov; Združi podvojene vrstice in vsoto.
  • Razdeljena orodja: Razdeli podatke na več listov na podlagi vrednosti; En delovni zvezek v več datotek Excel, PDF ali CSV; En stolpec na več stolpcev.
  • Prilepi preskoči Skrite / filtrirane vrstice; Štetje in vsota glede na Barva ozadja; V večjem obsegu pošiljajte osebna e-poštna sporočila več prejemnikom.
  • Super filter: Ustvarite napredne filtrirne sheme in uporabite za vse liste; Razvrščanje po tednih, dnevih, pogostosti in še več; filter s krepkim tiskom, formule, komentar ...
  • Več kot 300 zmogljivih funkcij; Deluje s sistemoma Office 2007-2019 in 365; Podpira vse jezike; Preprosta namestitev v vašem podjetju ali organizaciji.

puščica modri desni mehurček Dodajte določeno besedilo v več celic v Excelu z VBA


Uporaba VBA lahko olajša naše delo in dodajanje določenega besedila v več celic brez kopiranja in lepljenja.

Korak 1: Izberite celice, v katere boste dodali določeno besedilo.

Korak 2: Držite pritisnjeno ALT + F11 in odpre okno Microsoft Visual Basic for Applications.

Korak 3: kliknite Vstavi >> Moduliin prilepite naslednji makro v okno modula.

Sub Add2Formula ()
'Dodaj besedilo

Za vsak c v izboru
c.Aktiviraj
ActiveCell.FormulaR1C1 = "test -" & ActiveCell.Formula
Naslednji c

End Sub

Korak 4: Pritisnite tipko F5 tipko za zagon tega makra.

Opombe: Ta makro lahko doda samo besedilo - na sprednji strani vsakega besedila v celici. Če želite dodati drugo besedilo ali nize, zamenjajte besedilo - z določenim besedilom, ki ga želite dodati.


puščica modri desni mehurček Dodajte več besedila v več celic v Excelu s programom Kutools za Excel

Za običajne uporabnike Microsoft Excela VBA morda ne poznamo. Druga možnost je Kutools za ExcelOrodje Dodaj besedilo nam lahko pomaga hitro in enostavno dodati določeno besedilo ali nize v več celic.

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Get it now

1. korak: Izberite celice, v katere boste dodali določeno besedilo.

Korak 2: Kliknite na Kutools > Orodja za besedilo > Dodaj besedilo .... Oglejte si posnetek zaslona:

3. korak: v dodajanje besedila v pogovorno okno vnesite določeno besedilo in znake v razdelek Besedilo.

4. korak: preverite položaj, kjer boste dodali določeno besedilo v položaj oddelku. (Opomba: če želite besedilo vstaviti na določen položaj, preverite Določite in določite položaj.) Oglejte si posnetek zaslona:

Korak 5: kliknite OK or Uporabi.

O dodajanje besedila orodje Kutools za Excel nas podpira dodajanje določenega besedila in znakov pred ali za izvirno besedilo celice. Še več, med izvirna besedila v celicah lahko dodamo določeno besedilo. Ne glede na nastavitve, ki ste jih nastavili, si lahko ogledate spremembe celic v razdelku Predogled.


Povezane člen:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50% in vsak dan zmanjša na stotine klikov z miško!
dno pisarniške mize
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