Подсчёт количества слов в цифровом и буквенном представлении

Пользователь

Сообщений: 4 Регистрация: 08.02.2016

26.07.2021 14:01:20

Вариант подсчёта количества всех слов через запятую (яблоко, груша, груша, груша, лимон, лимон, апельсин) известен, но такое представление информации переполняет ячейку данными.

Есть значение ячейки: яблоко, 3 груша, 2 лимон, апельсин. В результате в ячейке должно быть подсчитано количество 7. Как реализовать?
Заранее спасибо!

Прикрепленные файлы

Книга1.xlsx (8.21 КБ)

Jack Famous Пользователь Сообщений: 12041 Регистрация: 07.11.2014 OS: Win 10 Корп. x64 \| Excel 2016 x64: \| Browser: Chrome	#2 26.07.2021 14:26:26 Guest34, файл-пример Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

Тимофеев

Пользователь

Сообщений: 1947 Регистрация: 01.09.2020

26.07.2021 15:11:54

Код

=СУММ(ЕСЛИОШИБКА(ЕНЕТЕКСТ(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A1;" ";"</i><i>")&"</i></j>";"//i"))*ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A1;" ";"</i><i>")&"</i></j>";"//i");0))+СЧЁТЗ(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A1;",";"</i><i>")&"</i></j>";"//i"))-СЧЁТ(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A1;" ";"</i><i>")&"</i></j>";"//i"))

Прикрепленные файлы

Книга1054.xlsx (9.87 КБ)

Изменено: Тимофеев - 26.07.2021 15:12:28

memo

Пользователь

Сообщений: 1521 Регистрация: 28.02.2018

Excel 2013/2016

26.07.2021 21:32:57

Выйдет короче, если эту часть

Код
ISNONTEXT(FILTERXML("<j><i>"&SUBSTITUTE(A1;" ";"</i><i>")&"</i></j>";"//i"))*FILTERXML("<j><i>"&SUBSTITUTE(A1;" ";"</i><i>")&"</i></j>";"//i")

заменить на:

Код
FILTERXML("<t><s>"&SUBSTITUTE(A1;" ";"</s><s>")&"</s></t>";"//s[.*0=0]")

Код

=SUM(FILTERXML("<t><s>"&SUBSTITUTE(A1;" ";"</s><s>")&"</s></t>";"//s[.*0=0]"))+COUNTA(FILTERXML("<j><i>"&SUBSTITUTE(A1;",";"</i><i>")&"</i></j>";"//i"))-COUNT(FILTERXML("<j><i>"&SUBSTITUTE(A1;" ";"</i><i>")&"</i></j>";"//i"))

Прикрепленные файлы

Книга1.xlsx (9.11 КБ)

Изменено: memo - 26.07.2021 23:27:03

Jack Famous

Пользователь

Сообщений: 12041 Регистрация: 07.11.2014

OS: Win 10 Корп. x64 | Excel 2016 x64: | Browser: Chrome

27.07.2021 09:28:22

Цитата
Guest34 написал в личку: Хотелось бы узнать Вашу реализацию

Я не формулист, поэтому только макрофункция (UDF). Зато не массивная

Прикрепленные файлы

Sum.xlsb (16.46 КБ)

Изменено: Jack Famous - 27.07.2021 09:28:35

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

Guest34 Пользователь Сообщений: 4 Регистрация: 08.02.2016	#6 29.07.2021 14:05:29 Всем благодарен за участие!