Как найти слово в эксель функция

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

Поиск слов

Документы часто имеют много страниц, тогда встает вопрос о том, как в Еxcel найти слово. Сделать это  иногда становится проблематично. Для упрощения этой задачи существует специальная функция поиска. Чтобы ею воспользоваться, необходимо выполнить следующий алгоритм действий:

• запустить программу Excel;
•  проверить активность таблицы, щелкнув по любой из ячеек;
•  нажать комбинацию клавиш «Ctrl + F»;
•  в строке «Найти» появившегося окна ввести искомое слово;
•  нажать «Найти».

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

Существует также способ нестрогого поиска, который подходит для ситуаций, когда искомое слово помнится частично. Он предусматривает использование символов-заменителей (джокерные символы). В Excel их всего два:

•  «?» – подразумевает любой отдельно взятый символ;
•  «*» – обозначает любое количество символов.

 Примечательно, при поиске вопросительного знака или знака умножения дополнительно впереди ставится тильда («~»). При поиске тильды, соответственно – две тильды.

 Алгоритм неточного поиска слова:

•  запустить программу;
•  активировать страницу щелчком мыши;
•  зажать комбинацию клавиш «Ctrl + F»;
•  в строке «Найти» появившегося окна ввести искомое слово, используя вместо букв, вызывающих сомнения, джокерные символы;
•  проверить параметр «Ячейка целиком» (он не должен быть отмеченным);
•  нажать «Найти все».

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

Поиск нескольких слов

Не зная, как найти слово в таблице в Еxcel, следует также воспользоваться функцией раздела «Редактирование» – «Найти и выделить». Далее нужно отталкиваться от искомой фразы:

•  если фраза точная, введите ее и нажмите клавишу «Найти все»;
•  если фраза разбита другими ключами, нужно при написании ее в строке поиска дополнительно проставить между всеми словами «*».

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

Поиск ячеек

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

Для поиска ячеек с формулами выполняются следующие действия.

1. В открытом документе выделить ячейку или диапазон ячеек (в первом случае поиск идет по всему листу, во втором – в выделенных ячейках).
2. Во вкладке «Главная» выбрать функцию «Найти и выделить».
3. Обозначить команду «Перейти».
4. Выделить клавишу «Выделить».
5. Выбрать «Формулы».
6. Обратить внимание на список пунктов под «Формулами» (возможно, понадобится снятие флажков с некоторых параметров).
7. Нажать клавишу «Ок».

 Для поиска объединенных ячеек потребуется выполнение следующих манипуляций.

1. Перейти во вкладку «Главная».
2. Выбрать функцию «Найти и выделить».
3. Нажать на команду «Найти».
4. Перейти в «Параметры» и выбрать «Формат».
5. Здесь выделить функцию «Выравнивание», поставить отметку «Объединить ячейки».
6. Нажать на «Ок».
7. Нажать на кнопку «Найти все» и проанализировать список ячеек, которые объединены на соответствующем листе.

При нажимании кнопкой мыши на элемент в списке происходит выделение объединенной ячейки на листе. Дополнительно доступна функция «Отменить объединение ячеек».

 Выполнение представленных выше действий приводит к нахождению всех объединенных ячеек на листе и при необходимости отмене данного свойства. Для поиска скрытых ячеек проводятся следующие действия.

1. Выбрать лист, требующий анализа на присутствие скрытых ячеек и их нахождения.
2. Нажать клавиши «F5_гт_
   Special».
3. Нажать сочетание клавиш «CTRL + G_гт_ Special».

Можно воспользоваться еще одним способом для поиска скрытых ячеек:

1. Открыть функцию «Редактирование» во вкладке «Главная».
2. Нажать на «Найти».
3. Выбрать команду «Перейти к разделу». Выделить «Специальные».
4. Попав в группу «Выбор», поставить галочку на «Только видимые ячейки».
5. Нажать кнопку «Ок».

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

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

Чтобы найти ячейки, для которых применено условное форматирование:

• нажать на ячейку, не предусматривающую условное форматирование;
• выбрать функцию «Редактирование» во вкладке «Главная»;
• нажать на кнопку «Найти и выделить»;
• выделить категорию «Условное форматирование».

Чтобы найти ячейки, для которых применено одинаковое условное форматирование:

• выбрать ячейку, предусматривающую условное форматирование, требующую поиска;
• выбрать группу «Редактирование» во вкладке «Главная»;
• нажать на кнопку «Найти и выделить»;
• выбрать категорию «Выделить группу ячеек»;
• установить свойство «Условные форматы»;
• напоследок нужно зайти в группу «Проверка данных» и установить аналогичный пункт.

Поиск через фильтр

Чтобы узнать, как в Еxcel найти слово при использовании фильтра, потребуется изучить следующий алгоритм действий:

• выделить заполненную ячейку;
• во вкладке «Главная» выбрать функцию «Сортировка»;
• нажать на кнопку «Фильтр»;
• открыть выпадающее меню;
• ввести искомый запрос;
• нажать кнопку «Ок».

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

Функция ПОИСК() в MS EXCEL

​Смотрите также​ словарь адресами ячеек,​ Split(CreateObject(«Scripting.FileSystemObject»).Getfile(ActiveWorkbook.Path & «ИД.txt»).OpenasTextStream(1).ReadAll,​ верно вернуть адрес​5. Почему сначала​ памяти без обновления​ ActiveWorkbook.Path & «1.​

Синтаксис функции

​zamboga​​ Код =ЕСЛИОШИБКА(ИНДЕКС(списки!B$1:B$6;ПОИСКПОЗ(ЛОЖЬ;ЕНД(ПОИСКПОЗ(«*»&списки!A$1:A$6&»*»;A2;));));»-«)​

​ готовый макрос. И​​ текст «11 казачок».​ а по сути​

​ будет соответствовать любому​​ нее станем искать​ нажмите клавишу ESC.​​ также использовать фильтр.​​ строке «мама мыла​

​Функция ПОИСК(), английский вариант​​ в которых есть​ vbNewLine) ‘открываем файл​ исходной ячейки, в​ в переменную «a»​​ рабочей книги). Вопрос,​​ Искать это.txt» Workbooks.OpenText​: На входе задается​

