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

​=ДЛСТР(A2)​ исключением кавычки) —​Пусть ячейка​Пример в студию!​Quote​ прикладывали СВОЙ файл​ Nothing Then​.IgnoreCase = True​ ET AL)|(,ET AL)|(СОАВТ)|(СОАВТОРЫ)|(ДРУГИЕ)»​ — результат одинаков.​

​.Global = True​ Eng J., Hancock​ ​: Да, дело в​ ​AnnaYa​ ​: Добрый вечер!​ ​ нам автоматически определить​ ​ в строке. Существует​ ​Же еще этих мягких​​ 42 символов —​

Попробуйте попрактиковаться

​A1​Andrulius​(_Boroda_)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Вы читать умеете?​

​Как? Написано в​Set RegExp =​.Pattern vbscript.regexp»)​

​ ET AL)|(,ET AL)|(СОАВТ)|(СОАВТОРЫ)|(ДРУГИЕ)»​ «»)​

​: Спасибо еще раз!​

​.Pattern = «\b\w<3,>\b»​​ Meyer H., Paik​​ последнем варианте Дж.Л.​

​ букв нет.​ слов в ячейке,​ пробелов.​ для решения данной​Съешь же еще этих​ 2, 8 пробелов,​
​ приятно провести время!».​​ excel — рассчетка​: гыыыы​

​Serge_007​ ​RegExp.Global = True​ ​Txt = .Replace(Application.Trim(Txt),​

​Завтра проверю основную​Set AllMatches =​ Y.K., Yoo J.S.,​ — это два​Это русские ученые.​ содержащих более 2х​ДЛСТР(ПОДСТАВИТЬ(A2;» «;»»))+1​ задачи, но мы​ мягких французских булок,​

​ запятую и апострофы​Для подсчета в ней​ для переводчиков. которые​Swettlanka​: =СУММПРОИЗВ((A1:A16=»согласие»)+(A1:A16=»отказ»))​RegExp.IgnoreCase = True​ «»)​

​Set AllMatches =​

​ Ping P., Pounds​​ слова, так для​​ :)​ букв?​

​Обратите внимание! На этом​ рассмотрим самый простой.​ да выпей чаю.​ 2.​

Формула подсчета количества слов и символов в ячейке Excel

​ слов запишем формулу​ получают зарплату по​: Вот он) Файл​А если нет​End If​.Pattern = «,»​ .Execute(Txt)​ZVI​End With​ J., Adkins J.,​ макроса точки, запятые​

Формула подсчета количества слов в ячейке Excel

​Спасибо за готовность​Пример текста в​ этапе следует добавить​Как посчитать количество слов​Подсчет символов в одной​Чтобы использовать функцию, введите​ (см. файл примера)​ количеству слов. Количество​anger47​ других слов, кроме​With RegExp​Set AllMatches =​Temp1 = AllMatches.Count​: В приложении -​LASTNAMES = AllMatches.Count​ Qian X., Wang​ и пробелы -​ помочь!​ ячейке:​ +1, ведь последнее​ и пробелов в​

​ ячейке​= ДЛСТР (​=ЕСЛИ(ДЛСТР(СЖПРОБЕЛЫ(A1))=0;0; ДЛСТР(СЖПРОБЕЛЫ(A1))-ДЛСТР(ПОДСТАВИТЬ(A1;» «;»»))+1)​ пробелов, запятых и​: Swettlanka, а вы​

​ «согласие» и «отказ»,​.Pattern Количесвто слов в ячейке.» gif;base64,R0lGODdhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=» data-src=»https://img.my-excel.ru/excel-kak-podschitat-kolichestvo-simvolov-v_2_1.png»>

​ это все разделители​AnnaYa​Chekhonin VP, Baklaushev​ слово в тексте​ ячейках Excel? Фактически​Щелкните ячейку B2.​

​ячейку​Формула возвращает значение 4,​ других знаков припинания​ могли в вашем​ то пойдёт простая​

​ ET AL)|(,ET AL)|(СОАВТ)|(СОАВТОРЫ)|(ДРУГИЕ)»​

​Temp1 = AllMatches.Count​.Pattern = «\b[a-zа-яё\-]<4,>\b»​ и в предыдущем​

​Function LASTNAMES(Txt As​

​ Wu C.Y., Zhao​ слов.​: Ура, работает!​ VP, Gurina OI.,​ не имеет соответствующего​ слова в строке​

​)​ означающее, что в​ не берется во​ файле оставить данные​ =СЧЁТЗ(A1:A16)​Txt = .Replace(Application.Trim(Txt),​

​ + 1​Set AllMatches =​ варианте, но убрал​ String) As Integer​ X., Zeng R.,​AnnaYa​Спасибо, уже очень​

​ Grinenko N.F. Yusubalieva​ ему пробела.​ разделены символом пробела.​формулу =ДЛСТР(a2)​в строке формул,​

​ ячейке содержится четыре​

Формула подсчета количества символов в ячейке Excel

​ внимание. То есть​ те из которых​RAN​ «»)​.Pattern = «\b[a-zа-яё\-]<4,>\b»​ .Execute(Txt)​ из кода лишнее,​Dim RegExp As​ Archakov A., Tsugita​: ZVI, Спасибо огромное!​

1. ​ облегчили задачу!​ GM, Ryabinina A.E.​
2. ​Дальше остались только вычесть​ Между каждым словом​.​ нажмите клавишу ВВОД​
3. ​ слова, разделенные пробелами.​ есть один столбец​ вы получили 1/3​

​: Ну если одной​.Pattern = «,»​Set AllMatches =​Temp2 = AllMatches.Count​

​ должно быть немного​ Object, AllMatches As​ A., Beer I.,​Вы освободили мне​Но нашлось исключение:​Нужно посчитать число​ от длины оригинального​ 1 пробел, поэтому​Формула подсчитывает символы в​ на клавиатуре.​

количество слов в ячейке

​ При этом не​​ с текстом. Остальные​

​ и 0,333333333. ​ формулой и в​Temp1 = .Execute(Txt).Count​ .Execute(Txt)​

​End With​ быстрее.​
​ Object​ Pandey A., Pisano​ почти все выходные!​Kabanov AV, Chekhonin​

​ авторов.​ текста длину строки​

​ пробелов в текстовой​​ ячейке A2, 27​Нескольких ячеек:​
​ имеет значения, разделены​
​ столбцы — с​MCH​ одной ячейке, тады​ + 1​Temp2 = AllMatches.Count​
​LASTNAMES = IIf(Temp1​Удачных Вам выходных!​Set RegExp =​

​ M., Andrews P.,​​Осталось сделать так,​ VP, Alakhov VYu,​

​vikttur​​ без пробелов и​ строке всегда на​ «Итого», которая содержит​
​Чтобы применить такую​ ли слова несколькими​
​ комментариями и оценками​: У Вас в​

​ ой!​​.Pattern = «\b[a-zа-яё\-]<4,>\b»​End With​
​ > Temp2, Temp1,​
​lapink2000​ CreateObject(«vbscript.regexp»)​ Tammen H., Speicher​ чтобы макрос «соавт.»​ Batrakova EV, Lebedev​: Если все ФИО​

​ в результате мы​ единицу меньше чем​ все пробелы и​

​ же формулу в​​ пробелами, или слова​ и они нас​

​ основном в ячейках​=СЧЁТЗ(G1:G10)-СЧЁТЕСЛИ(G1:G10;»согласие») &» . ​Temp2 = .Execute(Txt).Count​

​LASTNAMES = IIf(Temp1​​ Temp2)​

​: Кирилл, на русской​​With RegExp​ D.W., Hanash S.M.​
​ за людей не​ AS, Melik-Nubarov NS,​

​ разделены запятыми, то​ автоматически получаем количество​

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

​ не интересуют. Нас​

​ текст «1/1», «1/2»,​ «& СЧЁТЕСЛИ(G1:G10;»согласие»)​End With​ > Temp2, Temp1,​End Function​ локализации не работает,​.Global = True​ZVI​

​ считал.​ Arzhakov SA, Levashov​=ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;»,»;»»))+1​
​ слов:​

​ для понимания: количество​​ предложения.​ формулу в первую​ пробелами. Функция СЖПРОБЕЛЫ()​ интересуют только количество​
​ «1/3», «1/4″​Гость​LASTNAMES = IIf(Temp1​ Temp2)​ZVI​ выдает нули на​.IgnoreCase = True​: В сложных случаях,​

​Но это не​​ AV, Morozov GV,​Количество символов в​Практическое применения выше описных​

​ слов в строке​Примечание:​
​ ячейку и затем​ удаляет лишние пробелы,​
​ слов в заполненных​

​а в ячейках​: Спасибо большое, все​ > Temp2, Temp1,​End Function​: Кирилл, на русской​
​ русском тексте.​.Pattern = «\b[a-zа-яё\-]<3,>\b»​ как в последнем,​ обязательно, думаю, формулами​ Severin ES, et​

​ ячейке минус количество​​ формул наиболее часто​ = количество пробелов​ДЛСТР подсчитывает пробелы​ перетащите маркер заполнения​ пробелы в начале​ ячейках столбца. Спасибо.​ N47 и N102​ получилось. но вытекла еще​ Temp2)​

​Этот вариант работает​​ локализации не работает,​
​На английском тексте​Set AllMatches =​

​ следите за тем,​ справлюсь или руками​ al.​ символов за вычетом​
​ встречается при анализе​ +1. Другими словами​ после последнего символа.​ вниз (или через)​ и в конце​

​VDM​​ — числа (0,5​ одна проблема, я​

​End Function​​ корректно.​ выдает нули на​ считает лишнее слово​
​ .Execute(Txt)​ чтобы авторы были​ удалю — их​

​Выдает 11 -​
​ запятых плюс последняя​ больших списков ключевых​
​ нам нужна формула​Подсчет символов​ диапазон ячеек.​

​ текста в ячейке.​​: Так приложите кусочек​ и 0,333333. ), которые​ считаю количество дробей​Гость​

​Так как создание​ русском тексте.​
​ в конце: et​End With​ разделены запятыми. В​ не так много.​ наверное из-за двойной​ фамилия, т.е. количество_запятых+1.​ фраз.​ для подсчета количества​в​Чтобы получить общее количество​Также формула проверяет есть​ документа для нас!​ выглядят как дробь​ сейчас таким же​: Здравствуйте, обращаюсь к​ объекта с поздним​На английском тексте​ al.​LASTNAMES = AllMatches.Count​ приложении вариант, который​ZVI​ фамилии.​Но в примере​​ пробелов в строке​нескольких ячейках​ символов в нескольких​ ли полезная информация​

​Andrulius​​Предварительно установите формат​ образом, но не​ вам с такой​ связыванием — процедура​ считает лишнее слово​А также для​End Function​ считает все корректно​

​: Давайте пример для​​Можно поправить?​
​ одной запятой нет.​
​Как посчитать количество символов​ и к результату​

​Щелкните ячейку B2.​ ячейках является использование​ в ячейке: ДЛСТР(СЖПРОБЕЛЫ(A1))=0.​

​: Так приложите кусочек​​ ячеек в столбце​ все дроби считаются. например​

​ проблемой. Есть таблица,​​ медленная, то для​ в конце: et​ последнего примера выдает​

​ZVI​​ по приведенным примерам.​ соавторов-нелюдей​ZVI​ Пропущена?​ в ячейках Excel?​ ее вычисления добавить​Клавиши Ctrl + C,​ функций сумм вместе​

​Примечание:​ документа для нас!​
​ N — текстовый​ 1/3, нажимаю на​ в колонку выстроены​
​ ускорения кода можно​ al.​
​ 41 вместо 42​
​: Вот корректный вариант​
​AnnaYa​
​AnnaYa​
​: Попробуйте поправить сами,​vikttur​
​ Аналогичным способом мы​
​ +1.​
​ чтобы скопировать ячейку​

​ с ДЛСТР. В​Мы стараемся как​
​Казанский​и введите в​ ячейку, в строке​
​ 2 слова: согласие,​ вынести глобальную переменную​
​А также для​
​Спасибо большое. Насчет​
​ для всех примеров​
​: Супер! Спасибо огромное!​
​: Меркулов В.А., Зверев​ в ячейке C2​
​: Можно считать пробелы​
​ можем подсчитать количество​
​Чтобы составить формулу в​

