Μετάβαση στο κύριο περιεχόμενο

Πώς να προσθέσετε τιμές σε πολλά κελιά στο Excel;

Εάν θέλετε να προσθέσετε μια τιμή σε πολλά κελιά στο Excel, οι ακόλουθες μέθοδοι θα σας βοηθήσουν να την επεξεργαστείτε εύκολα και γρήγορα:


βέλος μπλε δεξιά φούσκα Προσθήκη τιμής σε πολλά κελιά με VBA

Η χρήση μακροεντολών μπορεί να διευκολύνει πολλές επαναλαμβανόμενες επεξεργασίες και να κάνει τη δουλειά μας ευκολότερη και ταχύτερη. Το ίδιο κάνει και η ακόλουθη μακροεντολή.

Βήμα 1: Επιλέξτε τα κελιά στα οποία θα προσθέσετε μια τιμή.

Βήμα 2: Κρατήστε πατημένο το ALT + F11 και ανοίγει το παράθυρο της Microsoft Visual Basic for Applications.

Βήμα 3: Κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε το ακόλουθο VBA στο παράθυρο της ενότητας.

Υπο Add2Formula ()
"Προσθήκη 300

Για κάθε γ στην επιλογή
γ. Ενεργοποιήστε
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Επόμενο γ

Sub End

Βήμα 4: Πατήστε το F5 κλειδί για την εκτέλεση αυτής της μακροεντολής.

Notes:

1. Αυτή η μακροεντολή ισχύει μόνο για κελιά που δεν περιέχουν τύπους εντός αυτών.

2. Αυτή η μακροεντολή θα προσθέσει 300 σε όλα τα επιλεγμένα κελιά. Εάν θέλετε να προσθέσετε άλλη τιμή, αντικαταστήστε το 300 με άλλη αξία.


βέλος μπλε δεξιά φούσκα Προσθέστε αξία σε πολλά κελιά με το Kutools για Excel

Kutools για Excel μας παρέχει μια εναλλακτική εύχρηστη μέθοδο και τα Εργαλεία Λειτουργίας της μπορούν να μας βοηθήσουν να προσθέσουμε αξία σε πολλά κελιά εύκολα.

Kutools για Excel περιλαμβάνει περισσότερα από 80 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Παρ'το τώρα.

Βήμα 1: Επιλέξτε τα κελιά στα οποία θα προσθέσετε την ίδια τιμή.

Βήμα 2: Κάντε κλικ στο Kutools > Επιχείρηση > Εργαλεία λειτουργίας…. Δείτε το στιγμιότυπο οθόνης:

Βήμα 3: Επιλέξτε το Προσθήκη από την ενότητα Λειτουργία και εισαγάγετε την τιμή που θα προσθέσετε σε επιλεγμένα κελιά. Δείτε το στιγμιότυπο οθόνης:

Βήμα 4: Ελέγξτε το Δημιουργήστε τύπους επιλογή.

Βήμα 5: Κάντε κλικ στο κουμπί OK.

Στα Εργαλεία Λειτουργίας,
επιλέξτε Προσθήκη, εισαγάγετε 300 και κάντε κλικ στο OK.

Kutools για Excel Εργαλεία λειτουργίας υποστηρίζει όλα τα είδη μαθηματικής λειτουργίας σε όλα τα επιλεγμένα κελιά μαζί:

  • Προσθήκη: Συν ένα καθορισμένο τελεστέο.
  • Αφαίρεση: Αφαιρέστε τον καθορισμένο τελεστή.
  • Πολλαπλασιασμός: Κάθε τιμή των κελιών πολλαπλασιάζεται με τον τελεστή.
  • Διαίρεση: Κάθε τιμή κελιών διαιρούμενη με τον τελεστή.
  • Εκτόνωση: Κάθε τιμή κυψέλης τροφοδοτεί τον τελεστή.
  • Στρογγυλοποίηση: Στρογγυλοποιήστε κάθε τιμή κελιού με τους δεκαδικούς αριθμούς (καθορισμένος τελεστής).
  • Λειτουργία: Εφαρμόζει μια συνάρτηση σε κάθε τιμή κελιού.
  • Προσαρμοσμένο: Δημιουργήστε μια έκφραση τύπου τύπου και εφαρμόστε σε κάθε τιμή κελιού.

Σχετικό άρθρο

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

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