​Витушка​​ формулу такую длинную.​​ Т.е. Если ячейка​ и типам значений​ знаку.​ положение буквы «а»​Для выполнения этой задачи​ Дополнительные сведения см.​ раму» используйте формулу​ SEARCH(), находит первое​ совпадения с ИД​ с Исходными Данными​ которой нашли совпадение.​ присваивается массив данных​

​ как что поправить,​ Filename:=PathFileTxt, Origin:=1251 a​ список слов или​

​: Я понимаю, что​Но если порядок​ А2 содержи текст​ – одинаковые:​Звездочка (*). Этот символ​

Примеры

​ в слове «Александр»,​ используется функция​ в статье Фильтрация​ =ЕСЛИ(ДЛСТР(ПОДСТАВИТЬ(«мама мыла раму»;»м»;»»;3))=ДЛСТР(«мама​

​ вхождение одной текстовой​​ For i =​​ PathFileTxt = ActiveWorkbook.Path​Т.е. нужно массив​ для поиска, а​ чтобы скрипт верно​ = [a1].CurrentRegion.Value ActiveWorkbook.Close​ фраз (например, через​ я дурак. Мучаюсь​

​ слов всегда правильный,​ «янтарный замок», то​Но опытный пользователь Excel​ будет соответствовать любой​ в ячейке появится​ЕТЕКСТ​ данных.​

​ мыла раму»);»Нет третьего​ строки в другой​ 1 To UBound(a)​ & «ИД.txt» Workbooks.OpenText​ определять до крайней​ потом в ЭТУ​ отрабатывал с учетом​ False With CreateObject(«scripting.dictionary»)​ буфер обмена, или​ уже час. Но​ то конечно всё​ в ячейку В2​ знает, что отличие​ комбинации знаков.​ выражение 1, так​

​.​Выполните следующие действия, чтобы​ вхождения м»;»Есть третье​ строке и возвращает​ For j =​ Filename:=PathFileTxt, Origin:=1251 Columns(«A:A»).Select​ правой и крайней​ же переменную массив​

Функция НАЙТИ() vs ПОИСК()

​ пустых строк и​ For Each el​ на отдельном листе).​ мне не ввести​ проще.​ ввести текст «10​ у этих двух​Если же требуется найти​ как это первый​

Связь с функциями ЛЕВСИМВ(), ПРАВСИМВ() и ПСТР()

​Для возвращения результатов для​ найти ячейки, содержащие​ вхождение м»)​ начальную позицию найденной​

​ 1 To UBound(a,​​ ‘разбиваем по столбцам​​ нижней ячейки, в​ данных, в которых​ столбцов а таблице,​ In a .Item(el)​Макрос ищет вхождение​ формулу массива(((Если не​Стоп, кажется мне​ янтарный замок» и​ функций очень существенные.​ подобные символы в​ символ в анализируемой​

excel2.ru

Проверка ячейки на наличие в ней текста (без учета регистра)

​ условия, которое можно​​ определенный текст.​Формула =ПОИСК(«клад?»;»докладная») вернет 3,​ строки.​ 2) t =​ чтобы найти слова,​ которой есть какой-либо​ ищем? Т.е. одна​ в которой ищем?​ = «» Next​ любого слова на​ сложно, можно вставить​ очки пора доставать…​ если ячейка А2​Отличие №1. Чувствительность к​ строке, то в​ информации. При задании​ указать с помощью​Выделите диапазон ячеек, среди​ т.е. в слове​ПОИСКискомый_текстпросматриваемая_строка​ a(i, j) ‘​

​ а не фразы​ текст.​ и таже переменная​3. Скрипт ошибочно​ For Each sh​ ВСЕХ листах открытой​ ее в файл?​ Там небыло варианта​ содержи текст «казачок»,​ верхнему и нижнему​ аргументе «искомый_текст» перед​ команды НАЙТИ «а»​ функции​

​ которых требуется осуществить​ «докладная» содержится слово​;[нач_позиция])​ MsgBox «=ГИПЕРССЫЛКА(«»[» &​ Selection.TextToColumns Destination:=Range(«A1»), DataType:=xlDelimited,​

Поиск ячеек, содержащих текст

​zamboga​ используется для совершенно​ показывает найденные адреса​

1. ​ In Sheets a​ книги, и выводит​ А?​

   ​ «замок янтарный»?​ то в ячейку​ регистру (большие и​

2. ​ ними нужно поставить​​ в том же​​Если​​ поиск.​​ из 5 букв,​​Искомый_текст​​ Application.ActiveWorkbook.FullName & «]»​​ _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True,​​: Мой пример кода​
   

3. ​ разных данных («что​​ на других страницах,​​ = [a1].CurrentRegion.Value For​ итоговую таблицу (но​OlesyaSh​Анастасия_П​ В2 ввести текст​​ маленькие буквы). Функция​​ тильду (~).​

   ​ отрезке текста, мы​​.​Чтобы выполнить поиск по​

4. ​ первые 4 из​  — текст, который требуется​​ & sh.Name &​​ Tab:=False, _ Semicolon:=False,​ вернёт массив строк​ ищем» и «где​​ хотя совпадений там​​ i = 1​

5. ​ новом листе или​​: копируете формулу, вставляете​​: Ураааа!!! Работает!!! Спасибо-преспасибо!!!​ «11 казачок».​ НАЙТИ чувствительна к​Если искомый текст не​ получим значение 6,​Для выполнения этой задачи​

   ​ всему листу, щелкните​ которых клад (начиная​ найти.​ «!»»&АДРЕС(» & i​​ Comma:=False, Space:=True, Other:=False,​​ исходного текста -​​ ищем»). Не из-за​​ нет. При этом​​ To UBound(a) For​​ в диалоговом окне),​

6. ​ куда надо и​​ Всем всем всем​​Буду благодарна за​​ регистру символов. Например,​​ был найден приложением​

   ​ так как именно​​ используются функции​ любую ячейку.​ с третьей буквы​Просматриваемая_строка​ & «;» &​ FieldInfo _ :=Array(1,​​ там нет никаких​​ этого ли ошибка​

​ скрипт «помнит» верный​​ j = 1​ где указаны имя​

Проверка ячейки на наличие в ней любого текста

​ сразу же -​Формула не дает​​ помощь.​​ есть список номенклатурных​

Проверка соответствия содержимого ячейки определенному тексту

​ или начальная позиция​ 6 позицию занимает​Если​На вкладке​​ слова докладная).​​  — текст, в которой​

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

​ j & «);»»»​ 1), TrailingMinusNumbers:=True ‘удаляем​​ ячеек и столбцов.​​ работы скрипта? Скрин1​​ адрес с верного​​ To UBound(a, 2)​​ листа, адрес ячейки,​​ держите зажатыми Ctrl​

​ вносить много аргументов…Когда​​IvanOK​​ единиц с артикулом.​​ установлена меньше 0,​

support.office.com

Пример преимущества функции ПОИСК в Excel перед функцией НАЙТИ

​ строчная «а» в​,​Главная​Функция НАЙТИ() учитывает РЕгиСТР​ ищется​ & sh.Name &​ пустые строки LastRow​Vlad999​ http://prntscr.com/dcprvz , скрин2​ листа, и пихает​ t = a(i,​ найденное значение.​ и Shift, нажимаете​ «достраиваю» формулу, так​

Примеры использования функции ПОИСК в Excel

​:​ Необходимо найти позицию​ больше общего количества​ слове «Александр».​Поиск​в группе​ букв и не​Искомый_текст​ «!»»&АДРЕС(» & i​ = ActiveSheet.UsedRange.Row -​: Да, для списка​ http://prntscr.com/dcps49​ этот же адрес​ j) If .exists(t)​При клике переходим​

​ Enter.​ и пишет, что​Анастасия_П​ маленькой буквы «о».​ присутствующих символов, в​Кроме того, функция ПОИСК​и​Редактирование​ допускает использование подстановочных​.​ & «;» &​ 1 + ActiveSheet.UsedRange.Rows.Count​ на входе «что​6. Зачем забивать​

​ для других листов.​ Then .Item(t) =​

• ​ к ячейке, содержащей​потом протягиваете ее​
• ​ слишком много аргументов…​
• ​, ближе к делу​

​Теперь смотрите как ведут​ ячейке отобразиться ошибка​ работает не для​ЕЧИСЛО​нажмите кнопку​ знаков. Для поиска​Нач_позиция​ j & «))»​ ‘определяем размеры таблицы​ ищем» адреса, конечно,​ «пустотой» каждую строчку​ Скрин: http://prntscr.com/dcppym​ .Item(t) & IIf(.Item(t)​ совпадение.​ вниз.​Добавлено через 15 минут​ давайте сюда пример​ себя по-разному эти​ #ЗНАЧ.​ всех языков. От​

​.​Найти и выделить​ без учета регистра,​  — позиция знака в​ If .exists(t) Then​ Application.ScreenUpdating = False​ не нужны.​ только что объявленного​4. В качестве​ = «», «»,​

​Если какое-то слово​к тому же​

​Формула не дает​

​Hugo121​ две функции при​Если «искомый_текст» не найден,​

1. ​ команды ПОИСКБ она​Примечание:​и нажмите кнопку​ а также для​
2. ​ просматриваемой_строке, с которой​ .Item(t) = .Item(t)​ For r =​Мне нужны адреса​ массива?​ исходных данных для​
3. ​ «;») & sh.Name​ нигде не найдено,​ Вам ответили на​ вносить много аргументов…Когда​: Можете переработать кучу​ поиске большой буквы​ возвращается значение ошибки​ отличается тем, что​ Функция​Найти​ поиска с использованием​ должен начинаться поиск.​ & IIf(.Item(t) =​ LastRow To 1​ для списка, в​For Each el​ поиска могут быть​ & «(» &​ то напротив него​ другом форуме))))Урррааааа! Получилось.​ «достраиваю» формулу, так​ готовых решений из​ «О» в критериях​ #ЗНАЧ.​ на каждый символ​поиска​.​ подстановочных знаков пользуйтесь​ Если аргумент​ «», «», «|»)​

​ Step -1 ‘проходим​ котором ищем. И​ In a .Item(el)​

1. ​ не только слова,​ i & «,»​ пишется «не найдено».​
2. ​ Просто чудеса. Но​ и пишет, что​ темы Поиск и​

​ поиска:​​ отсчитывает по 1​не учитывается регистр.​В поле​ функцией ПОИСК().​

​нач_позиция​ & «=ГИПЕРССЫЛКА(«»[» &​ от последней строки​ тут уже схлопывать​ = «» Next​ но и фразы,​ & j &​Т.е. это тоже​

​ все не так​ слишком много аргументов…​ выделение в таблице​

​Отличие №2. В первом​

Пример использования функции ПОИСК и ПСТР

​Пример 1. Есть набор​ байту, в то​В приложении Excel предусмотрено​Найти​Функция ПОИСК() может быть​опущен, то предполагается​ Application.ActiveWorkbook.FullName & «]»​ до первой If​ пустоты нельзя, или​

​7. Что происходит​ а искать надо​

​ «)» Next Next​ самое, что и​ просто, задача на​Казанский​

​ по нескольким параметрам​

​ аргументе «Искомый_текст» для​ текстовой информации с​

​ время как ПОИСКБ​ большое разнообразие инструментов​введите текст —​ использована совместно с​ значение 1.​

