Перейти к основному содержанию

Как подсчитать количество слов в ячейке или диапазоне ячеек в Excel?

Вы можете легко подсчитать количество слов в MS Word, но в Excel нет встроенного инструмента для подсчета количества слов на листе. Однако вы можете подсчитать количество слов в Excel следующими способами:

Подсчитайте количество слов по формуле
Подсчитайте количество слов в одной ячейке с помощью функций, определяемых пользователем
Подсчитать количество слов в указанном диапазоне с кодом VBA
Легко подсчитать количество слов с Kutools for Excel (несколько кликов)


Подсчитайте количество слов по формуле

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

Подсчитайте слова в одной ячейке

Пожалуйста, введите эту формулу =IF(LEN(TRIM(A2))=0,0,LEN(TRIM(A2))-LEN(SUBSTITUTE(A2," ",""))+1) в Панель формул, а затем нажмите Enter .

Внимание: В формуле A2 - это ячейка, в которой вы будете подсчитывать количество слов.

Вы можете увидеть результат, как показано на скриншоте ниже:

Подсчет слов в диапазоне ячеек с помощью формулы массива

Если вы хотите подсчитать количество слов в диапазоне ячеек, введите формулу =SUM(IF(LEN(TRIM(A2:A3))=0,0,LEN(TRIM(A2:A3))-LEN(SUBSTITUTE(A2:A3," ",""))+1)) в строку формул, а затем нажмите Shift + Ctrl + Enter клавиши одновременно, чтобы получить результат. Смотрите скриншот:

Внимание: A2: A3 - это диапазон слов, которые вы будете считать.

Легко подсчитайте общее количество слов в ячейке или диапазоне ячеек в Excel:

Это Подсчитать общее количество слов полезности Kutools for Excel может помочь вам быстро подсчитать общее количество слов в ячейке или диапазоне ячеек в Excel, как показано в демонстрации ниже.
Скачайте и попробуйте прямо сейчас! (30-дневная бесплатная трасса)


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

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

1. Нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. В winodw нажмите Вставить > Модули, затем скопируйте и вставьте ниже код VBA в модуль. Смотрите скриншот:

Код VBA: подсчитать количество слов в ячейке.

Function intWordCount(rng As Range) As Integer
'Update by Extendoffice 2018/3/7
    intWordCount = UBound(Split(Application.WorksheetFunction.Trim(rng.Value), " "), 1) + 1
End Function

2. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений Winodw. Выберите пустую ячейку на листе, введите формулу «=intwordcount(A2)»В панель формул, а затем нажмите Enter ключ для получения результата. Смотрите скриншот:

Внимание: В формуле A2 - это ячейка, в которой вы будете подсчитывать количество слов.

Если вы хотите подсчитать количество слов в определенном диапазоне, примените следующий метод.


Подсчитать количество слов в указанном диапазоне с кодом VBA

Следующий код VBA может помочь вам быстро подсчитать количество слов в указанном диапазоне.

1. Нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. В winodw нажмите Вставить > Модули, затем скопируйте и вставьте ниже код VBA в модуль. Смотрите скриншот:

Код VBA: подсчитать количество слов в выбранном диапазоне.

Sub CountWords()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xRgVal As String
    Dim xRgNum As Long
    Dim xNum As Long
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then
        MsgBox "Words In Selection Is: 0", vbInformation, "Kutools For Excel"
        Exit Sub
    End If
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        xRgVal = Application.WorksheetFunction.Trim(xRgVal)
        If xRgEach.Value <> "" Then
            xNum = Len(xRgVal) - Len(Replace(xRgVal, " ", "")) + 1
            xRgNum = xRgNum + xNum
        End If
    Next xRgEach
    MsgBox "Words In Selection Is: " & Format(xRgNum, "#,##0"), vbOKOnly, "Kutools For Excel"
    Application.ScreenUpdating = True
End Sub

3. нажмите F5 ключ для запуска кода. В всплывающем Kutools for Excel в диалоговом окне выберите диапазон, в котором вы будете подсчитывать количество слов, а затем щелкните OK кнопка. Смотрите скриншот:

Затем другой Kutools for Excel диалоговое окно всплывает, чтобы показать вам общее количество слов в выбранном диапазоне. Смотрите скриншот:


Подсчитайте количество слов с Kutools for Excel (только клики)

Yты можешь попробовать Подсчитать слова в диапазоне полезности Kutools for Excel чтобы легко подсчитать количество слов в ячейке или диапазоне всего за несколько кликов.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выберите ячейку для возврата результата, затем щелкните Кутулс > Формула Помощник > Формула Помощник.

2. в Помощник по формулам диалоговое окно, настройте следующим образом.

  • В Выберите формулу выберите Подсчитать общее количество слов;
    Tips: Вы можете проверить Фильтр поле введите ключевое слово, чтобы быстро отфильтровать формулу по мере необходимости.
  • В Диапазон поле укажите ячейку или диапазон, в котором вы хотите подсчитать общее количество слов;
  • Нажмите OK кнопка. Смотрите скриншот:

Тогда вы получите количество слов в указанной ячейке или диапазоне.

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


Легко подсчитать количество слов с Kutools for Excel

  Kutools for Excel включает более 300 мощных функций для Microsoft Excel. Бесплатно попробовать без ограничений в 30 дней. Скачать сейчас!

Лучшие инструменты для офисной работы

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

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

вкладка kte 201905


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (32)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks a lot for sharing this formula. I pasted it and changed the cell reference to fit my sheet. Thanks a lot.
This comment was minimized by the moderator on the site
OMG THANK YOU FOR THIS GOOD INFO
This comment was minimized by the moderator on the site
If the cell is empty is is incorrectly displaying a count of 1. To correct this I changed the formula to:


=IF(LEN(TRIM(A1)) > 0, LEN(TRIM(A1))-LEN(SUBSTITUTE(TRIM(A1),",",""))+1, 0)
This comment was minimized by the moderator on the site
You are the best. The formula worked for me effortlessly. Kudos!!!
This comment was minimized by the moderator on the site
is there any function will count if i kept cells in one color??? ( i mean to know if filled with same colour is there any formula to count the number of colour boxes)
This comment was minimized by the moderator on the site
Is a chance that this function will count only unique words. For example if word exist in a range two times will count only one, will not count duplicates
This comment was minimized by the moderator on the site
Hi,
For counting only the unique words in a range, please apply this formula (please replace A1:A9 with the range based on your needs): =SUMPRODUCT(1/COUNTIF(A1:A9,A1:A9)). Thank you for your comment.
This comment was minimized by the moderator on the site
Is chance that this formula will count only unique words. My question is if word will exist 2 times in range will count that word only once without counting duplicates?
This comment was minimized by the moderator on the site
I need to clip words from a paragraph like this

"Advised that device is out of warranty and that no repair available so we would recommend that this unit be removed from svc and replaced if they need a device that will provide audible prompts. Sales rep will go to the customer site and advise them of this.
Closing case while wait"
I want to specify a word and in return I want the preceding and succeeding word to come along with the one I specify, like if I specify "svc" output should be "from svc and" .
please Help
This comment was minimized by the moderator on the site
It is telling me: "The formula you typed contains error. Please make sure you have typed in the arguments according to the remark of the formula!"


Every cell contains only one word. I also double checked, everything is "text".
Is there a solution to this problem?
This comment was minimized by the moderator on the site
This is exactly the problem I have... :( Did you found a solution?
This comment was minimized by the moderator on the site
This is superb. Thank you - just what I needed!!

PS Only.... I thought I was pretty clued up with using excel and now it's made me realise I am a mere novice compared to some!! :-D
This comment was minimized by the moderator on the site
Hi and thank you for this - the first formula is just what I need, but is there a way to automatically apply it to the same cell in each row please: D1, E1, F1 etc?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations