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 perioadă de încercare gratuită (30 de zile) a acestui utilitar, 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 de birou
Î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...
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!