​ & sh.Name &​ Application.CountA(Rows(r)) = 0​ есть какое-то другое​ здесь и зачем​ слова. Каюсь, когда​ Next Workbooks.Add ActiveSheet.[a1].Resize(.Count,​ стандартный поиск «CTRL+F»,​ самом деле сложнее.​: Составьте на другом​Рекомендую моё​ функции ПОИСК мы​ контактными данными клиентов​

Пример формулы ПОИСК и ЗАМЕНИТЬ

​ — по два.​ для обработки текстовых​ или номера —,​ функциями ЛЕВСИМВ(), ПРАВСИМВ()​В аргументе​

​ «!»»&АДРЕС(» & i​ Then Rows(r).Delete ‘если​ решение?​ нужен этот кусок:​

​ я описывал задачу,​ 2) = Application.Transpose(Array(.keys,​

Чем отличается функция ПОИСК от функции НАЙТИ в Excel?

​ только задается не​ Боялась что не​ листе таблицу соответствия​Анастасия_П​ можем использовать символы​ и их именами.​Чтобы воспользоваться функцией, необходимо​ и числовых данных.​ вам нужно найти.​ и ПСТР().​

​искомый_текст​ & «;» &​ в строке пусто​По остальным вопросам​

​IIf(.Item(t) = «»,​ то в начале​ .items)) End With​ одно слово, а​ разберусь и сначала​ фрагмент-номер в ст.​: вот вложение​ подстановки для указания​ Информация записана в​ ввести следующую формулу:​

​ Одним из наиболее​ Или выберите из​Например, в ячейке​можно использовать подстановочные​ j & «);»»»​ — удаляем ее​

​ кто-нибудь может подсказать?​ «», «;»)Ведь как​ описания я написал​ End SubТам где​ список слов (фраз).​ проблему озвучила попроще.​ А и В,​Hugo121​ не точного, а​ разных форматах. Необходимо​=ПОИСК(нужный_текст;анализируемый_текст;[начальная_позиция]).​ востребованных является функция​ раскрывающегося списка​А2​

​ знаки — вопросительный​ & sh.Name &​ Next r ‘определяем​zamboga​ я понял, проверка​ «любого слова на​ пусто в столбце​Я не смог​

​ А Может быть​ в ст. С​: Хотя для таких​ приблизительного значения, которое​ найти, с какого​В этой формуле задаваемые​ ПОИСК. Она позволяет​Найти​содержится фамилия и​

exceltable.com

Поиск фрагментов текста в ячейке

​ знак (?) и​​ «!»»&АДРЕС(» & i​
​ последнюю ячейку с​: 6. так создается​ на найденное значение​ ВСЕХ листах открытой​ B, значит не​ изменить все найденные​ получится вообще одной​ «протяните» формулу, которая​ 2-х условий можно​ должно содержаться в​ символа начинается номер​ значения определяются следующим​ определять в строке,​последнего поиска.​ имя «Иванов Иван»,​ звездочку (*). Вопросительный​ & «;» &​ данными With ActiveSheet.UsedRange:​ словарь с уникальными​ происходит тут If​ книги», а вот​ найдено.​ в инете решения​ формулой обойтись. Смысл​ склеит эти данные.​ формулами сделать -​ исходной текстовой строке.​ телефона.​ образом.​ ячейке с текстовой​Примечание:​ то формула =ЛЕВСИМВ(A2;ПОИСК(СИМВОЛ(32);A2)-1)​
​ знак соответствует любому​ j & «;4))»​

​ End With lLastRow​​ (не повторяющимися) значениями.​​ .exists(t) Then, и​​ в конце уже​Hugo121​

​ под себя и​​ в том, что​В основной таблице​ вот начало:​ Вторая функция НАЙТИ​Введем исходные данные в​
​Искомый текст. Это числовая​

​ информацией позицию искомой​​ В условиях поиска можно​

​ извлечет фамилию, а​​ знаку; звездочка —​ Next Next Next​ = ActiveSheet.UsedRange.Row +​ Чтобы при дальнейшей​
​ если значение найдено,​ «все исходные фразы»,​: Спасибо большое! Разобрать​ реализовать такой скрипт,​ если в столбце​
​ используйте такую формулу​=IF((FIND(«янтарный»,LOWER(A2),1)>0)+(FIND(«замок»,LOWER(A2),1)>0)=2,»10 янтарный замок»,»»)Сюда​ не умеет использовать​ таблицу:​ и буквенная комбинация,​ буквенной или числовой​ использовать подстановочные знаки.​ =ПРАВСИМВ(A2;ДЛСТР(A2)-ПОИСК(СИМВОЛ(32);A2)) — имя.​
​ любой последовательности знаков.​ ‘вытаскиваем из словаря​ ActiveSheet.UsedRange.Rows.Count — 1​ проверке не гонять​ то дописать к​
​ хотя имел в​ существующий скрипт я​ т.к. у меня​

​ А листа «отчет»​​ Код =ИНДЕКС(Лист1!$C$1:$C$99;ПОИСКПОЗ(ЛОЖЬ;ЕНД(ПОИСКПОЗ(«*»&Лист1!$A$1:$A$99&»*»;A2;));)) Это​ навесить обработку ошибки​ в работе символы​В ячейке, которая будет​ позицию которой требуется​

​ комбинации и записывать​​Чтобы задать формат для​ Если между именем​ Если нужно найти​
​ ключи (keys) и​ lLastCol = ActiveSheet.UsedRange.Column​ одно и тоже​ существующей строке «имя​ виду слова. Например,​

​ хоть как то​​ очень небольшие знания​ не нашлось фрагмента,​ формула требует ввода​ и ещё вложить​ подстановки масок текста:​ учитывать данные клиентов​ найти.​ ее с помощью​
​ поиска, нажмите кнопку​ и фамилией содержится​ в тексте вопросительный​ их значения (items)​
​ + ActiveSheet.UsedRange.Columns.Count -​ слово несколько раз.​ листа + адрес»​ добавьте в список​

​ могу=)​​ VBA (знаю только​ соответствующего столбцу А​
​ как формула массива,​ аналогичный IF для​ «*»; «?»; «~».​ без телефона, введем​Анализируемый текст. Это тот​
​ чисел.​
​Формат​ более одного пробела,​ знак или звездочку,​ Dim aK, aI,​ 1 ‘задаем массив​

​7. это нужно​​ sh.Name & «(«​ «1. что искать.txt»​В общем, кое​ простейшие операции копировать/вставить,​ листа «списки», просматривается​ т.е. нажатием Ctrl+Shift+Enter,​ казачков.​
​Для примера попробуем в​ следующую формулу:​ фрагмент текстовой информации,​Для нахождения позиции текстовой​и внесите нужные​ то для работоспособности​ следует поставить перед​ aSP, s As​
​ исходных данных ‘a​ чтобы, если слово​ & i &​ слова «изготовить», «сделать»​ как разобрался, сам​ условие, цикл).​ столбец В, если​

​ и отображается в​​Ну или с​

​ этих же исходных​​=ПОИСК(“, тел.”;адрес_анализируемой_ячейки).​
​ из которого требуется​ строки в другой​ изменения во всплывающем​ вышеупомянутых формул используйте​ ними тильду (~).​ String, ss As​ = [a1].CurrentRegion.Value ‘ограничивает​ встречается несколько раз​ «,» & j​ — они есть​ принцип понятен, но​Итого.​ не находится и​ фигурных скобках.​ допстолбцами сделать, чтоб​ строках столбца «наименования»​Нажмем Enter для отображения​ вычленить искомую букву​

​ аналогичной применяют ПОИСК​​ окне​

​ функцию СЖПРОБЕЛЫ().​​Если искомый_текст не найден,​​ String Dim lMaxC​​ диапазон первой пустой​ то, отделить их​ & «)».​

​ в составе фраз​​ не полностью. Также​На входе:​ в нем, то​В таком виде​ голову меньше ломать​ найти приблизительный текст.​ искомой информации:​ или сочетание и​

​ и ПОИСКБ. Расчет​​Найти формат​Примечание:​ возвращается значение ошибки​ As Long, lc​ строкой/столбцом, не подходит​ символом «;»​

​Т.е. все вроде​ в таблице «2.​
​ нашел ошибки в​Список слов (фраз),​ столбец С. Если​ она рассчитана на​ — в соседний​ Для этого укажем​Далее мы можем использовать​ вернуть позицию.​ ведется с первого​.​Мы стараемся как​ #ЗНАЧ!​ As Long aK​ a = Range(Cells(1,​5. А почему​ понятно, кроме строки​ искать тут.xlsx», но​ работе скрипта.​ каждая фраза с​ поможете, будет очень​ таблицу номеров длиной​ столбец вытянуть казачков,​ следующий вид критерия​ любые другие функции​Начальная позиция. Данный фрагмент​ символа анализируемой ячейки.​
​Кнопка​ можно оперативнее обеспечивать​Функция ПОИСК() не учитывает​ = .keys aI​ 1), Cells(lLastRow, lLastCol)).Value​ нет, Словарь мы​ IIf(.Item(t) = «»,​ сейчас их не​Найденные ошибки:1. Скрипт работает​ новой строки​ здорово!! Файл приложилаДобрый​ до 99 записей.​ затем в третий​ поиска используя символы​
​ для отображения представленной​ необязателен для ввода.​ Так, если задать​Параметры​ вас актуальными справочными​ РЕгиСТР букв. Для​ = .items ReDim​ ActiveWorkbook.Close False ‘создаем​ уже создали, взяли​
​ «», «;»)​ находит.​ только в одном,​На выходе:​ день!​ При необходимости поменяйте​ собрать то, что​ подстановки: «н*ая».​

CyberForum.ru

Расширение стандартного поиска. Как искать списки слов в Excel?

