Подсчет дублей слов от 4 символов в ячейке

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Подсчет дублей слов от 4 символов в ячейке (Формулы/Formulas)

Dom23

Дата: Суббота, 08.08.2020, 23:07 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте, помогите пожалуйста справиться с проблемой.
Существует список предложений в которых нужно формулой посчитать дубли слов от 4 символом (не считать предлоги). Прикрепил пример с вводными данными.
Спасибо за помощь!

К сообщению приложен файл: 6948642.xlsx (17.5 Kb)

Ответить

gling

Дата: Суббота, 08.08.2020, 23:38 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2661

Репутация: 747 ±

Замечаний: 0% ±

2010

Здравствуйте.

Цитата Dom23, 08.08.2020 в 23:07, в сообщении № 1 ()

в которых нужно формулой посчитать дубли слов от 4 символом (не считать предлоги)

Либо лыжи не едут, либо их плохо смазали.

Цитата Dom23, 08.08.2020 в 23:07, в сообщении № 1 ()

Прикрепил пример

Про что?

Цитата Dom23, 08.08.2020 в 23:07, в сообщении № 1 ()

от 4 символом (не считать предлоги)

Это начиная с четвертого символа? После четвертого символа?

Цитата Dom23, 08.08.2020 в 23:07, в сообщении № 1 ()

не считать предлоги

А пробел - это предлог или что?

Цитата Dom23, 08.08.2020 в 23:07, в сообщении № 1 ()

Прикрепил пример

А в примере есть пояснения почему так, а не иначе?

ЯД-41001506838083

Ответить

прохожий2019

Дата: Воскресенье, 09.08.2020, 01:42 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 1408

Репутация: 365 ±

Замечаний: 0% ±

365 Beta Channel

формулой вряд ли, PQ можно [vba]

Код

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    to = Table.AddColumn(from,"dbl", each [ a=Text.Split([Фраза]," "),
                    b = List.Select(a,each Text.Length(_)>3),
                    c=List.Distinct(b),
                    d=List.Count(b)-List.Count(c)][d])
in
    to

[/vba]

К сообщению приложен файл: 6727780.xlsx (26.8 Kb)

Ответить

Michael_S

Дата: Воскресенье, 09.08.2020, 02:37 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

Репутация: 373 ±

Замечаний: 0% ±

Excel2016

Dom23, Вряд ли это возможно формулой. Разве, что, UDF...

Ответить

bmv98rus

Дата: Воскресенье, 09.08.2020, 07:15 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4147

Репутация: 772 ±

Замечаний: 0% ±

Excel 2013/2016

Michael_S, да неужели :-)

Код

=SUM(IFERROR(1+1/(1/(1/((LEN(SUBSTITUTE(A2;" ";" "))+2-LEN(SUBSTITUTE(" "&SUBSTITUTE(A2;" ";" ")&" ";" "&TRIM(MID(SUBSTITUTE(" "&A2;" ";REPT(" ";LEN(A2)));ROW($1:$99)*LEN(A2);LEN(A2)))&" ";)))/LEN(" "&TRIM(MID(SUBSTITUTE(" "&A2;" ";REPT(" ";LEN(A2)));ROW($1:$99)*LEN(A2);LEN(A2))))/(LEN(TRIM(MID(SUBSTITUTE(" "&A2;" ";REPT(" ";LEN(A2)));ROW($1:$99)*LEN(A2);LEN(A2))))>3))-1));))

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