Přejít k hlavnímu obsahu

Jak přidat hodnoty do více buněk v aplikaci Excel?

Pokud chcete přidat hodnotu do více buněk v aplikaci Excel, následující metody vám pomohou snadno a rychle ji zpracovat:


šipka modrá pravá bublina Přidejte hodnotu více buňkám pomocí VBA

Použití maker může usnadnit mnoho opakovaných zpracování a usnadnit a zrychlit naši práci. Stejně tak následující makro.

Krok 1: Vyberte buňky, kterým přidáte hodnotu.

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í VBA do okna modulu.

Sub Add2Formula ()
„Přidejte 300

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

End Sub

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

Poznámky:

1. Toto makro je platné pouze pro buňky, které v nich neobsahují žádné vzorce.

2. Toto makro se přidá 300 do všech vybraných buněk. Pokud chcete přidat další hodnotu, nahraďte prosím 300 s jinou hodnotou.


šipka modrá pravá bublina Přidejte hodnotu více buňkám pomocí programu Kutools pro Excel

Kutools pro Excel poskytuje alternativní snadno použitelnou metodu a její provozní nástroje nám mohou pomoci snadno přidat hodnotu více buňkám.

Kutools pro Excel obsahuje více než 80 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získejte to hned.

Krok 1: Vyberte buňky, kterým přidáte stejnou hodnotu.

Krok 2: Klepněte na tlačítko Kutools > Operace > Provozní nástroje .... Viz snímek obrazovky:

Krok 3: Vyberte položku Přidání z části Provoz a zadejte hodnotu, kterou přidáte do vybraných buněk. Viz snímek obrazovky:

Krok 4: Zkontrolujte Vytvářejte vzorce volba.

Krok 5: Klepněte na tlačítko OK.

V provozních nástrojích
vyberte Sčítání, zadejte 300 a klikněte na OK.

Kutools pro Excel Provozní nástroje podporuje všechny druhy matematických operací do všech vybraných buněk společně:

  • Sčítání: Plus zadaný operand.
  • Odčítání: Odečtěte zadaný operand.
  • Násobení: Každá hodnota buněk vynásobená operandem.
  • Division: Každá hodnota buněk dělená operandem.
  • Exponentiace: Každá hodnota buňky napájí operand.
  • Zaokrouhlení: Zaokrouhlí každou hodnotu buňky na desetinná čísla (zadaný operand).
  • Funkce: Aplikuje funkci na každou hodnotu buňky.
  • Vlastní: Vytvořte vzorec podobný výrazu a použijte pro každou hodnotu buňky.

Související článek

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

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

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 snižuje stovky kliknutí myší každý den!

Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks a lot. It is working 💖
This comment was minimized by the moderator on the site
If you want to include cells with formula, you could try, which is only a slight modification from the original. But adding numbers to an established formula could be dangerous so beware:


Sub Add2Formula()
' Add a number
Dim formulae As String
Dim a_number As Double

a_number = InputBox("what number to increment")

For Each cell In Selection
cell.Activate
formulae = ActiveCell.Formula
' gets rid of formula non-essentials that could cause errors
formulae = Replace(formulae, "'", "")
formulae = Replace(formulae, "=", "")

If formulae = "" Then
ActiveCell.Formula = "= " & ActiveCell.Formula & "+" & a_number
Else
ActiveCell.Formula = "= " & formulae & "+" & a_number
End If
Next cell

End Sub


This could be easily modified to skip blank cells, and to skip text cells you could probably evaluate the value of the cell, and when it errors you could go to the next cell. Hope this helps.
This comment was minimized by the moderator on the site
How can I get this VBA formula to skip blank and text cells? Thanks
This comment was minimized by the moderator on the site
sir.iam doing survey list in excel if a=200,b=100,c=50,d=15.e=10 for 3 questions if he selects a,b,b means 200+100+100=400 and Description should be good ..how to do this one
This comment was minimized by the moderator on the site
this tool is so useful and can trust the product.
This comment was minimized by the moderator on the site
any reply? will this site answer our enquiry?
This comment was minimized by the moderator on the site
Dear Expert Have a question here. How to increase age automatically for each year? Thanks
This comment was minimized by the moderator on the site
Add Value to multiple cells with VBA's techque is very useful Thanks
This comment was minimized by the moderator on the site
sir if a1=100 b1=100 and after dat we want to insert 100 again in a1 den b1 should automatically update to 200 means a1 value added in b1 and so on and on. how it is possibe we have to take the two cells only. sir plz solve dis problem
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations