Как суммировать или подсчитать жирные числа в диапазоне ячеек в 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. Затем нажмите клавишу Enter, и вы подсчитаете жирные ячейки в диапазоне 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. Затем нажмите клавишу Enter, и все жирные числа в диапазоне A1:C9 будут сложены. См. скриншот:

Примечание: A1:C9 в формуле указывает диапазон, который вы хотите использовать для суммирования жирных ячеек, вы можете изменить его по своему усмотрению.

Несколько кликов для подсчета и суммирования жирных ячеек в диапазоне с помощью Kutools для Excel

Вы можете легко подсчитать или суммировать все жирные ячейки в диапазоне несколькими кликами без необходимости разбираться в сложном коде VBA и запоминать формулы.

1. Для подсчета жирных ячеек выберите пустую ячейку для размещения результата, затем нажмите Kutools > Расширенные функции > Подсчет и математика > COUNTBYFONTBOLD.

Для суммирования жирных ячеек нажмите Kutools > Расширенные функции > Подсчет и математика > SUMBYFONTBOLD. См. скриншот:

2. В диалоговом окне Аргументы функции укажите диапазон с жирными ячейками, которые нужно подсчитать или суммировать, в поле Ссылка, а затем нажмите кнопку ОК.

Количество или сумма всех жирных ячеек в указанном диапазоне теперь отображается в выбранной ячейке. См. скриншот:

Демонстрация: Подсчет и суммирование жирных ячеек в диапазоне с помощью Kutools для Excel

Связанные статьи:

Как определить и выбрать все жирные ячейки или текст в Excel?