Note: The other languages of the website are Google-translated. Back to English
English English

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

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.

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2019 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

š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 aplikovat.

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (4)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Private Sub CommandButton1_Click ()
Na Error GoTo errorhandler:
Dim objRange1 As Range
Dim wk Jako sešit

„Nastavte rozsahy


Nastavit objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
DataType:=xlDelimited, _
Tab:=False, _
Středník:=Nepravda, _
Čárka:=False, _
Mezerník:=False, _
Jiné:=Pravda, _
OtherChar:="|"
Dim rn As String
Dim rn1 As String
Dim rn2 As String
Dim rep As String
Dim res As String
rep = "Chcete zkopírovat hodnoty?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
If res = vbYes Then

rn = InputBox(" Zadejte rozsah pro kopírování ID okruhu")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox („ID okruhu bylo úspěšně vloženo“)
rn1 = InputBox(" Zadejte rozsah pro kopírování reference objednávky")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox („Reference objednávky byla úspěšně vložena“)
rn2 = InputBox(" Zadejte rozsah pro kopírování názvu inventáře")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox ("Inventář byl úspěšně vložen")
Listy("list1").Rozsah("Z1:AM10").Vymazat obsah
Listy("list2").Aktivovat
Jiný
MsgBox ("Děkuji")
End If
obsluha chyb:
MsgBox ("klikli jste na zrušený bitton")
Sheet1.Activate
End Sub


Private Sub CommandButton2_Click ()
List1.Rozsah("A10:A32").Vymazat obsah
End Sub







funguje to, ale musím přidat text do jedné buňky. prosím pomozte mi
Tento komentář byl moderátorem webu minimalizován
chci přidat jeden znak před a za . prosím pomozte... napište mi cpk.adm@gmail.com
Tento komentář byl moderátorem webu minimalizován
Pokud potřebuji k textu přidat hodnoty jako: "text" hodnota E12 "text" hodnota E12 "text" hodnotaE12 je to možné? potřeba udělat SEO
Tento komentář byl moderátorem webu minimalizován
jak přidat více buněk a porovnat je s jednou buňkou, takže jedna buňka ve srovnání s hodnotou se dynamicky mění. Například součet sloupce a přidáváte hodnoty do sloupce, pak se součet dynamicky mění.

Děkuji předem.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění