Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

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

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

Office Tab Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Office και κάντε την εργασία σας πολύ πιο εύκολη ...
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
  • Επαναχρησιμοποίηση οτιδήποτε: Προσθέστε τους πιο χρησιμοποιούμενους ή σύνθετους τύπους, γραφήματα και οτιδήποτε άλλο στα αγαπημένα σας και χρησιμοποιήστε τους γρήγορα στο μέλλον.
  • Περισσότερα από 20 χαρακτηριστικά κειμένου: Εξαγωγή αριθμού από συμβολοσειρά κειμένου. Εξαγωγή ή κατάργηση μέρους των κειμένων. Μετατροπή αριθμών και νομισμάτων σε αγγλικές λέξεις.
  • Συγχώνευση εργαλείων: Πολλαπλά βιβλία εργασίας και φύλλα σε ένα. Συγχώνευση πολλαπλών κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων. Συγχώνευση διπλών σειρών και αθροίσματος.
  • Διαχωριστικά εργαλεία: Διαχωρίστε δεδομένα σε πολλαπλά φύλλα με βάση την τιμή. Ένα βιβλίο εργασίας για πολλαπλά αρχεία Excel, PDF ή CSV. Μία στήλη σε πολλές στήλες.
  • Επικόλληση παράλειψης Κρυφές / φιλτραρισμένες σειρές; Καταμέτρηση και άθροισμα ανά χρώμα φόντου; Αποστολή εξατομικευμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες μαζικά.
  • Σούπερ φίλτρο: Δημιουργήστε προηγμένα σχήματα φίλτρων και εφαρμόστε σε οποιοδήποτε φύλλο. Είδος ανά εβδομάδα, ημέρα, συχνότητα και άλλα. Φίλτρο με έντονη γραφή, φόρμουλες, σχόλια ...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Λειτουργεί με το Office 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας.

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


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

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

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

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

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

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

Sub End

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

Σημειώσεις:

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

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


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

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

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

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

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

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

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

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

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

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

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

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


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Joe Riter · 3 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Hum3 · 4 years ago
    How can I get this VBA formula to skip blank and text cells? Thanks
  • To post as a guest, your comment is unpublished.
    sharfudheen · 5 years ago
    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
  • To post as a guest, your comment is unpublished.
    Fazlan · 5 years ago
    this tool is so useful and can trust the product.
  • To post as a guest, your comment is unpublished.
    Alan · 6 years ago
    any reply? will this site answer our enquiry?
  • To post as a guest, your comment is unpublished.
    Desmond · 6 years ago
    Dear Expert
    Have a question here. How to increase age automatically for each year?

    Thanks
  • To post as a guest, your comment is unpublished.
    Desmond · 6 years ago
    Add Value to multiple cells with VBA's techque is very useful

    Thanks
  • To post as a guest, your comment is unpublished.
    jorawar singh · 7 years ago
    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