​ информации в удобном​​ Но, если вы​ функцию ПОИСК “л”​служит для задания​ материалами на вашем​ поиска с учетом​
​ a(1 To .Count,​ словарь с исходными​ все что нам​8. Вы не​Я попробовал изменить​ текущем листе. Разве​1. Таблица или​Во-первых, спасибо за​ 99 на другое​ без ошибок.​
​Как видим во втором​ формате:​ желаете найти, к​
​ для слова «апельсин»​ более подробных условий​ языке. Эта страница​ регистра следует воспользоваться​
​ 1 To 100)​ данными для поиска​ нужно из «а»​ могли бы объявить​ скрипт и добавил​ кусок For Each​
​ диалоговое окно, которая​ формулу: Код =ИНДЕКС(Лист1!$C$1:$C$99;ПОИСКПОЗ(ЛОЖЬ;ЕНД(ПОИСКПОЗ(«*»&Лист1!$A$1:$A$99&»*»;A25;));))​ число.​Кстати, пример не​ отличии функция НАЙТИ​На рисунке видно, как​ примеру, букву «а»​ мы получим значение​ поиска. Например, можно найти​ переведена автоматически, поэтому​
​ функцией НАЙТИ().​
​ For i =​
​ Set dic =​ и соответственно значения​ и описать все​
​ разделение по столбцам​
​ sh In Sheets​ содержит все исходные​ У меня​Анастасия_П​ соответствует тексту вопроса​ совершенно не умеет​ с помощью формулы​ в строке со​ 4, так как​
​ все ячейки, содержащие​ ее текст может​Формула =ПОИСК(«к»;»Первый канал») вернет​ 1 To .Count​ CreateObject(«scripting.dictionary») dic.comparemode =​ данного диапазона нам​ переменные в начале​ так (записал макрос,​ не для каждого​ фразы и все​
​ возникла проблема, антологичная​: Все работает, благодарю​ — пример проще.​ работать и распознавать​ из двух функций​
​ значением «А015487.Мужская одежда»,​

​ именно такой по​​ данных определенного типа,​ содержать неточности и​
​ 8, т.к. буква​ a(i, 1) =​ 1 With dic​ уже не нужны,​ скрипта, т.к. не​ по другому пока​ листа должен работать?​ найденные ядреса ячеек.​ выше описанным: по​Витушка​ Я делал по​ спецсимволы для подстановки​ ПСТР и ПОИСК​ то необходимо указать​ счету выступает заданная​ такого как формулы.​ грамматические ошибки. Для​ к находится на​ aK(i — 1)​ For Each el​ можно использовать переменную​ везде мне понятно,​ не умею, кроме​ Тогда почему не​ Т.е. эквивалент стандартного​ фрагменту текста найти​: Доброго всем вечера!​ вопросу​ текста в критериях​ мы вырезаем фрагмент​ в конце формулы​ буква в текстовом​Для поиска на текущем​ нас важно, чтобы​ 8-й позиции слева.​

​ s = .Item((aK(i​​ In a If​ «а» дальше.​ что переменная, а​ простейших циклов и​
​ работает?​ окна CTRL+F; поиск​ слово в массиве​У меня похожая​Вообще я не​ поиска при неточном​
​ текста из строк​ 8, чтобы анализ​ выражении.​ листе или во​ эта статья была​Пусть в ячейке​ — 1))) If​ el <> «»​Для тех, кто​
​ что — оператор?​ If-Then):​2. Из-за наличия​ по всей книге;​ и заменить название,​ задача, помогите, плиз,​ формулист — наверняка​ совпадении в исходной​ разной длины. Притом​ этого фрагмента проводился​Функция ПОИСК работает не​ всей книге можно​ вам полезна. Просим​А2​ s <> «»​ Then .Item(el) =​ зайдет из поисковых​Еще раз благодарю​Selection.TextToColumns Destination:=Range(«A1»), DataType:=xlDelimited,​ в исходнике на​ кнопка «Найти все».​ на то, которое​ написать формулу для​ есть решение проще.​ строке.​ разделяем текстовый фрагмент​ с восьмой позиции,​ только для поиска​ выбрать в поле​ вас уделить пару​введена строка Первый​ Then aSP =​
​ «» End If​ систем.​ за помощь.​ _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True,​ листах пустых строк​2. Эта таблица​ требуется по справочнику.​ следующих условий. Если​Анастасия_П​Анастасия_П​ в нужном месте​
​ то есть после​ позиции отдельных букв​Искать​ секунд и сообщить,​ канал — лучший.​ Split(s, «|») lc​ Next ‘ MsgBox​Итоговый рабочий код:​zamboga​ Tab:=False, _ Semicolon:=False,​ (и пустых столбцов!)​ или диалоговое окно​ Мне нужно сделать​ в тексте столбца​: я в вопросе​: Добрый день!​ так, чтобы отделить​ артикула. Если этот​ в тексте, но​вариант​ помогла ли она​ Формула =ПОИСК(СИМВОЛ(32);A2) вернет​ = UBound(aSP) +​ «Список ключей для​Option Explicit Sub​: Ух сколько текста,​
​ Comma:=False, Space:=True, Other:=False,​ кусок a =​ содержит ссылки на​ эту формулу, через​ А «Назначение платежа»​ сами наименования упростила,​Помогите решить задачу.​ ее от номера​
​ аргумент не указан,​ и для целой​Лист​ вам, с помощью​ 7, т.к. символ​ 1 If lMaxC​ поиска:» & vbLf​ pr3() Dim sh​ не осилил…​ FieldInfo _ :=Array(1,​ [a1].CurrentRegion.Value не верно​ ячейки, где встретились​ ЕСЛИОШИБКА. Тоже есть​ листа «отчет» содержится​ а в идеале​ Дана таблица. В​ телефона.​ то он по​ комбинации. Например, задав​или​ кнопок внизу страницы.​
​ пробела (код 32)​ < lc Then​ & vbLf &​
​ As Worksheet, t$​Совсем не нужно​ 1), TrailingMinusNumbers:=TrueСкрипт даже​ определяет массив данных​ совпадения (как и​ пример.​ слово из столбца​ они как в​ первом столбце наименования,​Пример 2. Есть таблица​ умолчанию считается равным​ данную команду для​Книга​ Для удобства также​ находится на 7-й​ lMaxC = lc​ Join(.keys, vbLf) ‘ищем​
​ Dim lLastRow As​ читать текст на​ корректно определяет массив​ для дальнейшей работы.​
​ окно стандартного поиска,​НО! Копирую формулу​ А листа «списки»,​
​ файле…​ содержащие одни и​ с текстовой информацией,​
​ 1. При указании​ слов «book», «notebook»,​.​ приводим ссылку на​ позиции.​ End If For​ в словаре совпадения​ Long, lLastCol As​ лист, можно без​ для работы, только​ Из-за этого кучу​ чтобы можно было​ значение принимает верное.​ то в столбце​
​Казанский​ те же слова,​ в которой слово​ начальной позиции положение​
​ мы получим значение​Нажмите кнопку​ оригинал (на английском​Формула =ПОИСК(«#???#»;»Артикул #123# ID»)​ lc = LBound(aSP)​ на наших листах​ Long, LastRow As​ этого обойтись:​
​ вот в итоге​ строчек скрипт не​

​ перейти к конкретной​​ Ввожу руками, результат​ В «Филиал» на​
​: Код =ЕСЛИ(ЕОШ(ПОИСК(«казачок»;A2));ЕСЛИ(ЕОШ(ПОИСК(«янтарный замок»;A2));»?»;»10​ но записаны по​ «маржа» нужно заменить​ искомого фрагмента все​
​ 5, так как​Найти все​ языке) .​ будет искать в​ To UBound(aSP) ss​ For Each sh​ Long, r As​a = Split(CreateObject(«Scripting.FileSystemObject»).Getfile(ActiveWorkbook.Path​

​ ничего не находит.​​ проверяет. Я не​ ячейке на конкретном​ не корректный… Что​ листе «отчет» должно​ янтарный замок»);»11 казачок»)​ разному. Например: «коньяк​ на «объем».​ равно будет считаться​ именно с этого​
​или​Предположим, что вы хотите​ строке «Артикул #123#​ = aSP(lc) a(i,​ In Sheets ‘определяем​ Long, i As​

​ & «1. Искать​​ Вопрос, как сделать,​ знаю, как верно​ листе)​ делаю не так​ встать соответствие из​

​ В примере работает.​​ Янтарный замок», «Янтарный​Откроем книгу Excel с​ с первого символа,​ по счету символа​
​Найти далее​ убедиться, что столбец​ ID» последовательность из​ lc + 2)​ последнюю ячейку с​ Long, j As​ это.txt»).OpenasTextStream(1).ReadAll, vbNewLine)И не​
​ чтобы скрипт искал​ задать весь диапазон​

​3. Для слов​​ не понятно. Когда,​ столбца В листа​Вот так логически​ замок коньяк 0,5″,​ обрабатываемыми данными. Пропишем​ даже если начальные​ начинается искомое слово​
​.​ содержит текст, не​ 5 символов, которая​ = ss Next​ данными With sh.UsedRange:​
​ Long Dim PathFileTxt​ будет проблем с​ по словам, а​ данных с учетом​ и фраз, для​ ввожу «»,слежу, чтобы​ «списки». Для примера​ проще «достраивать» формулу​ «коньяк Янтарный замок​ формулу для поиска​

​ 8 были пропущены​ «book».​Найти все​
​ номера. Или perhapsyou​
​ начинается и заканчивается​ End If Next​ End With lLastRow​ As String Dim​ пустыми строками, их​ не по фразам?​ пустых строк и​ которых ничего не​ стояла английская раскладка​ написала что должно​ для других наименований:​ трехлетний 0,5″, «водка​ нужного слова «маржа»:​ в анализе. То​Используют функцию ПОИСК наряду​списки каждого экземпляра​ необходимо найти все​ на знак #.​ ‘создаем новую книгу​ = sh.UsedRange.Row +​ dic As Object​ правда есть смысл​ (разделитель — пробел.​ пустых столбцов кроме​ найдено, выводится «не​ на клавиатуре.​ получиться. Выбирать фильтром​ Код =ЕСЛИ(ЕЧИСЛО(ПОИСК(«казачок»;A2));»11 казачок»;ЕСЛИ(ЕЧИСЛО(ПОИСК(«янтарный​ казачок», «казачок водка​Теперь дополним формулу функцией​ есть в рассматриваемом​ с такими, как:​ элемента, который необходимо​ заказы, которые соответствуют​Чтобы найти позицию второго​ Workbooks.Add ‘вставляем данные​ sh.UsedRange.Rows.Count — 1​ Dim el As​ отсеивать при переборе​ Другие символы, типа​ как Cells.Select, и​ найдено».​Очень хочется понять​ очень долго(​ замок»;A2));»10 янтарный замок»;»?»))​ 0,7л». Во второй​ ЗАМЕНИТЬ:​ примере букве «а»​НАЙТИ (осуществляет поиск с​ найти, и позволяет​ определенным Продавец. Если​ вхождения буквы «а»​ на лист ActiveSheet.[a1].Resize(.Count,​ lLastCol = sh.UsedRange.Column​ Variant Dim a​ массива (с нуля!)​ «/», если будут​ я не смог​Помогите мне, пожалуйста=)​ как работает эта​Витушка​Hugo121​ столбец нужно ввести​Функция ПОИСК очень схожа​ в строке «А015487.Мужская​ учетом регистра);​ сделать активной ячейки,​ у вас нет​ в строке «мама​ lMaxC + 1).FormulaLocal​ + sh.UsedRange.Columns.Count -​ Windows(«искать тут.xlsm»).Activate ‘альтернативный​Hugo121​ по ходу встречаться,​ в этой части​zamboga​ формула, в в​: пример прилагаю​: В вопросе Вы​ текст «10 янтарный​ с функцией НАЙТИ​ одежда» будет присвоено​ПСТР (возвращает текст);​ выбрав нужное вхождение.​ проблемой верхний или​ мыла раму» используйте​ = a Columns(«B:XFD»).EntireColumn.AutoFit​ 1 ‘задаем массив​ способ задать массив​: Если не ошибаюсь,​ заменю на пробел​ поправить скрипт (как​: Вот один из​ целом, и где​Витушка​ как раз усложнили​ замок», если ячейка​ по принципу действия.​ значение 14.​ЗАМЕНИТЬ (заменяет символы).​ Можно сортировать результаты​ нижний регистр текста,​ формулу =ПОИСК(«а»;»мама мыла​ Range(«A1»).Activate Application.ScreenUpdating =​ a = sh.Range(sh.Cells(1,​ без открытия файла.​ то если отбросить​ сам, такой код​ я понимаю, «Cells.Select»​ вариантов:​ допускаешь ошибку…Формула не​: Формула​ — то «янтарный​ содержит текст «янтарный​ Более того у​При работе с аргументом​Важно помнить, что рассматриваемая​Найти​ существует несколько способов​ раму»;ПОИСК(«а»;»мама мыла раму»)+1).​ True ‘ MsgBox​ 1), sh.Cells(lLastRow, lLastCol)).Value​ не подходит для​ пустые строки и​ мне по силам)​ работает с «экранными»​Sub pr() Dim​ выдает ошибку, она​Казанский​ замок», то «замок​ замок» и если​ них фактически одинаковые​ «искомый_текст» можно использовать​ команда ПОИСК не​все, щелкнув заголовок.​ проверки, если ячейка​ Чтобы определить есть​ «Done!» ‘ ActiveWorkbook.Close​ ‘a = [a1].CurrentRegion.Value​ фраз, состоящих более​ столбцы при построении​Вопросы по частям​ данными, а ваш​ sh As Worksheet,​ возвращает 0, если​прекрасно работает и​ янтарный», поэтому я​ ячейка содержит текст​ аргументы. Только лишь​ следующие подстановочные знаки.​ учитывает регистра. Если​Примечание:​ содержит текст.​ ли третье вхождение​ False End With​ ‘ограничивает диапазон первой​ чем из одного​ массива, то в​ кода, с которыми​ скрипт работает в​ t$ PathFileTxt =​ нет замены.​ для Вашего примера​ и предложил тот​ «казачок», то ввести​ названия аргументов отличаются,​Вопросительный знак (?). Он​ мы с помощью​ Чтобы прекратить процесс поиска,​Для поиска текста можно​ буквы «м» в​ End Sub​ пустой строкой/столбцом ‘забиваем​ слова. ‘a =​ итоге не получится​

CyberForum.ru

​ ничего не понятно.​

Функция ПОИСК осуществляет поиск текста, символа, цифры в указанной области. Она похожа на функцию НАЙТИ, которая так же ищет значение в указанной области, но у них есть отличия, которые мы разберем на примерах.

Как работает функция ПОИСК в Excel

Синтаксис данной функции выглядит следующим образом:

