Přejít k hlavnímu obsahu

Jak přidat řetězce textu do více buněk v aplikaci Excel?

Autor: Kelly Naposledy změněno: 2013-06-03

Pokud potřebujeme přidat nějaký konkrétní text nebo řetězce textu do více buněk, bude to náročné a časově náročné s kopírováním tohoto textu a postupným vkládáním do každé buňky. Následující metody nám mohou pomoci pohodlně a rychle přidat konkrétní text do více buněk.


šipka modrá pravá bublina Přidejte konkrétní text do více buněk v aplikaci Excel pomocí VBA

Používání VBA může usnadnit naši práci a přidávat konkrétní text do více buněk bez kopírování a vkládání.

Krok 1: Vyberte buňky, do kterých chcete přidat konkrétní text.

Krok 2: Podržte stisknuté tlačítko ALT + F11 kláves a otevře se okno Microsoft Visual Basic pro aplikace.

Krok 3: Klepněte na tlačítko Vložit >> Modula vložte následující makro do okna modulu.

Sub Add2Formula ()
' Přidej text

Pro každý c ve výběru
c. Aktivovat
ActiveCell.FormulaR1C1 = "test -" & ActiveCell.Formula
Další c

End Sub

Krok 4: Stiskněte tlačítko F5 klíč ke spuštění tohoto makra.

Poznámka: Toto makro je možné přidat pouze text - v přední části každého textu buňky. Pokud chcete přidat další text nebo řetězce, nahraďte prosím text - s konkrétním textem, který chcete přidat.


šipka modrá pravá bublina Přidejte konkrétní text do více buněk v aplikaci Excel pomocí Kutools pro Excel

Pro běžné uživatele Microsoft Excel možná nebudeme obeznámeni s VBA. Alternativně Kutools pro ExcelNástroj Přidat text nám pomůže rychle a snadno přidat konkrétní text nebo řetězce do více buněk.

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Získat nyní

Krok 1: Vyberte buňky, do kterých přidáte konkrétní text.

Krok 2: Klepněte na tlačítko Kutools > Textové nástroje > Přidej text…. Viz snímek obrazovky:

Krok 3: V doplnit text V dialogovém okně zadejte konkrétní text a znaky do části Text.

Krok 4: Zkontrolujte pozici, kam přidáte konkrétní text v Pozice sekce. (Poznámka: Pokud chcete vložit text na určené místo, zkontrolujte to Specifikovat a určete polohu.) Viz screenshot:

Krok 5: Klepněte na tlačítko OK or Přihláška.

Projekt doplnit text nástroj Kutools pro Excel nás podporuje při přidávání jakéhokoli konkrétního textu a znaků před nebo za původní text buňky. A co víc, můžeme přidat originální text mezi původní texty buněk. Bez ohledu na to, jaké nastavení nastavíte, můžete si prohlédnout změny buněk v sekci Náhled.


Související článek:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (4)
No ratings yet. Be the first to rate!
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.
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
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
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
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations