Как подсчитать пустые или непустые ячейки в заданном диапазоне Excel?
Когда в диапазоне Excel некоторые ячейки пусты, а вам нужно быстро определить, сколько именно пустых или непустых ячеек в нём содержится — как это сделать? Сейчас я покажу два простых способа подсчёта пустых и непустых ячеек в заданном диапазоне Excel.
Подсчёт пустых или непустых Формула
Подсчёт пустых или непустых ячеек с помощью VB
Легкий подсчёт непустых ячеек с помощью Kutools для Excel
Подсчёт пустых или непустых Формула
В Excel есть формулы, которые быстро подсчитывают только пустые или только непустые ячейки в заданном диапазоне.
Например, вам нужно подсчитать только пустые ячейки в указанном диапазоне, как показано ниже. Выберите пустую ячейку и введите формулу =COUNTIF(A1:G11,«»)) (диапазон A1:G11 обозначает область, в которой следует подсчитать пустые ячейки; его можно изменить по необходимости), затем нажмите клавишу Enter — и количество пустых ячеек будет мгновенно рассчитано. См. скриншот:
Совет: вы также можете использовать формулу =COUNTBLANK(A1:G11) для подсчёта только пустых ячеек. Если же нужно подсчитать только непустые ячейки, воспользуйтесь формулой =COUNTA(A1:G11) (диапазон A1:G11 обозначает область, в которой требуется подсчитать непустые ячейки; его можно изменить по необходимости) или альтернативной формулой =COUNTIF(A1:G11,«<,>,»).
Легко подсчитайте и выделите все непустые ячейки в диапазоне в Excel:
Kutools для Excel's Выбрать непустые ячейки позволяет легко подсчитать и выделить все непустые ячейки в выбранном диапазоне Excel, как показано на скриншоте ниже.
Скачайте и попробуйте прямо сейчас!
Подсчёт пустых или непустых ячеек с помощью VBA
Следуйте приведённым ниже шагам, чтобы с помощью кода VBA подсчитать только пустые или только непустые ячейки.
1. Удерживая ALT, нажмите F11 на клавиатуре, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Вставка > Модуль и скопируйте код VBA в модуль.
VBA: Подсчёт только пустых ячеек
Sub CountBlanks()
'Updateby20140310
Dim rng As Range
Dim WorkRng As Range
Dim total As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
If IsEmpty(rng.Value) Then
total = total + 1
End If
Next
MsgBox "There are " & total & " blank cells in this range."
End Sub
3. Нажмите Выполнить, чтобы запустить макрос VBA. Появится диалоговое окно KutoolsforExcel, в котором необходимо выбрать рабочий диапазон. См. скриншот:
4. Затем нажмите кнопку ОК в диалоговом окне — после этого появится другое окно с информацией о количестве пустых ячеек в выбранном диапазоне.
Совет: Если Вы хотите подсчитать непустые ячейки, выполните те же действия, но используйте следующий код VBA:
VBA: Подсчёт только непустых ячеек
Sub CountNonBlanks()
'Updateby20140310
Dim rng As Range
Dim WorkRng As Range
Dim total As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
If Not IsEmpty(rng.Value) Then
total = total + 1
End If
Next
MsgBox "There are " & total & " not blank cells in this range."
End Sub
Легкий подсчёт непустых ячеек с помощью Kutools для Excel
Утилита Выбрать непустые ячейки из Kutools для Excel позволяет одним щелчком выделить все непустые ячейки в выбранном диапазоне, после чего легко подсчитать количество выделенных ячеек.
1. Выделите диапазон с непустыми ячейками, которые нужно подсчитать, затем нажмите Kutools > Выделить > Выделить непустые ячейки. См. скриншот:
2. После этого появится диалоговое окно с указанием количества непустых ячеек в выбранном диапазоне. Нажмите кнопку «ОК» — и все непустые ячейки будут мгновенно выделены. См. скриншот:
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: Легкий подсчёт непустых ячеек с помощью Kutools для 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек