Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск наиболее часто встречающееся слова в тексте. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск наиболее часто встречающееся слова в тексте. (Иное/Other)
Поиск наиболее часто встречающееся слова в тексте.
rotten41 Дата: Среда, 08.02.2017, 10:09 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброе утро.
Помогите с решением проблемы.

Мой файл выискивает наиболее часто встречающееся слово в текстовой ячейке.
Но есть один недостаток - коротенькие слова, союзы, междометия (в один или два символа) - он воспринимает как полноценные слова.
Например "и","он","в","на" и т.д.
Как задать - ограничение на поиск часто встречающегося слова - не менее 3 символов ?
К сообщению приложен файл: 456.xls (40.5 Kb)


Сообщение отредактировал rotten41 - Среда, 08.02.2017, 10:09
 
Ответить
СообщениеДоброе утро.
Помогите с решением проблемы.

Мой файл выискивает наиболее часто встречающееся слово в текстовой ячейке.
Но есть один недостаток - коротенькие слова, союзы, междометия (в один или два символа) - он воспринимает как полноценные слова.
Например "и","он","в","на" и т.д.
Как задать - ограничение на поиск часто встречающегося слова - не менее 3 символов ?
Автор - rotten41
Дата добавления - 08.02.2017 в 10:09
AlexM Дата: Среда, 08.02.2017, 10:26 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
В файле нет примеров строк, где слова встречаются более одного раза.
Покажите 10-15 строк и ожидаемый результат.
Чем считать формулами или макросом?


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеВ файле нет примеров строк, где слова встречаются более одного раза.
Покажите 10-15 строк и ожидаемый результат.
Чем считать формулами или макросом?
Автор - AlexM
Дата добавления - 08.02.2017 в 10:26
buchlotnik Дата: Среда, 08.02.2017, 10:27 | Сообщение № 3
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
перепишите паттерн как "[а-яё]{3,}" [vba]
Код
Sub tt()
Dim re As Object, di As Object, x, xm, m
  Set re = CreateObject("vbscript.regexp")
  re.Global = True
  re.Pattern = "[а-яё]{3,}"
  re.ignorecase = True
  Set di = CreateObject("scripting.dictionary")
  di.comparemode = vbTextCompare
  For Each x In re.Execute([b8])
    x = x.Value
    di(x) = di(x) + 1
    If di(x) > m Then xm = x: m = di(x)
  Next
  [e8] = xm: [h8] = m
End Sub
[/vba]
К сообщению приложен файл: 6225671.xls (39.0 Kb)
 
Ответить
Сообщениеперепишите паттерн как "[а-яё]{3,}" [vba]
Код
Sub tt()
Dim re As Object, di As Object, x, xm, m
  Set re = CreateObject("vbscript.regexp")
  re.Global = True
  re.Pattern = "[а-яё]{3,}"
  re.ignorecase = True
  Set di = CreateObject("scripting.dictionary")
  di.comparemode = vbTextCompare
  For Each x In re.Execute([b8])
    x = x.Value
    di(x) = di(x) + 1
    If di(x) > m Then xm = x: m = di(x)
  Next
  [e8] = xm: [h8] = m
End Sub
[/vba]
Автор - buchlotnik
Дата добавления - 08.02.2017 в 10:27
rotten41 Дата: Среда, 08.02.2017, 10:53 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
buchlotnik, все работает.
Спасибо.
 
Ответить
Сообщениеbuchlotnik, все работает.
Спасибо.
Автор - rotten41
Дата добавления - 08.02.2017 в 10:53
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Поиск наиболее часто встречающееся слова в тексте. (Иное/Other)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!