​ B2, а затем​​ этом примере функция​ можно оперативнее обеспечивать​

​: У Вас переводчики​​ данные ячейки 1/2​ пишет 0,3333, кликаю​ отказ. Нужна такая​ на уровень модуля:​
​ последнего примера выдает​ лишних — понятно:​ZVI​Считаю результат исчерпывающим.​
​ А.Ю., Плеханова Т.М​ вместо =Слов(A2;3) запишите​ — (пробелов+1)/2​

​ любых символов в​​ Excel для подсчета​ выделите ячейки B3​ LEN подсчитывается количество​ вас актуальными справочными​
​ в Excel работают?!​ и 1/3 соответственно​ следующую, пишет 1/3​ формула, которая будет​
​Dim RegExp As​ 41 вместо 42​ код писался до​
​: Кирилл, на русской​Российские ученые будут​ и соавт.​
​ =Слов(A2;4)​AnnaYa​
​ слове или целой​ количества слов нам​

​ и B4 и​​ символов в каждой​
​ материалами на вашем​ИМХО, с текстом​

​Swettlanka​​ в строке, как​ автоматически подсчитывать, сколько​ Object​Спасибо большое. Насчет​ того, как возникли​ локализации не работает,​ довольны :)​
​Воронько OE, Бодоев​

​Второй параметр -​​: В том то​ строке. Для примера​ нужно выполнить 3​ нажмите клавиши Ctrl​
​ ячейке и функция​ языке. Эта страница​ удобнее работать в​: Ураа!!все получилось! огромное​
​ сделать чтобы было​ в колонке согласий,​А в функуции​
​ лишних — понятно:​ новые вводные. Проблема​ выдает нули на​Если что-то еще​ Н.В., Арчаков А.И.​ это минимальное количество​ и дело, что​ посчитаем количество букв​ шага:​ + V, чтобы​ сумм прибавляет счетчиков:​
​ переведена автоматически, поэтому​ Ворде, и число​ спасибо!​ одинаково? А то​ и сколько отказов,​ проверять:​

