Перейти к содержимому

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

Author: Kelly Last Modified: 2025-08-07

Сталкивались ли вы с проблемами подсчета количества ячеек, содержащих любую дату или данные в определенном диапазоне в Excel? В этой статье я представлю способы подсчета, если ячейки содержат любую дату/данные в Excel.


Подсчитать, если ячейки содержат любую дату в Excel

Этот метод представит макрос VBA для подсчета ячеек, содержащих даты в определенном диапазоне в Excel.

Шаг 1: Откройте окно Microsoft Visual Basic for Applications, нажав клавиши Alt + F11 одновременно.

Шаг 2: Нажмите Вставка > Модуль, а затем вставьте следующий код VBA в окно Модуль:

VBA: Подсчитать, если ячейки содержат любую дату

Function TypeCell(pRange As Range) As Variant

Dim xArr() As Variant
Dim xRng As Range
Application.Volatile
ReDim xArr(pRange.Cells.Count - 1) As Variant
xCount = 0
For Each xRng In pRange
xArr(xCount) = VarType(xRng)
xCount = xCount + 1
Next
TypeCell = xArr
End Function

Шаг 3: В пустой ячейке введите формулу =СУММ(ЕСЛИ(TypeCell(A1:E15)=7;1;0)), а затем нажмите клавиши Ctrl + Shift + Enter одновременно.

Примечание: В формуле =СУММ(ЕСЛИ(TypeCell(A1:E15)=7;1;0)), A1:E15 — это конкретный диапазон, в котором мы будем подсчитывать количество ячеек, содержащих даты, вы можете изменить его по своему усмотрению.

Теперь вы получите количество ячеек, содержащих даты в указанном диапазоне.

Легко выберите и подсчитайте любые ячейки с датами, если даты находятся между двумя датами в Excel

Если у вас установлен Kutools для Excel, вы можете применить его Выбрать специальные ячейки утилиту для быстрого выбора и подсчета любых ячеек с датами, если даты находятся в определенном диапазоне дат.


Kutools' Select Special Cells feature's interface and use case example

Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас

Подсчитать, если ячейки содержат любые данные с помощью функции СЧЁТЗ в Excel

Функция СЧЁТЗ поможет вам легко определить количество ячеек с любыми данными в определенном диапазоне в Excel.

В пустой ячейке введите формулу =СЧЁТЗ(A1:E15), и нажмите клавишу Enter. В формуле диапазон A1:E15 — это конкретный диапазон, в котором вы будете подсчитывать количество ячеек с данными, и вы можете изменить его по необходимости.

Примечание: После выбора конкретного диапазона мы также можем легко получить количество ячеек с любыми данными в строке состояния.

Count of non-blank cells within the selection on the Status Bar 


Подсчитать и выбрать ячейки, если они содержат любые данные в указанном диапазоне

Если у вас установлен Kutools для Excel, вы можете применить его инструмент Выбрать непустые ячейки, чтобы подсчитать и выбрать ячейки, если они содержат любые данные быстро в определенном диапазоне всего одним кликом.

Kutools для Excel - Наполнен более чем 300 необходимыми инструментами для Excel. Воспользуйтесь постоянно бесплатными функциями ИИ! Скачайте прямо сейчас!

Выберите диапазон, в котором вы будете подсчитывать ячейки, если они содержат любые данные, и нажмите Kutools > Выбрать > Выбрать непустые ячейки. Смотрите скриншот:
Select Nonblank Cells option on the Kutools tab on the ribbon

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

Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас

Нажмите кнопку OK, чтобы закрыть это диалоговое окно.


Демонстрация: Подсчитать и выбрать ячейки, если они содержат любые данные в указанном диапазоне

Kutools для Excel: Более 300 удобных инструментов у вас под рукой! Наслаждайтесь постоянно бесплатными функциями ИИ! Скачать сейчас!

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

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Переворот в анализе данных на основе: Интеллектуальное выполнение   |  Сгенерировать код  |  Создать Пользовательские Формулы  |  Анализ данных и генерация диаграмм  |  Вызов Kutools Functions
Популярные функции: Найти, выделить или отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячейки без потери данных   |   Округлить...
Супер ПОИСК: VLookup с несколькими критериями    VLookup с несколькими значениями  |   Многолистовой поиск   |   Распознавание нечетких соответствий ....
Расширенный раскрывающийся список: Быстро создать раскр. список   |  Зависимый раскрывающийся список   |  Множественный выбор в раскрывающемся списке ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки   |  Дизайн листа   |   Улучшенная строка формулы    Управление книгой и листами   |  Библиотека автотекста (Auto Text)   |  Выбор даты   |  Объединить данные   |  Шифрование/Расшифровка ячеек    Отправить письмо по списку   |  Супер фильтр   |   Специальный фильтр (фильтр по жирному/курсиву/зачеркиванию...) ...
Топ–15 наборов инструментов: 12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...)   |   50+ типов диаграмм (Диаграмма Ганта, ...)   |   40+ практических формул (Расчет возраста на основе даты рождения, ...)   |   19 инструментов вставки (Вставить QR-код, Вставить изображение из пути, ...)   |  12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...)   |  7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...)   |   ... и многое другое
Используйте Kutools на вашем предпочитаемом языке – поддерживаются английский, испанский, немецкий, французский, китайский и более40 других языков!

Повысьте свои навыки работы в Excel с Kutools для Excel и ощутите новую эффективность. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени.  Щелкните здесь, чтобы получить наиболее нужную вам функцию...


Office Tab добавляет вкладочный интерфейс в Office, делая вашу работу значительно проще

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в новых окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни кликов мышью ежедневно!