Salt la conținutul principal

Cum se adaugă valori la mai multe celule din Excel?

Dacă doriți să adăugați o valoare la mai multe celule din Excel, următoarele metode vă vor ajuta să o procesați ușor și rapid:


săgeată albastru dreapta balon Adăugați valoare mai multor celule cu VBA

Utilizarea macro-urilor poate ușura multe procesări repetate și ne poate face munca mai ușoară și mai rapidă. La fel și următoarea macro.

Pasul 1: Selectați celulele cărora le veți adăuga o valoare.

Pasul 2: Țineți apăsat butonul ALT + F11 și deschide fereastra Microsoft Visual Basic pentru aplicații.

Pasul 3: Faceți clic pe Insera > Moduleși lipiți următorul VBA în fereastra modulului.

Sub Add2Formula ()
'Adăugați 300

Pentru fiecare c în selecție
c. Activați
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Următorul c

End Sub

Pasul 4: Apăsați tasta F5 tasta pentru a rula această macro.

notițe:

1. Această macrocomandă este valabilă numai pentru celulele care nu conțin formule în ele.

2. Această macro va adăuga 300 la toate celulele selectate. Dacă doriți să adăugați altă valoare, înlocuiți 300 cu altă valoare.


săgeată albastru dreapta balon Adăugați valoare mai multor celule cu Kutools pentru Excel

Kutools pentru Excel ne oferă o metodă alternativă ușor de utilizat, iar instrumentele sale de funcționare ne pot ajuta să adăugăm valoare mai multor celule cu ușurință.

Kutools pentru Excel include mai mult de 80 de instrumente Excel la îndemână. Încercare gratuită fără limitări în 30 de zile. Ia-l acum.

Pasul 1: Selectați celulele cărora le veți adăuga aceeași valoare.

Pasul 2: Faceți clic pe Kutools > Ziua Operației > Instrumente de funcționare .... Vedeți captura de ecran:

Pasul 3: Selectați Plus din secțiunea Operațiune și introduceți valoarea pe care o veți adăuga la celulele selectate. Vedeți captura de ecran:

Pasul 4: Verificați Creați formule opțiune.

Pasul 5: Faceți clic pe OK.

În Instrumente de funcționare,
selectați Adăugare, introduceți 300 și faceți clic pe OK.

Kutools pentru Excel Instrumente de operare acceptă toate tipurile de operații matematice pentru toate celulele selectate împreună:

  • Adăugare: plus un operand specificat.
  • Scăderea: scăderea operandului specificat.
  • Multiplicare: fiecare valoare a celulelor înmulțită cu operandul.
  • Divizare: fiecare valoare a celulelor împărțită la operand.
  • Exponențierea: fiecare valoare a celulei alimentează operandul.
  • Rotunjire: rotunjiți fiecare valoare a celulei la numerele zecimale (operand specificat).
  • Funcție: aplică o funcție fiecărei valori a celulei.
  • Personalizat: creați o expresie asemănătoare formulei și aplicați la fiecare valoare a celulei.

Articolul înrudit

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

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