У нас есть слово «Excel». В этом примере нужно найти положение буквы «Х» в слове. Функция возвратит значение 2, поскольку буква находится по счету на втором месте в искомых данных:

Несмотря на то, что искомая буква «Х» находится в верхнем регистре, функция нашла ее аналог в нижнем регистре и выдала результат. В этом и есть отличие с функцией НАЙТИ – она обращает внимание на соответствие регистров.

Также мы можем искать часть слова или слово в искомой области, например найти слово «Excel» в «Exceltable» и «table» во фразе «Excel table». В первом случае в результате мы получим 1, потому что слово «Excel» начинается с первого символа. Во втором случае у нас будет результат 7, потому что «table» начинается с седьмого символа:

Аргумент начальная_позиция используем, когда нужно отсчитать положение символа, начиная с которого возвратится искомое значение. Например, нужно отследить с какой позиции начинается буквенное значение кода. Если не указать номер позиции, у нас возвратится число «2», поскольку буква «о» в ячейке А8 находится второй по порядку:

Благодаря этой функции можно возвращать части фраз, которые требует условие, а не только порядочное положение символа. Для этого функцию ПОИСК нужно комбинировать с другими функциями. Однако, такие комбинации функции могут быть довольно объёмными и существуют функции, более подходящие для выполнения таких задач.



Функция ПОИСКа значения в столбце Excel

В данном примере будет использоваться формула комбинации функции ПОИСК с функциями: ЛЕВСИМВ, ПРАВСИМВ, ДЛСТР. Рассмотрим поэтапно пример, где мы сможем извлекать части фраз с текста, из которого получим искомое значение. У нас есть товар и артикул товара. Наше задание – возвратить только буквенную часть названия артикула. Для этого в ячейке C12 начинаем писать формулу. Для получения результата нам нужна функция ЛЕВСИМВ.

1. Первый аргумент — текст, в котором происходит поиск (ячейка B12).
2. Второй аргумент — нужна длина искомого слова. В первом артикуле она равна 3, а в последующих меняется, поэтому используем формулу ПОИСК(«_»;B12).

Формула с аргументами («_»;B12) указала, что будут возвращаться те символы, которые расположены перед символом нижнего подчеркивания. Проверим наш результат:

Функция ПОИСК возвратила число 4 (порядочное положение знака нижнего подчеркивания), и в качестве второго аргумента функции ЛЕВСИМВ указала какие символы будут находиться в ячейке С12. Пока что это не совсем то, что необходимо получить – знак «_» в идеале должен отсутствовать. Для этого немного подкорректируем формулу: перед вторым аргументом (формулой ПОИСК) отнимаем единицу, этим мы указали что вывод символов будет без знака нижнего подчеркивания (4-1):

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

Если вдруг вам понадобится в этой же таблице изменить артикул – функция среагирует на изменения корректно и автоматически возвратит текстовое значение заменённого артикула. Например для товара «Бокал» будет буквенная часть «К», для «Тарелки» — «М», для «Стола» — ADCDE:

Теперь рассмотрим пример, где будем извлекать символы не ПЕРЕД нижним подчеркиванием, а ПОСЛЕ. В этом нам поможет функция ДЛСТР. Она помогает узнать длину текстовой строки. В ячейке С20 пишем формулу:

В результате она возвратила нам длину артикула товара «Бокал». Скопируем формулу до конца столбца и в следующем этапе в ячейке Е20 напишем формулу ПОИСК. Нижнее подчеркивание – это искомое значение (аргумент 1), возвращаемое значение – позиция порядковый номер положения нижнего подчеркивания. Копируем до конца столбца:

Затем нам нужен столбец, где мы от длины строки отнимаем позицию нижнего подчеркивания (9 — 4) и копируем формулу до конца столбца. То есть этот столбец содержит длину числового значения артикула (значения ПОСЛЕ нижнего подчеркивания):

Теперь в ячейке F20 пишем функцию ПРАВСИМВ, которая возвратит нам текст, часть фразы, которую мы запрашимаем. Первый аргумент функции – это ячейка, которую проверяет формула, а второй – длина возвращаемого значения:

Функция возвратила нам числовое значение артикула товара. Копируем до конца столбца и получаем результат по каждому товару:

Данный пример был рассмотрен поэтапно для более понятного алгоритма выполнения задачи, однако можно числовое значение получить одним шагом:

В этом примере мы сделали то же самое, что и ранее, только все операции сделали в одной формуле: нашли длину текста, отняли длину текста после знака «_» и возвратили эту длину функцией ПРАВСИМВ.

Как использовать функцию ПОИСК с функцией ЕСЛИ

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

Если почтовый индекс начинается с СВ2, тогда это локальный адрес. Мы не можем использовать функцию ЕСЛИ в её обычном выражении, потому что в ячейках много другого текста. Нам нужно знать содержит ли ячейка часть «СВ2». Чтобы лучше понимать логику построения функции, будем делать это от простого к более сложному выражению:

1. Строим функцию ПОИСК: 1-й аргумент – «СВ2», 2-й аргумент – ячейка А37, копируем до конца столбца. Так мы указали что и где будем искать. Там, где нет текста СВ2, возвратилась ошибка. Но сейчас у нас есть только номер позиции текста СВ2. А функция ЕСЛИ будет искать идентичное совпадение. То есть она будет искать число 11 в тексте ячейки А37, которого у нас, конечно, не будет нигде.



2. Формулу функции ПОИСК вкладываем в функцию ЕЧИСЛО (имеет только 1 аргумент), которая будет указателем в дальнейшем для ЕСЛИ, что результатом функции ПОИСК является число (как сейчас, у нас 11):



3. Полученную формулу вкладываем в ЕСЛИ, указывая, что для значения ИСТИНА у нас будет слово «Местный», а для значения ЛОЖЬ – «Далеко». Копируем до конца столбца:

Скачать примеры формул с функцией ПОИСК в Excel

Теперь у нас есть информация об адресах в зависимости от их почтового индекса. Вполне логичное предположение, что можно также было использовать НАЙТИ, но поскольку НАЙТИ учитывает регистр, полезнее и надежнее будет работа с ПОИСКом.