Как суммировать или подсчитать жирные числа в диапазоне ячеек в 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 более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Демонстрация: Подсчет и суммирование жирных ячеек в диапазоне с помощью Kutools для Excel
Связанные статьи:
Как определить и выбрать все жирные ячейки или текст в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек