Как да сумирате / преброите удебелени числа в диапазон от клетки в Excel?
Когато имате диапазон от данни, който съдържа някои удебелени числа в работен лист, и сега искате да сумирате или преброите само удебелените клетки, разбира се, можете да ги добавите една по една ръчно, но това ще отнеме много време. Как можете да сумирате или преброите само удебелените клетки в Excel по лесен и бърз начин?
Преброяване на удебелени числа в диапазон с дефинирана от потребителя функция (VBA и формула)
Сумирайте удебелени числа в диапазон с дефинирана от потребителя функция (VBA и формула)
Няколко кликвания, за да преброите и сумирате удебелени клетки в диапазон с Kutools за Excel
Пребройте удебелени числа в диапазон с дефинирана от потребителя функция
По-долу Потребителска функция може да ви помогне бързо да получите броя на удебелените клетки. Моля, направете следното:
1. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
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.
Забележка:A1:C9 във формулата показва диапазона, който искате да използвате, за да преброите удебелените клетки, можете да го промените според вашите нужди.
Сумирайте удебелени числа в диапазон с дефинирана от потребителя функция
И ако искате да сумирате само удебелените числа в диапазон от данни, мога също да създам дефинирана от потребителя функция, за да го разрешите.
1. Задръжте надолу ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
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 са добавени. Вижте екранна снимка:
Забележка:A1:C9 във формулата показва диапазона, който искате да използвате, за да сумирате удебелените клетки, можете да го промените според вашите нужди.
Няколко кликвания, за да преброите и сумирате удебелени клетки в диапазон с Kutools за Excel
Yможете лесно да преброите или сумирате всички удебелени клетки в диапазон с няколко щраквания, без да боравите със сложен VBA код и да помните формули.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. За преброяване на удебелени клетки, моля, изберете празна клетка за намиране на резултата и след това щракнете Kutools > Функции на Kutools > Статистика и математика > COUNTBYFONTBOLD.
И за сумиране на удебелени клетки щракнете Kutools > Функции на Kutools > Статистика и математика > SUMBYFONTBOLD. Вижте екранна снимка:
2. Във Function аргументи диалоговия прозорец, задайте диапазона с удебелени клетки, които трябва да преброите или сумирате в полето за справка, след което щракнете върху OK бутон.
Сега преброяването или сумирането на всички удебелени клетки в определен диапазон се попълват незабавно в избраната клетка. Вижте екранна снимка:
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Поддържайте препратката към клетка с формула постоянна с Kutools за Excel
Свързани статии:
Как да идентифицирате и изберете всички удебелени клетки или текст в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!