Как подсчитать количество ячеек, содержащих текст или числа, в Excel?
При работе с листом, содержащим смесь текстовых и числовых данных, часто возникает необходимость определить, сколько ячеек содержат текст, а сколько — числа. Это распространённая задача: будь то анализ ответов на опросы, обработка списков данных или подготовка отчётов. Excel предлагает несколько практичных методов для эффективного подсчёта ячеек по типу данных. В следующем руководстве мы подробно рассмотрим различные подходы, объясним, в каких сценариях их лучше использовать, приведём пошаговые инструкции и дадим полезные советы, которые помогут избежать распространённых ошибок.
Подсчёт количества ячеек с текстом с помощью формулы
Подсчёт количества ячеек с числами с помощью формулы
Подсчёт ячеек с текстом или числами с помощью кода VBA (макроса)
Подсчёт количества ячеек с текстом с помощью формулы
Чтобы быстро подсчитать, сколько ячеек в заданном диапазоне содержат текстовые значения — исключая числовые, — используйте специальную формулу Excel. Этот метод идеально подходит для оперативной статистики и эффективно работает в самых разных таблицах, где важно чётко отделить текстовую информацию от чисел.
1. Начните с выбора пустой ячейки, в которой вы хотите отобразить результат подсчёта.
2. Скопируйте и вставьте следующую формулу в строку формул:
=COUNTA(A1:D15)-COUNT(A1:D15)После нажатия клавиши Enter в выбранной ячейке отобразится общее количество ячеек, содержащих текст.
Примечание: Не забудьте скорректировать диапазон ячеек (в приведённом выше примере — A1:D15) в соответствии с областью на вашем листе, которую необходимо подсчитать. Эта формула подсчитывает все непустые ячейки с помощью функции COUNTA и вычитает количество ячеек с числами, оставляя только количество ячеек с текстом. Пустые ячейки, а также ячейки с ошибками или результатами формул могут учитываться в COUNTA, поэтому рекомендуется внимательно проверить выделенный диапазон для получения наилучших результатов.
Совет:Если в вашем диапазоне есть формулы, возвращающие пустые строки («»), функция COUNTA будет считать их как текст. Проверьте свои данные, если вам нужно точное количество ячеек с текстом, введённым вручную.
Подсчёт количества ячеек с числами с помощью формулы
Узнав количество ячеек с текстом, вы, вероятно, захотите подсчитать и число ячеек с числами. Этот простой метод идеально подходит для наборов данных, где нужно определить, сколько ответов являются числовыми — например, баллы в опросах, количественные показатели или любая другая числовая информация.
1. Выберите пустую ячейку, в которой будет отображён результат подсчёта чисел.
2. Скопируйте приведённую ниже формулу и вставьте её в строку формул:
=COUNT(A1:D15)Затем нажмите Enter, чтобы отобразить результат в выбранной ячейке.
Примечание: Аналогично, замените диапазон ячеек (в примере — A1:D15) на ваш фактический рабочий диапазон. Функция COUNT учитывает только ячейки с числовыми значениями и игнорирует текстовые данные и пустые ячейки. Если ваши числа отформатированы как текст, формула не будет их учитывать, поэтому обязательно убедитесь, что ячейки имеют правильный числовой формат для получения точных результатов.
Совет: Для диапазонов, содержащих даты (Excel хранит даты как порядковые номера), функция COUNT учитывает их в результатах как числа.
Подсчёт ячеек с текстом или числами с помощью кода VBA (макроса)
Для более сложных задач или при работе с большими наборами данных использование макроса VBA может значительно упростить процесс подсчёта ячеек с текстом или числами. Такой подход особенно полезен, если необходимо многократно выполнять операцию для разных диапазонов или автоматизировать рабочий процесс. Он также позволяет настраивать критерии подсчёта в соответствии с вашими потребностями.
1. На ленте Excel нажмите Инструменты разработчика (если этой вкладки нет, включите её через Параметры Excel), затем выберите Visual Basic, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне VBA нажмите Вставка > Модуль и вставьте следующий код в модуль:
Sub CountCellsTextOrNumbers()
Dim WorkRng As Range
Dim xTitleId As String
Dim cell As Range
Dim TextCount As Long
Dim NumberCount As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Select range to count:", xTitleId, WorkRng.Address, Type:=8)
TextCount = 0
NumberCount = 0
For Each cell In WorkRng
If VBA.IsNumeric(cell.Value) And Not IsEmpty(cell.Value) Then
NumberCount = NumberCount + 1
ElseIf VBA.TypeName(cell.Value) = "String" And Not IsEmpty(cell.Value) Then
TextCount = TextCount + 1
End If
Next
MsgBox "Cells with numbers: " & NumberCount & vbCrLf & "Cells with text: " & TextCount, vbInformation, xTitleId
End Sub3. Чтобы выполнить код, нажмите кнопку 
«Выполнить» (или клавишу F5). Появится диалоговое окно с запросом на выбор диапазона для подсчёта.
Этот макрос покажет в отдельном всплывающем окне количество ячеек, содержащих текст и числа. Пустые ячейки игнорируются — учитываются только заполненные.
Связанные статьи:
- Как подсчитать количество ячеек между двумя заданными значениями или датами в Excel?
- Как подсчитать в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек