Cum să sumați / să numărați numere aldine într-o gamă de celule din Excel?
Când aveți un interval de date care conține câteva numere îndrăznețe într-o foaie de lucru, iar acum doriți să însumați sau să numărați numai celulele aldine, desigur le puteți adăuga una câte una manual, dar va consuma mult timp. Cum ați putea însuma sau număra doar celulele îndrăznețe din Excel într-un mod ușor și rapid?
Numărați numere aldine într-un interval cu funcția definită de utilizator (VBA și formulă)
Sumați numerele aldine într-un interval cu funcția definită de utilizator (VBA și formulă)
Mai mulți fac clic pentru a număra și a suma celulelor îndrăznețe într-un interval cu Kutools pentru Excel
Numărați numerele aldine într-un interval cu funcția definită de utilizator
Următoarele Funcție definită de utilizator vă poate ajuta să obțineți rapid numărul de celule îndrăznețe. Vă rugăm să faceți acest lucru:
1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: Numărați numere aldine într-o gamă de celule
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. Apoi salvați acest cod și tastați această formulă = CountBold (A1: C9) într-o celulă goală, vezi captura de ecran:
4. Apoi apăsați Intrați tasta și veți număra celulele aldine din intervalul A1: C9.
Notă:A1: C9 în formulă indică intervalul pe care doriți să îl utilizați pentru a număra celulele aldine, îl puteți schimba după cum doriți.
Sumați numerele aldine într-un interval cu funcția definită de utilizator
Și dacă doriți să însumați doar numerele aldine dintr-un interval de date, pot crea, de asemenea, o funcție definită de utilizator pentru a o rezolva.
1. Țineți apăsată tasta ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: Sumați numerele aldine într-o gamă de celule
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. Apoi salvați acest cod și tastați această formulă = sumbold (A1: C9) într-o celulă goală, vezi captura de ecran:
4. Și apoi apăsați Intrați tasta, toate numerele aldine din gama A1: C9 au fost adăugate. Vedeți captura de ecran:
Notă:A1: C9 în formula indică intervalul pe care doriți să îl utilizați pentru a însuma celulele aldine, îl puteți schimba în funcție de nevoile dvs.
Mai mulți fac clic pentru a număra și a suma celulelor îndrăznețe într-un interval cu Kutools pentru Excel
YPuteți număra sau suma cu ușurință toate celulele îndrăznețe dintr-un interval cu mai multe clicuri fără a gestiona codul VBA complicat și a aminti formule.
Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.
1. Pentru numărarea celulelor aldine, selectați o celulă goală pentru localizarea rezultatului, apoi faceți clic pe Kutools > Funcții Kutools > Statistică și matematică > COUNTBYFONTBOLD.
Și pentru a însuma celule îndrăznețe, faceți clic pe Kutools > Funcții Kutools > Statistică și matematică > SUMBYFONTBOLD. Vedeți captura de ecran:
2. În Fargumente unction caseta de dialog, specificați intervalul cu celule aldine pe care trebuie să le numărați sau să le sumați în caseta de referință, apoi faceți clic pe OK butonul.
Acum, numărarea sau însumarea tuturor celulelor aldine din intervalul specificat sunt populate imediat în celula selectată. Vedeți captura de ecran:
Dacă doriți să aveți o încercare gratuită (30-zi) a acestei utilitati, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.
Păstrați constantă referința celulei de formulă cu Kutools pentru Excel
Articole pe aceeași temă:
Cum se identifică și se selectează toate celulele sau textele aldine din Excel?
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
