Как подсчитать количество слов в строке

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

Принцип подсчета слов

Представленный метод подсчета слов в строке (в текстовом значении) основан на том, что:

1. В строке отсутствуют лишние пробелы, то есть два соседних слова отделены друг от друга одним пробелом;

2. словом считается любая комбинация символов, справа или слева от которой находится пробел;

3. количество слов в строке на единицу больше количества разделяющих их пробелов.

Таким образом, для того чтобы подсчитать количество слов в строке, необходимо предварительно удалить из этой строки все лишние пробелы, затем посчитать количество оставшихся пробелов и увеличить их на единицу, эта величина и будет соответствовать количеству слов в строке.

Количество пробелов в строке определяется при помощи циклического перебора символов заданной строки и сравнения каждого символа с символом пробела. При совпадении счетчик пробелов увеличивается на единицу.

Процедура по подсчету слов в строке

'Процедура для подсчета слов в предложении
Option Explicit
Sub Podschet_slov()
Dim iStr As String  'исходная строка, текстовое значение
Dim b As String     'строка без лишних пробелов
Dim x As String     'текущий символ в строке
Dim i As Integer    'номер текущего символа
Dim j As Integer    'счетчик пробелов
    iStr = " Я пришел к тебе с приветом рассказать, что солнце встало! "
    b = Trim(iStr)
    j = 0
        For i = 1 To Len(b)
            x = Mid(b, i, 1)
            If x = " " Then j = j + 1
        Next i
        MsgBox j + 1
End Sub

Для того чтобы узнать количество слов в ячейке Excel, можно использовать пользовательскую функцию.

Функция для подсчета слов в ячейках Excel

Function КОЛСЛОВ(СТРОКА As String) As Integer
    b = Application.Trim(СТРОКА)
    j = 0
        For i = 1 To Len(b)
            x = Mid(b, i, 1)
            If x = " " Then j = j + 1
        Next i
    СТРОКА = j + 1
End Function

Если скопировать и вставить этот программный код в личную книгу макросов, функция становится доступна для использования через мастер функций. Функция добавляется в категорию функций "Определенные пользователем".

Надстройка для определения количества слов в ячейках Excel

Можно сохранить представленный выше программный код не в личную книгу макроса, а в модуль VBA-проекта, после чего сохранить рабочую книгу как надстройку. Внесение в программный код некоторых дополнений позволяет добавлять функцию в любую категорию, например в "Текстовые", кроме того появляется возможность добавить к функции краткое описание. Пример надстройки можно скачать бесплатно.