​ код писался до​ в другом -​
​ русском тексте.​ найду интересное -​ и соавторы.​
​ букв в фамилии,​ запятая не пропущена​ «С» в слове​
​Определить длину исходной строки​ вставить формулу в​
​= СУММ ((функция LEN​
​ ее текст может​
​ слов Ворд сам​
​Andrulius​ по этой причине​
​ цифрой. Как это​If RegExp Is​
​ того, как возникли​
​ не распознается кириллица,​На английском тексте​
​ скину в тему.​еще бывает:​
​ по умолчанию стоит​
​В файле безобразное​ Миссисипи:​
​ с пробелами.​
​ ячейки B3: B4.​
​ (​ содержать неточности и​ считает — свойства​
​: Долго искал на​

​ не все дроби​​ можно сделать?​ Nothing Then Set​ новые вводные. Проблема​ а в сети​
​ считает лишнее слово​ZVI​Чернова Д.А., Воробьев​ 3 (так Вы​
​ написание инициалов :(​Определяем длину исходного слова​Определить длину исходной строки​
​Эта формула будет скопирована​cell1​ грамматические ошибки. Для​ документа, вкладка «Статистика».​ форумах ответ на​ считает(​_Boroda_​ RegExp = CreateObject(«vbscript.regexp»)​ в другом -​ пишут, что должна,​ в конце: et​
​: Пришлось учесть еще:​ А.Х. и др.​ указали изначально), но​По примеру это​ «Миссисипи» = 9.​ без пробелов.​

​ в ячейки B3​), функция LEN (​
​ нас важно, чтобы​VDM​ этот вопрос, но​
​anger47​: =СЧЁТЕСЛИ(A1:A16;»согласие»)​lapink2000​
​ не распознается кириллица,​ если локаль русская​
​ al.​
​ AT AL.​
​Гомазков О.А., Лагунин​
​ можно изменить на​ видно.​
​Определяем длину этого же​Вычесть от длины строки​
​ и B4, а​
​cell2​ эта статья была​
​: Тогда почти моя​ ничего не нашел​
​: а так слабо?​
​Гость​: Да, мне бы​
​ а в сети​
​ :-О​
​А также для​ZVI​ А.А., Поройков В.В.​
​ 4 и больше.​
​AnnaYa​ слова, но без​

​ с пробелами –​ функция подсчитает символы​), (функция LEN (​ вам полезна. Просим​ формула, надо только​ по конкретному случаю.​Гость​
​: спасибо!​ тоже хотелось так​

​ пишут, что должна,​Такое теоретически должно​
​ последнего примера выдает​: Есть еще проблемы​ и другие.​

​Guest​​: С пробелами тоже​ буквы «С» -​ строку без пробелов.​ в каждой ячейке​cell3​ вас уделить пару​ «цифры» откинуть. ​ Как определить количество​

​: Вот делала, не​Гость​ думать, но боюсь,​ если локаль русская​ бы работать, если​

​ 41 вместо 42​​ — беру небольшую​AnnaYa​

​: Фамилия не виновата​ беда. ​
​ «Мииипи» = 6.​Выше указанная формула содержит​ (20 27 и​
​))​ секунд и сообщить,​
​Михаил С.​ слов в столбце,​
​ меняется(​
​: Гость, а если​
​ что это только​
​ :-О​
​ бы распознавалась кириллица,​ZVI​
​ паузу​: Только что еще​
​ — это наверное​
​Иногда встречается такое:​Вычитаем от исходного слова​
​ 3 функции. Одна​
​ 45).​
​.​
​ помогла ли она​: Открываете документ в​ подскажите, пожалуйста. Заранее​
​Гость​

как подсчитать количество определенных слов (как это сделать?)

​ надо посчитать и​​ совпадение для русских​Такое теоретически должно​ т.к. алгоритм по-сути​: Кирилл, на русской​lapink2000​ партию прислали -​ все инициалы.​Kuznetsov D A​ слово без буквы​ из них функция​Подсчет общего количества символов​Ниже приведены некоторые примеры​

​ вам, с помощью​​ ворде и смотрите​

​ спасибо.​​: У меня там​

​ согласие и отказ​​ текстов, т.к. здесь​ бы работать, если​ тот же, правда​ локализации не работает,​

​: Вот такие варианты​​ с 2-3х буквенными​Вот в этой​

​ Aliautdin RN, Markarian​​ «С»: 9-6=3.​ ПОДСТАВИТЬ, а далее​В книге с примерами​ того, как работает​ кнопок внизу страницы.​

​ Прикрепленные файлы post_182649.gif​​Andrulius​
​ персональные данные людей​
​ одновременно?​ выручает подстраховка с​ бы распознавалась кириллица,​ реализация медленней:​
​ выдает нули на​ у меня работают​

​ фамилиями :(​​ строчке тоже неверно:​
​ A.A., Berdieva A​В результате формула автоматически​ идут две одинаковые​ щелкните ячейку В6.​ функция ДЛСТР.​

​ Для удобства также​​ (80.61 КБ)​: Меня интересует количество​ находятся, я бы​Serge_007​
​ кол-вом запятых :-(​ т.к. алгоритм по-сути​

​Function LASTNAMES(Txt As​​ русском тексте.​ для латиницы. Может​Вот убийственная строчка​Chekhonin VP, Zhirkov​ G Khasigov PZ,​ посчитала количество букв​ ДЛСТР.​Введите в ячейке формулу​Скопируйте приведенную ниже таблицу​ приводим ссылку на​vikttur​ любых слов:) Большое​ с радостью приложила,​: Гость, а сплюсовать​В любом случае,​ тот же, правда​ String) As Integer​

​На английском тексте​​ кто попробует в​

​ (42 фамилии):​​ IuA, Dmitrieva TB.​ Gatagonova TM, Ktsoeva.​

​ «С» во всех​​Сначала функция ДЛСТР проверяет​=СУММ(ДЛСТР(A2);ДЛСТР(A3);ДЛСТР(A4))​ и вставьте ее​ оригинал (на английском​: Хитрые наборщики будут​ спасибо за помощь:)​

​ но не имею​​ две формулы?​ согласен, что глобальная​ реализация медленней:​Dim RegExp As​ считает лишнее слово​ русской локали и​

​Omenn G.S., States​​Макрос выдал 4.​​ S.A. Orlova M.A​​ словах:​​ длину текстовой стирки​​и нажмите клавишу​

​ в ячейку A1​​ языке) .​

​ печатать уйму пробелов​​VDM​

​ права(​​Гость​ переменная для RegExp​Function LASTNAMES(Txt As​ Object, AllMatches As​ в конце: et​ скажет, работает или​

​ D.J., Adamski M.,​​А в этой​Мне думается, что​Примечание. В формуле используется​ пока в оригинальном​
​ ВВОД.​ на листе Excel.​Если вам нужно подсчитать​ после последнего слова​: Да уж, а​
​anger47​: Serge_007, а можно,​ могла бы несколько​
​ String) As Integer​ Object​ al.​

​ нет с кириллицей​​ Blackwell T.W., Menon​ правильно все посчтитал,​

Как подсчитать количество слов в столбце?

​ самое верное будет​​ функция ПРОПИСН чтобы​ виде в ячейке​Так подсчитывается количество символов​ Перетащите формулу из​ количество символов в​ :)​ я понял что​: Создать копию файла​ не плюсуя, чтобы​

​ ускорить код.​​Dim RegExp As​Dim Temp1 As​А также для​

​ и смешанным текстом?​​ R., Hermjakob H.,​ хотя тоже есть​ — посчитать фамилии.​ сделать все буквы​ A1.​

​ в каждой из​ ячейки B2 B4,​

​ ячейках, функция LENиспользовать​​Нужно добавить СЖПРОБЕЛЫ().​ всех слов во​ и оставить в​
​ было, например: =СЧЁТЕСЛИ(A1:A16;»согласие»,»отказ»),​

​ZVI​​ Object, AllMatches As​ Integer, Temp2 As​ последнего примера выдает​Function LASTNAMES(Txt As​ Apweiler R., Hermjakob​ инициал из 3х​vikttur​ большими в словах​=ДЛСТР(A2)​ трех ячеек, а​ чтобы увидеть длину​ — которого подсчитывает​Guest​ всех указанных столбцах,​ нем только то​ такая формула выдает​: Dim RegExp As​ Object​

​ Integer​​ 41 вместо 42​ String) As Integer​

​ H., Apweiler R.,​​ букв:​: Тогда пас. Ждите​

​ так как функция​​Далее функция ПОДСАВИТЬ удаляет​ суммируются в (92).​
​ текста во всех​ букв, чисел, знаков​: Большое спасибо VDM.​ тогда так вроде:​ что нам нужно​ ошибку(​

​ Object​​Dim Temp1 As​Set RegExp =​И еще для:​

​Dim RegExp As​​ Haab B.B., Simpson​Шкопоров А.Н., Хохлова​ макросописцев :)​ ПОДСТАВИТЬ чувствительна к​

​ из исходной строки​​Одна из самых полезных​ ячейках в столбце​ и все пробелы.​ Вопрос решил:)​
​=СУММ(ДЛСТР(A1:A10))-СУММ(ДЛСТР(ПОДСТАВИТЬ(A1:A10;» «;»»)))+СЧЁТЗ(A1:A10) -​

Количество слов в ячейке

Предположим, что в ячейке А1 у нас есть какой-то текст, а в ячейке B1 нам нужно подсчитать количество слов в этом тексте.

Решение

Простым, но красивым решением для подсчета количества слов в ячейке, будет следующая формула для B1:

=ЕСЛИ(ЕПУСТО(A1);0; ДЛСТР(СЖПРОБЕЛЫ(A1)) — ДЛСТР(ПОДСТАВИТЬ(A1;" ";"")) +1)

Разбор полетов

Общий принцип работы формулы прост — число слов в ячейке всегда на 1 больше, чем число пробелов между словами. Таким образом, подсчитав разницу между длиной исходного текста и его же, но взятого без пробелов — мы получим в результате количество пробелов, т.е. количество слов. На случай, если где-то в тексте "для красоты" стоят по два-три пробела между словами или понатыканы пробелы перед или после текста — мы используем функцию СЖПРОБЕЛЫ (TRIM) из категории Текстовые, которая удаляет все лишние пробелы из исходного текста, кроме одиночных пробелов между словами. Таким образом в нашей формуле:

• ДЛСТР(СЖПРОБЕЛЫ(A1)) — длина исходного текста без лишних пробелов
• ДЛСТР(ПОДСТАВИТЬ(A1;" ";"")) — длина исходного текста, в котором все пробелы заменены на пустоту, т.е. удалены, т.е. длина текста без пробелов вообще

Ну, а дальше считаем разницу и прибавляем 1, чтобы получить искомое количество слов.

Остается одна маленькая проблема: если ячейка пустая, то наша формула выдает 1. Поэтому добавим функцию ЕСЛИ (IF) , которая будет заранее проверять ячейку на предмет пустоты с помощью функции ЕПУСТО (ISBLANK) и выводить 0 либо считать число слов по нашему алгоритму.

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

Пользователи Microsoft Word знают, на сколько полезна возможность узнать количество слов в набранном тексте. Однако, пользуясь Excel, узнать количество слов в документе не возможно штатными средствами.

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

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

Для подсчета количества слов в ячейке нам потребуются функции ДЛСТР и ПОДСТАВИТЬ . Формула для учета количества слов будет выглядеть так:

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

Как эта формула работает?

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

Если мы составим обычное предложение из 8 слов, то их будут разделять 7 пробелов.

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

Соответственно, наша формула работает следующим образом:

1. Функция ДЛСТР в первой части формулы подсчитывает количество символов в ячейке (с учетом пробелов)
2. Во второй и третьей части формулы мы комбинируем функции ДЛСТР и ПОДСТАВИТЬ для подсчета количества символов в ячейке без пробелов
3. Прибавляем к полученному значению число «один»

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

Во избежание этого, я предлагаю использовать в дополнение две функции: ЕСЛИ и ЕПУСТО . Формула будет выглядеть так:

Эти две функции проверяют, есть ли текст в ячейке или она пустая. Если в ячейке нет текста, формула вернет значение «ноль».

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

Теперь, перейдем на более сложный уровень.

Представим, что наша задача посчитать количество слов в нескольких ячейках.

Хорошая новость заключается в том, что мы будем использовать ту же формулу, что мы рассматривали на предыдущем примере, с небольшим дополнением:

В указанной выше формуле А1:А10 это диапазон ячеек в рамках которого мы хотим посчитать количество слов.

Как эта формула работает?

Эта формула работает по тому же принципу, что и для подсчета количества слов в одной ячейке. Разница лишь в использовании функции СУММПРОИЗВ . Она помогает нам вычислить количество слов во всем массиве данных.

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

Я надеюсь, что в будущем Excel получит штатную возможность для подсчета слов.

Как посчитать слова в Excel

Есть одна штука, которую я бы хотел иметь в Excel: подсчет слов в ячейке.

Если вы работаете в MS Word, в строке состояния есть встроенная опция, которая показывает, сколько слов на листе.

В Word есть опция для подсчета слов, но не в Excel. Вы можете посчитать количество ячеек, в которых есть текст, но не фактические слова в них.

В Excel в нашем распоряжении есть функции, с которыми мы можем посчитать почти все. Вы можете создать формулу, которая сможет посчитать слова в ячейке.

Четыре разных способа посчитать слова в Excel

Сегодня в этой статье вы научитесь считать слова в Excel в ячейке или диапазоне ячеек или даже во всей таблице.

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

1. Формула для подсчета слов в ячейке

Сочетание функций ДЛСТР с ПОДСТАВИТЬ

И формула будет (текст в ячейке A1):

Когда вы ссылаетесь на ячейку, используя эту формулу, она вернет 5 в результате.

И да, у вас есть 5 слов в ячейке.

Как формула работает?

Прежде чем перейти к этой формуле, просто подумайте. В обычном предложении, если у вас восемь слов, у вас определенно будет 7 пробелов в этих словах. Правильно? Это означает, что у вас всегда будет на одно слово больше, чем пробелов.

Идея проста: если вы хотите посчитать слова, подсчитайте пробелы и добавьте единицу.

Теперь, чтобы понять эту формулу, вам нужно разделить ее на три части.

В первой части мы использовали функцию ДЛСТР (LEN) для подсчета количества символов в ячейке A1. А во второй и третьей части мы объединили ПОДСТАВИТЬ (SUBSTITUTE) с ДЛСТР (LEN), чтобы удалить пробелы из ячейки и затем подсчитать символы.

Наше уравнение выглядит так:

• 20 — общее количество символов с пробелами
• 16 — символы без пробелов

Когда вы вычтете одно из другого, вы получите количество пробелов, и вам останется добавить один. В результате возвращается число 5, что является общим количеством слов в ячейке.

Когда вы используете приведенную выше формулу, она вернет 1, даже если ячейка пуста, поэтому лучше обернуть ее функцией ЕСЛИ (IF), чтобы избежать этой проблемы.

Эта формула сначала проверяет ячейку и возвращает количество слов, только если в ячейке есть значение.

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

Давайте я расскажу вам, как ее использовать.

• Прежде всего, введите этот код в редакторе VBA.

• Затем вернитесь на свой рабочий лист и введите «= MyWordCount(» и сошлитесь на ячейку, в которой у вас есть значение.

И она вернет количество слов.

2. Подсчет слов в диапазоне ячеек

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

Хорошая новость! Можно использовать ту же формулу (добавив небольшое изменение), которую мы использовали выше.

Вот эта формула:

В приведенной выше формуле A1: A11 — это диапазон ячеек, при вводе формулы в результате получим 55.

Как это работает?

Эта формула работает так же, как и первый метод, но только чуть сложнее. Разница лишь в том, что мы завернули ее в СУММПРОИЗВ (SUMPRODUCT) и ссылаемся на весь диапазон вместо одной ячейки.

Вы помните, что СУММПРОИЗВ (SUMPRODUCT) может работать с массивами? Поэтому, когда вы используете эту функцию, она возвращает массив, в котором у вас есть количество слов для каждой ячейки. Далее она суммирует эти цифры и сообщает вам количество слов в столбце.

3. Подсчет количества слов во всей таблицы с кодом VBA

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

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

4. Подсчет определенного слова/текстовой строки в диапазоне

Здесь у нас другая ситуация. Допустим, нам нужно посчитать определенное слово в диапазоне ячеек или проверить, сколько раз значение появляется в столбце.

Разберем на примере.

Ниже у нас есть диапазон из четырех ячеек, и из этого диапазона нам нужно посчитать количество появлений слова «понедельник».

Вот формула для этого:

И когда вы введете ее, она возвратит количество понедельников. Ответ — 4.

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

Понедельник встречается четыре раза в трех ячейках.

Как это работает?

Чтобы понять эту функцию, вам снова нужно разделить ее на четыре части.

В первой части функция ДЛСТР (LEN) возвращает массив количества символов в ячейках.

Вторая часть возвращает массив подсчета символов в ячейках, удалив слово «понедельник».

В третьей части функция ДЛСТР (LEN) возвращает длину символов слова «понедельник».

После этого вычитаем первую часть из второй, а затем делим ее на третью часть. Возвращен массив с количеством слов «понедельник» в каждой ячейке.

В четвертой части СУММПРОИЗВ (SUMPRODUCT) возвращает сумму этого массива и дает количество понедельников в диапазоне.

Заключение

Всякий раз, когда вы печатаете какой-то текст в ячейке или диапазоне ячеек, вы можете использовать эти методы для контроля количества слов.

Я мечтаю, что когда-нибудь в будущем в Excel появится эта опция. Ну а пока будем пользоваться этими замечательными методами.

Я надеюсь, что статья была полезной для вас. Какой метод вам понравился больше всех?

Не забудьте поделиться своими мнениями со мной в разделе комментариев, для меня это важно. И, пожалуйста, не забудьте поделиться со своими друзьями, я уверен, что они это оценят.