Πώς να αθροίσετε / μετρήσετε έντονους αριθμούς σε μια σειρά κελιών στο Excel;

Όταν έχετε ένα εύρος δεδομένων που περιέχει μερικούς έντονους αριθμούς σε ένα φύλλο εργασίας και τώρα θέλετε να αθροίσετε ή να μετρήσετε μόνο τα έντονα κελιά, φυσικά μπορείτε να τα προσθέσετε ένα προς ένα χειροκίνητα, αλλά θα είναι χρονοβόρο. Πώς μπορείτε να αθροίσετε ή να μετρήσετε μόνο τα έντονα κελιά στο Excel με έναν εύκολο και γρήγορο τρόπο;

Μετρήστε έντονους αριθμούς σε ένα εύρος με τη λειτουργία που καθορίζεται από τον χρήστη (VBA και τύπος)
Αθροίστε τους έντονους αριθμούς σε ένα εύρος με τη λειτουργία που καθορίζεται από το χρήστη (VBA και τύπος)
Αρκετά κλικ για να μετρήσετε και να αθροίσετε έντονα κελιά σε μια σειρά με το Kutools για Excel

Μετρήστε τους έντονους αριθμούς σε ένα εύρος με τη λειτουργία που καθορίζεται από το χρήστη

Ο ακόλουθος Λειτουργία καθορισμένη από τον χρήστη μπορεί να σας βοηθήσει να λάβετε γρήγορα τον αριθμό των τολμηρών κελιών. Κάντε το ως εξής:

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

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Καταμέτρηση έντονων αριθμών σε μια σειρά κελιών

Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xCount = xCount + 1
    End If
Next
CountBold = xCount
End Function

3. Στη συνέχεια, αποθηκεύστε αυτόν τον κωδικό και πληκτρολογήστε αυτόν τον τύπο = CountBold (A1: C9) σε ένα κενό κελί, δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια πατήστε εισάγετε και θα μετρήσετε τα έντονα κελιά στην περιοχή A1: C9.

Σημείωση:Α1: Γ9 στον τύπο δείχνει το εύρος που θέλετε να χρησιμοποιήσετε τη συνάρτηση για να μετρήσετε τα έντονα κελιά, μπορείτε να το αλλάξετε ανάλογα με τις ανάγκες σας.

Αθροίστε τους έντονους αριθμούς σε ένα εύρος με τη λειτουργία που καθορίζεται από το χρήστη

Και αν θέλετε να αθροίσετε μόνο τους έντονους αριθμούς σε ένα εύρος δεδομένων, μπορώ επίσης να δημιουργήσω μια συνάρτηση καθορισμένη από τον χρήστη για να την λύσετε.

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

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Αθροίστε τους έντονους αριθμούς σε μια περιοχή κελιών

Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
    If Rng.Font.Bold Then
        xSum = xSum + Rng.Value
    End If
Next
SumBold = xSum
End Function

3. Στη συνέχεια, αποθηκεύστε αυτόν τον κωδικό και πληκτρολογήστε αυτόν τον τύπο = sumbold (A1: C9) σε ένα κενό κελί, δείτε το στιγμιότυπο οθόνης:

4. Και στη συνέχεια πατήστε εισάγετε πλήκτρο, έχουν προστεθεί όλοι οι έντονοι αριθμοί στην περιοχή A1: C9. Δείτε το στιγμιότυπο οθόνης:

Σημείωση:Α1: Γ9 στον τύπο δείχνει το εύρος που θέλετε να χρησιμοποιήσετε τη συνάρτηση για να αθροίσετε τα έντονα κελιά, μπορείτε να το αλλάξετε ανάλογα με τις ανάγκες σας.

Αρκετά κλικ για να μετρήσετε και να αθροίσετε έντονα κελιά σε μια σειρά με το Kutools για Excel

YΜπορείτε εύκολα να μετρήσετε ή να αθροίσετε όλα τα έντονα κελιά σε ένα εύρος με αρκετά κλικ χωρίς να χειριστείτε περίπλοκο κώδικα VBA και να θυμάστε τους τύπους.

1. Για να μετρήσετε έντονα κελιά, επιλέξτε ένα κενό κελί για τον εντοπισμό του αποτελέσματος και, στη συνέχεια, κάντε κλικ στο Kutools > Λειτουργίες Kutools > Στατιστική & Μαθηματικά > COUNTBYFONTBOLD.

Και για να αθροίσετε έντονα κελιά, κάντε κλικ στο Kutools > Λειτουργίες Kutools > Στατιστική & Μαθηματικά > SUMBYFONTBOLD. Δείτε το στιγμιότυπο οθόνης:

2. Στο FΕπιχειρήματα πλαίσιο διαλόγου, καθορίστε το εύρος με έντονα κελιά που πρέπει να μετρήσετε ή να αθροίσετε στο πλαίσιο αναφοράς και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

Τώρα η μέτρηση ή το άθροισμα όλων των έντονων κελιών σε καθορισμένο εύρος συμπληρώνεται αμέσως σε επιλεγμένο κελί. Δείτε το στιγμιότυπο οθόνης:

Διατηρήστε σταθερή την αναφορά κελιών τύπου με το Kutools για Excel

Σχετικά Άρθρα:

Πώς να αναγνωρίσετε και να επιλέξετε όλα τα έντονα κελιά ή κείμενο στο Excel;