Ugrás a tartalomra

Hogyan adhatunk értékeket az Excel több cellájához?

Ha értéket szeretne hozzáadni az Excel több cellájához, a következő módszerek segítenek annak egyszerű és gyors feldolgozásában:


nyíl kék jobb buborék Értéket adjon több cellának VBA segítségével

A makrók használata megkönnyítheti a sok ismételt feldolgozást, és megkönnyíti és gyorsabbá teszi a munkánkat. Tehát a következő makró.

1. lépés: Válassza ki azokat a cellákat, amelyekhez értéket ad hozzá.

2 lépés: Tartsa lenyomva a ALT + F11 kulcsokat, és megnyitja a Microsoft Visual Basic for Applications ablakot.

3 lépés: Kattintson a gombra betétlap > Modulok, és illessze be a következő VBA-t a Modul ablakba.

Sub Add2Formula ()
"Adjon hozzá 300-at

Minden kiválasztott c-hez
c. Aktiválás
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Következő c

End Sub

4 lépés: Nyomja meg a F5 gomb a makró futtatásához.

Megjegyzések:

1. Ez a makró csak olyan cellákra érvényes, amelyek nem tartalmaznak képletet.

2. Ez a makró hozzáadódik 300 az összes kijelölt cellára. Ha további értéket szeretne hozzáadni, kérjük, cserélje ki a 300 más értékkel.


nyíl kék jobb buborék Adjon értéket több cellához a Kutools for Excel segítségével

Kutools az Excel számára alternatív, könnyen használható módszert biztosít számunkra, és annak Működési eszközei segítséget nyújtanak számunkra, hogy könnyen hozzáadjunk több cellához értéket.

Kutools az Excel számára több mint 80 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most.

1. lépés: Jelölje ki azokat a cellákat, amelyekhez ugyanazt az értéket adja hozzá.

2 lépés: Kattintson a Kutools > Művelet > Működési eszközök…. Lásd a képernyőképet:

3 lépés: Válassza a Kiegészítés a Művelet szakaszból, és adja meg az értéket, amelyet hozzáad a kiválasztott cellákhoz. Lásd a képernyőképet:

4. lépés: Ellenőrizze a Készítsen képleteket opciót.

5 lépés: Kattintson a gombra OK.

A Műveleti eszközökben
válassza az Összeadás lehetőséget, írja be a 300 értéket, és kattintson az OK gombra.

Kutools Excelhez Műveleti eszközök mindenféle matematikai műveletet támogat az összes kiválasztott cellában együtt:

  • Kiegészítés: Plusz egy megadott operandus.
  • Kivonás: A megadott operandus kivonása.
  • Szorzás: A cellák minden értéke megszorozva az operandussal.
  • Osztás: A cellák minden értéke elosztva az operandussal.
  • Hatványozás: A cella minden értéke meghúzza az operandust.
  • Kerekítés: A cella minden értékét tizedesjegyekre kerekítse (megadott operandus).
  • Funkció: Funkciót alkalmaz a cella minden értékére.
  • Egyéni: Hozzon létre képletszerű kifejezést, és alkalmazza a cella minden értékére.

Kapcsolódó cikk

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

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