Проверка текста по маске
В языке Visual Basic существует один крайне полезный оператор, называемый Like. Он умеет проверять подобие (похожесть) двух текстовых строк. К сожалению, в стандартном наборе функций этот оператор не нашел своего места, но очень легко создать пользовательскую функцию, которая будет это делать.
Откройте редактор Visual Basic, нажав ALT+F11 или выбрав в меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor), вставьте новый модуль (меню Insert — Module) и скопируйте туда текст этой функции:
Function MaskCompare(txt As String, mask As String, CaseSensitive As Boolean) If Not CaseSensitive Then txt = UCase(txt) mask = UCase(mask) End If If txt Like mask Then MaskCompare = True Else MaskCompare = False End If End Function
Закройте редактор Visual Basic и вернитесь в Excel.
Теперь через Вставка — Функция (Insert — Function) в категории Определенные пользователем (User Defined) можно найти нашу функцию MaskCompare и воспользоваться ей. Синтаксис функции следующий:
=MaskCompare(txt; mask; CaseSensitive)
где
txt — любой текст или ячейка с текстом, которую мы проверяем на соответствие маске
mask — набор символов, которые ищутся в проверяемом тексте. Набор может содержать спецсимволы подстановки:
- * — любое количество любых символов
- ? — один любой символ
- # — любая цифра (0 — 9)
- [список_символов] — любой символ из списка
- [!список_символов] — все символы, кроме содержащихся в списке
Case_Sensitive — необходимо ли учитывать регистр при проверке:
- 1 — регистр символов учитывается
- 0 — регистр символов не учитывается
Примеры использования функции
Использование спецсимволов в маске открывает перед пользователем широчайшие возможности. Вот несколько примеров масок:
- ### — все числа от 0 до 999
- ????? — все слова из 5 букв
- м*н — все слова, начинающиеся на «м» и заканчивающиеся на «н»
- *[аостр]* — все слова, содержащие хотя бы одну из букв а,о,с,т,р
- *[!abcdefghijklmnopqrstuvwxyz]* — все слова НЕ содержащие английских букв
Ссылки по теме
- Поиск ближайшего похожего слова
- Что такое макросы, куда вставлять код макроса на VBA, как их использовать
Поиск или замена текста и чисел на листе
Смотрите также или строки; замена If myArr(j, i) вам нужно из из txt будуSanja переменную «iKey « Not delRng Is For i =lion9 в скобках ToAbsolute нужные участки, а менять. От этого найти слово иливсе, щелкнув заголовок вкладке слова «год» иПримечание: идет по всему Like iText(x) Then текстового файла загрузить
удалять их вашим: Одну строку упустил (с пробелом) потом Nothing Then Set 0 To UBound(iText): Спасибо огромное! Работает.
-
— константа из если столбцов >26, зависит формула для фразу и заменить столбца.Поиск «город».
-
Мы стараемся как можно листу или даже
-
newArr(k, i) = 1.5 млн строк макросом )Между 27 и
-
задатьНет. delRng = Union(delRng, Set iRange = Буду думать, как перечисления Excel.XlReferenceType: xlAbsolute
-
-
то не только замены! их.Чтобы заменить текст или; на вкладке «Вопросительный знак заменяет один оперативнее обеспечивать вас книги. Как настроить myArr(j, i) k и при загрузке
Может кто то 28. Должно бытьMarat_Mamedov cl) Else Set Range(«A:B»).Find(What:=iText(i), LookIn:=xlFormulas, Lookat:=xlPart)
-
третьего контрагента добавить = 1, xlAbsRowRelColumn алфавит.DigitalizerНа вкладке числа, введите знакиЗаменить
-
любой знак. Например, актуальными справочными материалами поиск и замену = k + их отфильтровать по сталкивался с подобной такСкрытый текст Sub
: Что то он delRng = cl If Not iRange таким путём. = 2, xlRelRowAbsColumnManyasha: Добрый день!Главная для замены в» доступны только если ввести на вашем языке. ТОЛЬКО в выделенном
-
-
1 End If одному столбцу по задачей — «умный Макрос2() Dim iText, не работает.
-
End If flag Is Nothing Thenlion9 = 3, xlRelative:В файле приведеннажмите кнопку полеформулыг?д
-
Эта страница переведена столбце/строке? Например, в Next Next Next небольшому списку ключей? экспорт данных из iKey, iTemp, i&,Нечего не происходит, = False End Do iRange.Delete Shift:=xlShiftUp
-
: Спасибо огромное! Работает. = 4.Digitalizer перечень дат сЗаменитьЗаменить на., то будут найдены автоматически, поэтому ее OPEN OFFICE Эта ‘для замены ‘на
Если так, то txt» что бы flag As Boolean прикрепил файл в If Next If Set iRange = Буду думать, какDigitalizer, я правильно поняла, заданной формулой. От.(или оставьте этоДля поиска данных с слова «гад», «гид» текст может содержать
-
функция есть. месте’, замените D1 вот вам вариант перебрать текстовый файл Dim myRng As
-
котором использовал код Not delRng Is Range(«A:B»).Find(What:=iText(i), _ LookIn:=xlFormulas, третьего контрагента добавить: Gustav а как что Вам просто столбца к столбцу
-
-
Кроме того, можно поле пустым, чтобы учетом регистра установите и «год». неточности и грамматическиеPelena на A1 Range(«D1»).Resize(UBound(newArr, на Power Query. по условию ( Range, cl As
от «» но Nothing Then delRng.Delete Lookat:=xlPart) Loop Until таким путём.{/post}{/quote} быть если помимо нужно формулы во меняются только ссылки нажать клавиши CTRL+H. ничем не заменять флажокСовет: ошибки. Для нас: По-моему, во всех 1), UBound(newArr, 2))Разархивируйте 2 файла в моем случаи Range, delRng As
-
после нажатия выполнить Shift:=xlShiftUp MsgBox «ненужные
-
iRange Is Nothing=ИЛИ(ЕСЛИ(ЕОШ(НАЙТИ(«Турция»;E7));»Израиль»;»Турция»);ЕСЛИ(ЕОШ(НАЙТИ(«Египет»;E7));»Израиль»;»Египет»)) приведенных в формуле второй строке привязать на ячейки сВ поле
знаки), а затемУчитывать регистр Звездочки, знак вопроса и важно, чтобы эта версиях НАЙТИ/ЗАМЕНИТЬ работает = newArr MsgBox на С:test строка начинается и Range Dim dic макрос не чего строки удалены!», 64, End If NextС вложением в
-
столбцов так же к первой, чтобы датами (например B1Найти нажмите кнопку. символы тильда (~) статья была вам по выделенному диапазону, «ненужные строки удалены!»,На листе Настройки перечень условий ) As Object iText не произошло (ячейки
«конец» End Sub i MsgBox «ненужные функцию тоже не заданы дополнительные параметры, при протягивании вниз и C1; следующая
введите искомые словоНайти далееДля поиска ячеек, содержащих
-
-
можно найти в полезна. Просим вас а если активна 64, «конец» End в смарт-таблицу забиваете если строка начинается = Array(«Анат», «Уру», не удалилсь)
Советы
-
Jack Famous строки удалены!», 64, выходит Буду и если применить B1 не превращалось C1 и D1; или фразу.или только символы, введенные данных листа перед уделить пару секунд только одна ячейка, Sub ключи, по которым на указанные условия «Инокен») ‘список словОжидалось что удалятся: Sanja For i «конец» End SubДанный благодарен тому, кто макрос то выдает в B2? и т.д.).В полеНайти все
-
в поле их с тильда и сообщить, помогла то по всемуMarat_Mamedov
support.office.com
Поиск и замена текста
нужно фильтровать импортируемый только их и на удаление Set все ячейки в = 0 To
-
макрос удаляет все подскажет — де#ЗНАЧ!Если да, тоКак можно добавить
Заменить на. -
Найти в поле ли она вам, листу
-
: Проста супеер ! список. На листе забрать из текстовго
-
dic = CreateObject(«Scripting.Dictionary») диапазоне A:B которые UBound(iText) iTemp = ячейки в диапазоне я ошибаюсь?
-
Пример: так попробуйте: массово знак ‘$’введите новый текст.Примечание:, установите флажокНайти с помощью кнопок
Гиперссыльный Спасибо всем огромное! Результат щелкаете правой файла For i = не начинаются на dic(iText(i)) Nextобъясните пожалуйста которые начинаются наMCH
200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММПРОИЗВ((Base!$A$2:$A$999=Лист1!$A$2)*(Base!$M$2:$M$999>=Лист1!L1)*(Base!$M$2:$M$999 — макрос не1. В ячейке перед буквой столбцаНажимайте кнопку Если поле Ячейка целиком
support.office.com
Массовая замена значений в excel по маске
. Например, чтобы найти внизу страницы. Для
: Я сделал фотоPower Query -
кнопкой также по
Sanja 0 To UBound(iText)
Анат или Уру
— это наполнение 05056280 или 06056280
: У Вас всегда работает, выдает
В2 выделите часть
и после нее,Найти далееЗаменить на. данные, которые содержат удобства также приводим Print screen-ом, нигде для меня новинка смарт-таблице и нажимаете: Будьте готовы к
Массовая замена значений в ячейках (Иное/Other)
iTemp = dic(iText(i)) или Инокен
словаря? или 01056280 , так обозначаются контейнеры#ЗНАЧ! формулы B1 и и для последующих, пока не перейдетенедоступно, откройте вкладкуЕсли вы хотите найти «?», вы введите
ссылку на оригинал нет опции « разбираюсь как он обновить. Скрипт вытащит тормозам. Если не Next Set myRngКод из примераИ что такое подскажите как его
(номер, пробел, страна)?Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММПРОИЗВ((Base!$M$2:$M$999>=Лист1!B1)*(Base!$M$2:$M$999 нажмите 2 раза столбцов аналогично. например к вхождению, котороеЗаменить текст или числа~? (на английском языке). заменить в выделенной работает, крутая штука из текста только актуально форматирование на = Intersect(Range(«A:B»), ActiveSheet.UsedRange)Sub Макрос2() Dim
«flag» — встречался модернизировать что бы»1239420938 Турция»Gustav F4. Должно получиться $B$1 и $C$1
вы хотите изменить..
с определенным форматированием,как критерии поиска.Функции поиска и замены области»! (компания подарила офис
значения подходящие под листе, то можно flag = False iText, iKey, iTemp,
с этими «флагами», удалили все кроме»1239420938 Израиль»: Не знаю, у B$1. C C1
одновременно с $D$1Нажмите кнопкуПри необходимости поиск можно нажмите кнопкуНажмите кнопку в Excel используютсяГиперссыльный 365 — а
описанное вами условие. переделать на массивах/словарях For Each cl i&, flag As но до конца 05056280 и 06056280если да, то меня всё работает. — аналогично и $E$1.Заменить
отменить, нажав клавишуФормат
Параметры для поиска в: я еще вЕсли будет образецMarat_Mamedov In myRng For
Boolean Dim myRng не понял)) и и 01056280 (указать
подойдет формула:
Ввожу Ваши формулы,
2. Протяните формулуВторой вопрос: путем
. Чтобы обновить все ESC.и выберите нужные, чтобы определить дополнительные
книге необходимой информации,
Pelena
2007-2010 завис.) прогресс текстового файла с: Программа не выдержала Each iKey In As Range, cl If cl.Value Like в макросе те
=ПСТР(E7;ПОИСК(» «;E7&» «)+1;99) выделяю ячейки, запускаю
в В2 на функцией «замена» - вхождения, не останавливаясьЧтобы заменить одно или
параметры в диалоговом
условия поиска при например определенного числа: Дык, Excel по
не стоит на парой строк -
, вылет. Подскажите dic.Keys If cl.Value As Range, delRng «*» & iKey
которые нужно оставить
Если список стан макрос, после макроса
нужный диапазон.
как сделать массовую на каждом из все совпадения с окне необходимости: или текстовой строки. умолчанию так работает: месте
смогу подогнать скрипт о чем речь Like «*» & As Range Dim & «*» Then а не удалить ограничен, и нужно имею в ячейкахНу или макрос:
замену с добавлением
них, нажмите кнопку введенным текстом, нажмитеНайти формат
Для поиска данных на
На вкладке если выделен диапазон,Макрос автора - под него. не совсем понимаю. iKey & "*" dic As Object - это, чтобы
т.к. оставить нужно
найти название страны, абсолютные формулы:200?'200px':''+(this.scrollHeight+5)+'px');">Sub replaceRef() знака '$'? Т.е.Заменить все кнопку. листе или во
excelworld.ru
Использование поиска по маске в функции ЕСЛИ
Главная ищет по нему, отработал программа неНу и эта,Jack Famous
Then flag =
iText = Array(«Анат*»,
можно было переменную
порядка 10 масок находящееся в любом200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММПРОИЗВ((Base!$A$2:$A$999=Лист1!$A$2)*(Base!$M$2:$M$999>=Лист1!$L$1)*(Base!$M$2:$M$999For i = скажем задаем такой
.
ЗаменитьСовет: всей книге выберитев группе если не выделен, вылетела. если даже по: тупанул малях))) точно True Exit For «Уру*», «Инокен*») ‘список
«iKey » (с а удалить намного
месте текстовой страны,
Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММПРОИЗВ((Base!$M$2:$M$999>=Лист1!$B$1)*(Base!$M$2:$M$999 Может, в 65 To 90 параметрСовет:или
Чтобы найти ячейки, точно в полеРедактирование то ищет поВ excel в ячейках
форуме по-копаться, уверен,
— это ж End If If слов на удаление пробелом) потом задать больше и количество то можно использовать
обрабатываемых этими формуламиSelection.Replace Chr(i) &% Чтобы найти только вхождения
Заменить все
соответствующие определенному формату,
Искатьнажмите кнопку
всему листу
столбца указаны промежутки что можно найти как flag Then Exit Set dic = — в случае масок вырастает)
формулу:
ячейках какие-то проблемы, 1, «$» &
1 и заменяем на в верхнем или. можно удалить всевариантНайти и выделитьГиперссыльный времени в таком варианты решения вашей»cl»
For Next If CreateObject(«Scripting.Dictionary») For i
необходимости?
Sanja=ПРОСМОТР(2;1/ЕЧИСЛО(ПОИСК({«Турция»:»Израиль»:»Египет»};E7));{«Турция»:»Израиль»:»Египет»})
planetaexcel.ru
Удаление ячеек по маске
какие-нибудь «левые» значения? Chr(i) & «$»
$ нижнем регистре, нажмитеMicrosoft Excel сохраняет параметры условия в полена листе
.: Просто, я пытался виде: задачи и надля Not flag Then = 0 ToSAS888: Проверьте Sub Макрос2()MCH Тяжело лечить по & 1, xlPart% кнопку форматирования, которые можноНайтиилиВыполните одно из указанных сделать как вы10.00-12.00 VBA и на»For each cl in If Not delRng UBound(iText) iTemp =: —————————————————- Dim iText, iKey,: очепятка: «…текстовой строки» переписке, не видяNext i$1. соответственно ко всемБольше определить. Если вы, а затем выбратьв книге ниже действий. говорите: выделил столбец,11.00-14.00 SQL. Только как rng» Is Nothing Then
dic(iText(i)) Next SetSanja iTemp, i&, flaglion9 «пациента» (файла-примера сEnd Sub буквам столбцов (дои установите флажок еще раз выполнить ячейку с нужным.Чтобы найти текст или вызвал функцию «найтии т. п. описано в правилах,спасибо большое!!! Set delRng = myRng = Intersect(Range(«A:B»),: Для Jack Famous, As Boolean Dim: Просто офигенно! Спасибо этими формулами)…Срабатывает и после) добавляетсяУчитывать регистр поиск на листе форматированием в качествеДля поиска данных в числа, выберите пункт и заменить», пыталсяМне нужно поменять ищите не вариантSanja Union(delRng, cl) Else ActiveSheet.UsedRange) flag =Это способ наполнения myRng As Range, огромное. Функция вообщеlion9на выделенном диапазоне знак ‘$’.. данные и не примера. Щелкните стрелку строках или столбцах
Найти заменить, а он формат на следующий: решения, который вам: Можно забирать все Set delRng = False For Each
словаря уникальными ключами, cl As Range, ничего не говорит: Есть таблица соиЭта процедура необходимаСовет. удается найти символы, рядом с кнопкой выберите в поле. падла заменяет вос 10 до 12 кажется правильным, а
данные в память, cl End If
cl In myRng с пустыми значениями,
delRng As Range — никогда ничего списком, содержащим вищет только
для автоматизации иВидео не на которые вы знаетеФорматПросматриватьЧтобы найти и заменить всем листе, игнорируяс 11 до 14 конкретно решение вашей обрабатывать (удалять/добавлять/изменять) их
flag = False For Each iKey без генерации ошибки Dim dic As подобного не видел ячейках номера контейнеровгде вместо знака % ухода от ручного вашем языке? Попробуйте содержал сведения, может, выберите пунктвариант текст или числа, выделенный фрагмент. ЧувствуюПробую сделать это изначальной задачи.
в памяти и End If flag In dic.Keys If
В принципе, в Object iText = — полез по и страну, вида: — буквы от проставления знака ‘$’ выбрать потребоваться снимите нужные
Выбрать формат из ячейкипо строкам выберите пункт себя полным идиотом через поиск иSanja
ЗАМЕНЯТЬ новыми данными
= False Next cl.Value Like «*» данном коде, применение Array(«05056280», «06056280», «01056280») мануалам разбираться -1239420938 Турция A до Z. к каждой буквеСкрытые субтитры параметры форматирования из, а затем щелкнитеилиЗаменить ((( замену. Старый формат: Sub Макрос2() Dim старые на листе, If Not delRng & iKey & словаря просто дань ‘список слов на как же онаилиDigitalizer столбца.. предыдущего поиска. В ячейку с форматированием,по столбцам.Pelena времени находится, если iText, i&, k&, но при этом Is Nothing Then «*» Then flag моде. Т.к. в удаление Set dic работает-то хоть :)1239420938 Израиль: Nic70yNic70yНужно массово заменить значения диалоговом окне
которое требуется найти..
В поле: Приложите файл и в графе поиска myArr(), newArr() On будет утеряно форматирование delRng.Delete Shift:=xlShiftUp MsgBox = True Exit итоге все равно = CreateObject(«Scripting.Dictionary») ForMCHХотелось бы, чтобыда вот и: Ctrl+h не пробовали? в ячейках .Поиск и заменаВыполните одно из указанныхДля поиска данных сНайти поясните что на ввести *.*-*.* (*, Error Resume Next ячеек (цвета шрифтов, «ненужные строки удалены!», For End If перебираем ключи, а i = 0: ЕЧИСЛО — лишнее: в следующем столбце приходилось F4 жатьDigitalizerПример, в ячейкахперейдите на вкладку ниже действий. конкретными свойствами выберитевведите текст или что Вы хотите как я помню, iText = Array(«Анат*», курсив и прочее) 64, «конец» End If flag Then их не так To UBound(iText) iTemp=ПРОСМОТР(2;1/ПОИСК({«Турция»:»Израиль»:»Египет»};E8);{«Турция»:»Израиль»:»Египет»}) по каждой такой по 50 раз: так я и значение :
ПоискЧтобы найти текст или в поле числа, которые нужно поменять в маске - «Уру*», «Инокен*») ‘списокMarat_Mamedov Sub Exit For Next уж много, и = dic(iText(i)) Next
Владимир ячейке выводилась соответствующая :) спрашиваю каким образом1805/7957-6890и нажмите кнопку
числа, нажмите кнопкуОбласть поиска искать, или щелкнитеSerge_007 это любой знак слов на НЕудаление: «но при этомMarat_Mamedov If Not flag можно обойтись обычным Set myRng =: =ЗАМЕНИТЬ(A1;1;НАЙТИ(» «;A1);»») страна. Конструкция вида:Manyasha это можно сделать
Нужно заменить наПараметрыНайти всевариант стрелку в поле: Такой «опции» не
или любые несколько myArr = Intersect(Range(«A:B»), будет утеряно форматирование: Просто супер! Спасибо Then If Not
массивом. Intersect(Range(«A:B»), ActiveSheet.UsedRange) flagMarat_Mamedov=ЕСЛИ(E7=»Турция*»;»Турция»;»Израиль»)да да да, в «замене». :, чтобы открыть параметры
или
формулыНайти существует в Excel знаков) . ActiveSheet.UsedRange).Value ReDim newArr(1 ячеек (цвета шрифтов, большое теперь пойду delRng Is NothingЦитатаJack Famous написал: = False For: Здравствуйте!
работать не хочет. об этом икак сделать маску1805-7957/6890 форматирования. Щелкните стрелкуНайти далее,и нажмите кнопку за ненадобностьюКто подскажет, что
To UBound(myArr, 1), курсив и прочее)» на боевых реестрах
Then Set delRng И что такое Each cl InНа форме нашел Как можно решить речь :) на те значенияAbram pupkin рядом с полем.
значения последнего поиска вЦитата
мне вписать в 1 To UBound(myArr,
— такой вариант удалять записи там = Union(delRng, cl) «flag»Если посмотрите выше myRng For Each макрос который удаляет эту задачу? Испасибо за макрос которые не надо: так ?ФорматСовет:
или списке.Pelena, 26.07.2015 в графе «Заменить на»? 2)) k =
подходит там вообще записей под 1,5 Else Set delRng по коду, то iKey In dic.Keys ячейки со сдвигом каким будет решение, ) помогло менять.=ПОДСТАВИТЬ (ПОДСТАВИТЬ (ПОДСТАВИТЬи нажмите кнопку При нажатии кнопкипримечанияВ условиях поиска можно
14:13, в сообщенииОрбитальная группировка 1 flag = нет ничего такого млн ячеек (пришлось = cl End увидите, что это If cl.Value Like вверх по условию если контрагентов будетGustavПо типу: Лист1! (A2;»/»;»»);»-«;»/»);»»;»-«)ОчиститьНайти все. использовать подстановочные знаки, № 2200?’200px’:»+(this.scrollHeight+5)+’px’);»>во всех: … надо ;##…реш0тки False For i в формате ячеек экспортировать в две If flag = обычная переменная типа «*» & iKey : не двое, а: Если только правильноB*пробелы убрать., каждого экземпляра условия,Примечание: например вопросительный знак версиях НАЙТИ/ЗАМЕНИТЬ работает а не звёзды = 1 To
, просто текст. колонки что бы False End If
Boolean. В коде & «*» ThenSub Макрос2() Dim трое? Вообще, поддерживают понял задачу, требовалось,1 в Лист1!$Полосатый жираф аликДля поиска текста или которые вы ищете
(?) и звездочку по выделенному диапазону,или between or
planetaexcel.ru
Помогите составить маску для замены в excel
UBound(myArr, 2) kJack Famous поместились ) посмотрю Next If Not
она служит индикатором
flag = True
iRange As Range
ли функции Excel вероятно, нечто следующее:
%
: А если без
чисел на листе указываются и щелкнувФормулы (*). а если активнаГиперссыльный = 1 For: эт не я как себя поведет delRng Is Nothing выполнения условия If
Exit For End Dim iText As поиск по маске
200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub io()$1 тупых примеров, а
также можно использовать
Как настроить НАЙТИ и ЗАМЕНИТЬ только в выделенной области? (Формулы/Formulas)
нужное вхождение в,Звездочка используется для поиска только одна ячейка,: В Excel 2010 j = 1 писал)) Excel. Then delRng.Delete Shift:=xlShiftUp cl.Value Like «*» If If flag Variant Dim i вообще?Selection.Formula = Application.ConvertFormula(Selection.Formula,
Nic70y описать, что действительно функции ПОИСК и списке сделает ячейкизначения любой строки знаков. то по всему почему-то отсутствует функция
To UBound(myArr, 1)PooHkrdНе смог найти MsgBox «ненужные строки & iKey & Then Exit For
As Long iTextmouse
xlA1, xlA1, xlAbsolute): Этим средством думаю нужно? И по НАЙТИ. active. Можно сортироватьи Например, если ввести листуВсе верно, так
НАЙТИ И ЗАМЕНИТЬ For x =: Я правильно понимаю, как настроить умный удалены!», 64, «конец» «*»ЦитатаJack Famous написал: Next If Not = Array(«05056280*»,»06056280*»,»01056280*») ‘список: может такEnd Sub ни как, перебирайте каким адресам расположено
С помощью функции «Поиск результатыпримечанияг*д и есть во
при выделении столбца 0 To UBound(iText) что по факту экспор в ексель
End Sub чтобы можно было flag Then If слов на удаление=ЕСЛИ(ЕОШ(НАЙТИ(«Турция»;E7));»Израиль»;»Турция»)P.S. Четвертый параметр весь алфавит, выделяя то, что будем и замена» можноНайтидоступны только на, то будут найдены
excelworld.ru
всех версиях
Рассмотрим применение подстановочных знаков в Excel (символы звездочки «*», тильды «~» и вопросительного знака «?») и их использование при поиске и замене текстовых значений.
Приветствую всех, дорогие читатели блога TutorExcel.Ru.
В начале предлагаю вспомнить определение подстановочных знаков и понять, что же это такое и для каких целей они применяются в Excel. А затем уже разберем применение на конкретных примерах.
Подстановочные знаки — это специальные символы, которые могут принимать вид любого произвольного количества символов, другими словами, являются определенными масками комбинаций символов.
Всего в Excel есть 3 типа подобных знаков:
- * (звездочка); Обозначает любое произвольное количество символов.
Например, поиск по фразе «*ник» найдет слова типа «понедельник», «всадник», «источник» и т.д. - ? (вопросительный знак); Обозначает один произвольный символ.
К примеру, поиск по фразе «ст?л» найдет «стол», «стул» и т.д. - ~ (тильда) с последующими знаками *, ? или ~. Обозначает конкретный символ *, ? или ~.
Например, поиск по фразе «хор*» найдет все фразы начинающиеся на «хор» («хоровод», «хорошо» и т.д.). Поэтому для точного поиска «хор*» нужно использовать символ «~» и искать по фразе «хор~*». Наличие «~» гарантирует, что Excel прочитает следующий символ как текст, а не как подстановочный знак.
Использование таких спецсимволов может быть полезно при фильтрации данных, для сравнения текста, при поиске и замене текстовых значений. Давайте подробно остановимся на каждом из основных вариантов применения.
Фильтрация данных
Рассмотрим пример. Предположим, что у нас имеется список сотрудников компании и мы хотим отфильтровать только тех сотрудников, у которых фамилии начинаются на конкретную букву (к примеру, на букву «п»):
Для начала добавляем фильтр на таблицу (выбираем вкладку Главная -> Редактирование -> Сортировка и фильтр или нажимаем сочетание клавиш Ctrl + Shift + L).
Для фильтрации списка воспользуемся символом звездочки, а именно введем в поле для поиска «п*» (т.е. фамилия начинается на букву «п», после чего идет произвольный текст):
Фильтр определил 3 фамилии удовлетворяющих критерию (начинающиеся с буквы «п»), нажимаем ОК и получаем итоговый список из подходящих фамилий:
В общем случае при фильтрации данных мы можем использовать абсолютно любые критерии, никак не ограничивая себя в выборе маски поиска (произвольный текст, различные словоформы, числа и т.д.).
К примеру, чтобы показать все варианты фамилий, которые начинаются на букву «к» и содержат букву «в», то применим фильтр «к*в*» (т.е. фраза начинается на «к», затем идет произвольный текст, потом «в», а затем еще раз произвольный текст).
Или поиск по «п?т*» найдет фамилии с первой буквой «п» и третьей буквой «т» (т.е. фраза начинается на «п», затем идет один произвольный символ, затем «т», и в конце опять произвольный текст).
Применение в функциях
Как уже говорилось выше, подстановочные знаки в Excel могут использоваться в качестве критерия при сравнении текста в различных функциях Excel (например, СЧЁТЕСЛИ, СУММЕСЛИ, СУММЕСЛИМН, ГПР, ВПР и другие).
Повторим задачу из предыдущего примера и подсчитаем количество сотрудников компании, фамилии которых начинаются на букву «п».
Воспользуемся функцией СЧЁТЕСЛИ, которая позволяет посчитать количество ячеек соответствующих указанному критерию.
В качестве диапазона данных укажем диапазон с сотрудниками (A2:A20), а в качестве критерия укажем запись «п*» (т.е. любая фраза начинающаяся на букву «п»):
Как и в первом примере, в результате мы получили ровно 3 фамилии.
Однако не все функции поддерживают применение подстановочных знаков. Некоторые из них (к примеру, функция НАЙТИ) любой символ воспринимают как текст, даже несмотря на то, что он может быть служебным.
С помощью функции НАЙТИ найдем в тексте позицию вхождения вопросительного знака и звездочки:
Обратным примером служит аналогичная функция ПОИСК, в которой мы должно четко указать что ищем именно служебный символ:
Как видим результат у функций получился одинаковым, однако обращение к подстановочным знакам разное.
Инструмент «Найти и заменить»
Подстановочные знаки в Excel также можно использовать для поиска и замены текстовых значений в инструменте «Найти и заменить» (комбинация клавиш Ctrl + F для поиска и Ctrl + H для замены).
Рассмотрим пример. Имеется список продукции магазина, в котором нам нужно найти продукт «молоко».
Предположим, что при вводе данных сделали ошибки из-за чего в списке появились продукты «малоко».
Чтобы несколько раз не искать данные по словам «молоко» или «малоко», при поиске воспользуемся критерием «м?локо» (т.е. вторая буква — произвольная):
При этом не стоит забывать, что с помощью данного инструмента можно не только искать текст, но и заменять его (к примеру, заменить «м?локо» на «молоко»).
Практически наверняка каждый сталкивался со следующей ситуацией — в тексте присутствует символ звездочки, который необходимо удалить или заменить на какой-либо другой текст.
Однако при попытке заменить звездочку возникают трудности — при замене меняются абсолютно весь текст, что естественно и логично, так как Excel воспринимает символ «*» как любой произвольный текст.
Но мы теперь уже знаем как с этим бороться, поэтому в поле Найти указываем текст «~*» (явно показываем, что звездочка является специальным символом), а в поле Заменить на указываем на что заменяем звездочку, либо оставляем поле пустым, если хотим удалить звездочку:
Аналогичная ситуация и при замене или удалении вопросительного знака и тильды.
Производя замену «~?» (для тильды — «~~») мы также без проблем сможем заменить или удалить спецсимвол.
Удачи вам и до скорых встреч на страницах блога Tutorexcel.ru
Поделиться с друзьями:
Поиск по сайту:
Поиск какого-либо значения в ячейках Excel довольно часто встречающаяся задача при программировании какого-либо макроса. Решить ее можно разными способами. Однако, в разных ситуациях использование того или иного способа может быть не оправданным. В данной статье я рассмотрю 2 наиболее распространенных способа.
Поиск перебором значений
Довольно простой в реализации способ. Например, найти в колонке «A» ячейку, содержащую «123» можно примерно так:
Sheets("Данные").Select For y = 1 To Cells.SpecialCells(xlLastCell).Row If Cells(y, 1) = "123" Then Exit For End If Next y MsgBox "Нашел в строке: " + CStr(y)
Минусами этого так сказать «классического» способа являются: медленная работа и громоздкость. А плюсом является его гибкость, т.к. таким способом можно реализовать сколь угодно сложные варианты поиска с различными вычислениями и т.п.
Поиск функцией Find
Гораздо быстрее обычного перебора и при этом довольно гибкий. В простейшем случае, чтобы найти в колонке A ячейку, содержащую «123» достаточно такого кода:
Sheets("Данные").Select Set fcell = Columns("A:A").Find("123") If Not fcell Is Nothing Then MsgBox "Нашел в строке: " + CStr(fcell.Row) End If
Вкратце опишу что делают строчки данного кода:
1-я строка: Выбираем в книге лист «Данные»;
2-я строка: Осуществляем поиск значения «123» в колонке «A», результат поиска будет в fcell;
3-я строка: Если удалось найти значение, то fcell будет содержать Range-объект, в противном случае — будет пустой, т.е. Nothing.
Полностью синтаксис оператора поиска выглядит так:
Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
What — Строка с текстом, который ищем или любой другой тип данных Excel
After — Ячейка, после которой начать поиск. Обратите внимание, что это должна быть именно единичная ячейка, а не диапазон. Поиск начинается после этой ячейки, а не с нее. Поиск в этой ячейке произойдет только когда весь диапазон будет просмотрен и поиск начнется с начала диапазона и до этой ячейки включительно.
LookIn — Тип искомых данных. Может принимать одно из значений: xlFormulas (формулы), xlValues (значения), или xlNotes (примечания).
LookAt — Одно из значений: xlWhole (полное совпадение) или xlPart (частичное совпадение).
SearchOrder — Одно из значений: xlByRows (просматривать по строкам) или xlByColumns (просматривать по столбцам)
SearchDirection — Одно из значений: xlNext (поиск вперед) или xlPrevious (поиск назад)
MatchCase — Одно из значений: True (поиск чувствительный к регистру) или False (поиск без учета регистра)
MatchByte — Применяется при использовании мультибайтных кодировок: True (найденный мультибайтный символ должен соответствовать только мультибайтному символу) или False (найденный мультибайтный символ может соответствовать однобайтному символу)
SearchFormat — Используется вместе с FindFormat. Сначала задается значение FindFormat (например, для поиска ячеек с курсивным шрифтом так: Application.FindFormat.Font.Italic = True), а потом при использовании метода Find указываем параметр SearchFormat = True. Если при поиске не нужно учитывать формат ячеек, то нужно указать SearchFormat = False.
Чтобы продолжить поиск, можно использовать FindNext (искать «далее») или FindPrevious (искать «назад»).
Примеры поиска функцией Find
Пример 1: Найти в диапазоне «A1:A50» все ячейки с текстом «asd» и поменять их все на «qwe»
With Worksheets(1).Range("A1:A50") Set c = .Find("asd", LookIn:=xlValues) Do While Not c Is Nothing c.Value = "qwe" Set c = .FindNext(c) Loop End With
Обратите внимание: Когда поиск достигнет конца диапазона, функция продолжит искать с начала диапазона. Таким образом, если значение найденной ячейки не менять, то приведенный выше пример зациклится в бесконечном цикле. Поэтому, чтобы этого избежать (зацикливания), можно сделать следующим образом:
Пример 2: Правильный поиск значения с использованием FindNext, не приводящий к зацикливанию.
With Worksheets(1).Range("A1:A50") Set c = .Find("asd", lookin:=xlValues) If Not c Is Nothing Then firstResult = c.Address Do c.Font.Bold = True Set c = .FindNext(c) If c Is Nothing Then Exit Do Loop While c.Address <> firstResult End If End With
В ниже следующем примере используется другой вариант продолжения поиска — с помощью той же функции Find с параметром After. Когда найдена очередная ячейка, следующий поиск будет осуществляться уже после нее. Однако, как и с FindNext, когда будет достигнут конец диапазона, Find продолжит поиск с его начала, поэтому, чтобы не произошло зацикливания, необходимо проверять совпадение с первым результатом поиска.
Пример 3: Продолжение поиска с использованием Find с параметром After.
With Worksheets(1).Range("A1:A50") Set c = .Find("asd", lookin:=xlValues) If Not c Is Nothing Then firstResult = c.Address Do c.Font.Bold = True Set c = .Find("asd", After:=c, lookin:=xlValues) If c Is Nothing Then Exit Do Loop While c.Address <> firstResult End If End With
Следующий пример демонстрирует применение SearchFormat для поиска по формату ячейки. Для указания формата необходимо задать свойство FindFormat.
Пример 4: Найти все ячейки с шрифтом «курсив» и поменять их формат на обычный (не «курсив»)
lLastRow = Cells.SpecialCells(xlLastCell).Row lLastCol = Cells.SpecialCells(xlLastCell).Column Application.FindFormat.Font.Italic = True With Worksheets(1).Range(Cells(1, 1), Cells(lLastRow, lLastCol)) Set c = .Find("", SearchFormat:=True) Do While Not c Is Nothing c.Font.Italic = False Set c = .Find("", After:=c, SearchFormat:=True) Loop End With
Примечание: В данном примере намеренно не используется FindNext для поиска следующей ячейки, т.к. он не учитывает формат (статья об этом: https://support.microsoft.com/ru-ru/kb/282151)
Коротко опишу алгоритм поиска Примера 4. Первые две строки определяют последнюю строку (lLastRow) на листе и последний столбец (lLastCol). 3-я строка задает формат поиска, в данном случае, будем искать ячейки с шрифтом Italic. 4-я строка определяет область ячеек с которой будет работать программа (с ячейки A1 и до последней строки и последнего столбца). 5-я строка осуществляет поиск с использованием SearchFormat. 6-я строка — цикл пока результат поиска не будет пустым. 7-я строка — меняем шрифт на обычный (не курсив), 8-я строка продолжаем поиск после найденной ячейки.
Хочу обратить внимание на то, что в этом примере я не стал использовать «защиту от зацикливания», как в Примерах 2 и 3, т.к. шрифт меняется и после «прохождения» по всем ячейкам, больше не останется ни одной ячейки с курсивом.
Свойство FindFormat можно задавать разными способами, например, так:
With Application.FindFormat.Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 End With
Поиск последней заполненной ячейки с помощью Find
Следующий пример — применение функции Find для поиска последней ячейки с заполненными данными. Использованные в Примере 4 SpecialCells находит последнюю ячейку даже если она не содержит ничего, но отформатирована или в ней раньше были данные, но были удалены.
Пример 5: Найти последнюю колонку и столбец, заполненные данными
Set c = Worksheets(1).UsedRange.Find("*", SearchDirection:=xlPrevious) If Not c Is Nothing Then lLastRow = c.Row: lLastCol = c.Column Else lLastRow = 1: lLastCol = 1 End If MsgBox "lLastRow=" & lLastRow & " lLastCol=" & lLastCol
В этом примере используется UsedRange, который так же как и SpecialCells возвращает все используемые ячейки, в т.ч. и те, что были использованы ранее, а сейчас пустые. Функция Find ищет ячейку с любым значением с конца диапазона.
Поиск по шаблону (маске)
При поиске можно так же использовать шаблоны, чтобы найти текст по маске, следующий пример это демонстрирует.
Пример 6: Выделить красным шрифтом ячейки, в которых текст начинается со слова из 4-х букв, первая и последняя буквы «т», при этом после этого слова может следовать любой текст.
With Worksheets(1).Cells Set c = .Find("т??т*", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then firstResult = c.Address Do c.Font.Color = RGB(255, 0, 0) Set c = .FindNext(c) If c Is Nothing Then Exit Do Loop While c.Address <> firstResult End If End With
Для поиска функцией Find по маске (шаблону) можно применять символы:
* — для обозначения любого количества любых символов;
? — для обозначения одного любого символа;
~ — для обозначения символов *, ? и ~. (т.е. чтобы искать в тексте вопросительный знак, нужно написать ~?, чтобы искать именно звездочку (*), нужно написать ~* и наконец, чтобы найти в тексте тильду, необходимо написать ~~)
Поиск в скрытых строках и столбцах
Для поиска в скрытых ячейках нужно учитывать лишь один нюанс: поиск нужно осуществлять в формулах, а не в значениях, т.е. нужно использовать LookIn:=xlFormulas
Поиск даты с помощью Find
Если необходимо найти текущую дату или какую-то другую дату на листе Excel или в диапазоне с помощью Find, необходимо учитывать несколько нюансов:
- Тип данных Date в VBA представляется в виде #[месяц]/[день]/[год]#, соответственно, если необходимо найти фиксированную дату, например, 01 марта 2018 года, необходимо искать #3/1/2018#, а не «01.03.2018»
- В зависимости от формата ячеек, дата может выглядеть по-разному, поэтому, чтобы искать дату независимо от формата, поиск нужно делать не в значениях, а в формулах, т.е. использовать LookIn:=xlFormulas
Приведу несколько примеров поиска даты.
Пример 7: Найти текущую дату на листе независимо от формата отображения даты.
d = Date Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole) If Not c Is Nothing Then MsgBox "Нашел" Else MsgBox "Не нашел" End If
Пример 8: Найти 1 марта 2018 г.
d = #3/1/2018# Set c = Cells.Find(d, LookIn:=xlFormulas, LookAt:=xlWhole) If Not c Is Nothing Then MsgBox "Нашел" Else MsgBox "Не нашел" End If
Искать часть даты — сложнее. Например, чтобы найти все ячейки, где месяц «март», недостаточно искать «03» или «3». Не работает с датами так же и поиск по шаблону. Единственный вариант, который я нашел — это выбрать формат в котором месяц прописью для ячеек с датами и искать слово «март» в xlValues.
Тем не менее, можно найти, например, 1 марта независимо от года.
Пример 9: Найти 1 марта любого года.
d = #3/1/1900# Set c = Cells.Find(Format(d, "m/d/"), LookIn:=xlFormulas, LookAt:=xlPart) If Not c Is Nothing Then MsgBox "Нашел" Else MsgBox "Не нашел" End If
Хитрости »
4 Январь 2016 119594 просмотров
Найти в ячейке любое слово из списка
Предположим, вы получаете от поставщика/заказчика/клиента заполненную таблицу с перечнем продукции:
и эту таблицу необходимо сравнить с артикулами/кодами товара в имеющемся у вас каталоге продукции:
Как видно — в нашем каталоге только артикулы без наименований. У заказчика же помимо артикулов еще и название товара, т.е. много лишнего. И вам надо понять какие товары присутствуют в вашем каталоге, а какие нет:
Стандартных формул в Excel для подобного поиска и сравнения нет. Конечно, можно попробовать применить ВПР с подстановочными символами сначала к одной таблице, а затем к другой. Но если подобную операцию необходимо проделывать раз за разом, то прописывать по несколько формул к каждой таблице прямо скажем — не комильфо.
Поэтому я и решил сегодня продемонстрировать формулу, которая без всяких доп. манипуляций поможет такое сравнение сделать. Чтобы разобраться самостоятельно рекомендую скачать файл:
Скачать файл:
Tips_All_AnyoneOfArray.xls (49,5 KiB, 25 670 скачиваний)
На листе «Заказ» в этом файле таблица, полученная от заказчика, а на листе «Каталог» наши артикулы.
Сама формула на примере файла будет выглядеть так:
=ПРОСМОТР(2;1/ПОИСК(Каталог!$A$2:$A$11;A2);Каталог!$A$2:$A$11)
=LOOKUP(2,1/SEARCH(Каталог!$A$2:$A$11,A2),Каталог!$A$2:$A$11)
эта формула вернет название артикула, если в тексте есть хоть один артикул из каталога и
#Н/Д(#N/A)
если артикул не найден в каталоге.
Прежде чем облагородить эту формулу всякими дополнениями(вроде виде убирания ненужных
#Н/Д(#N/A)
) давайте разберемся как она работает.
Кратко о принципе работы функция
ПРОСМОТР(LOOKUP)
: она берет значение, заданное первым аргументом и ищет его в массиве(диапазоне) из второго аргумента. Как только находит — запоминает его позицию(строку, если угодно) и в итоге возвращает значение, расположенное в этой же позиции в массиве третьего аргумента.
Но у функции есть пара особенностей:
- Она ищет не обязательно именно точное совпадение с искомым, а максимально приближенное к нему. Если точнее — равное или большее искомому.
- Функция ПРОСМОТР(LOOKUP) старается преобразовать непосредственно в массив любое выражение, записанное вторым аргументом.
Этими особенностями мы и будем пользоваться.
Как уже упомянул выше — в качестве диапазона для поиска значения обычно приводится массив ячеек, но т.к. функция ПРОСМОТР(LOOKUP) старается преобразовать непосредственно в массив любое выражение — она вычисляет данное ей выражение 1/ПОИСК(Каталог!$A$2:$A$11;A2), работая в итоге с результатами этого вычисления.
Само же выражение работает следующим образом: ПОИСК(Каталог!$A$2:$A$11;A2) ищет поочередно каждое значение из списка Каталога в ячейке A2(в наименовании артикула из таблицы Заказчика). Если значение найдено, то возвращается номер позиции первого символа найденного значения(т.е. какое-то число). Если значение не найдено — возвращается значение ошибки #ЗНАЧ!(#VALUE!). Т.е. получается следующий массив: {55:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!}
По идее, после того, как функция ПРОСМОТР(LOOKUP) вычислит это выражение, она будет последовательно просматривать результаты функции ПОИСК(SEARCH) в поисках заданного нами искомого значения, пока не найдет значение максимально близкое к искомому(оптимально равное или чуть больше него). Но т.к. функция ПОИСК(SEARCH) может вернуть неизвестно какие по величине значения, мы, чтобы не гадать и не думать над тем, какое число задать для поиска, сначала единицу делим на выражение ПОИСК(Каталог!$A$2:$A$11;A2), чтобы получить массив вида:{0,0181818181818182:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!}
А в качестве искомого значения мы подсовываем функции ПРОСМОТР(LOOKUP) число 2 — т.е. заведомо большее число, чем может вообще встретиться в массиве(т.к. единица, поделенная на любое число будет меньше двух), чем заставляем её найти последнее подходящее совпадение из каталога(т.е. последнее не ошибочное значение). После этого функция ПРОСМОТР(LOOKUP) запомнит эту позицию и вернет значение из массива Каталог!$A$2:$A$11(третий аргумент), записанное в этом массиве для этой позиции.
Вы можете просмотреть этапы вычисления функции самостоятельно для каждой ячейки, я здесь просто приведу этапы чуть в расширенном для понимания виде:
- =ПРОСМОТР(2;1/ПОИСК(Каталог!$A$2:$A$11;A2);Каталог!$A$2:$A$11)
- =ПРОСМОТР(2;
1/{55:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!};
Каталог!$A$2:$A$11) - =ПРОСМОТР(2;{0,0181818181818182:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!};Каталог!$A$2:$A$11)
- =ПРОСМОТР(2;
1;
{«FM2-3320″:»CV455689″:»Q5949X»:»CE321A»:»CE322A»:»CE323A»:»00064073″:»CX292708″:»CX292709″:»CX292710″}) - =»FM2-3320″
Теперь немного облагородим функцию и сделаем еще пару реализаций
Реализация 1:
Вместо артикулов и #Н/Д(#N/A) выведем для найденных позиций «Есть», а для отсутствующих «Не найден в каталоге»:
=ЕСЛИ(ЕНД(ПРОСМОТР(2;1/ПОИСК(Каталог!$A$2:$A$11;A2)));»Не найден в каталоге»;»Есть»)
=IF(ISNA(LOOKUP(2,1/SEARCH(Каталог!$A$2:$A$11,A2))),»Не найден в каталоге»,»Есть»)
работа функции проста — с ПРОСМОТР(LOOKUP) разобрались, поэтому остались только ЕНД и ЕСЛИ.
ЕНД(ISNA) проверяет вложенное в неё выражение на предмет ошибки #Н/Д(#N/A). Если ошибка есть — ЕНД возвращает ИСТИНА(TRUE), а если ошибки нет — ЛОЖЬ(FALSE).
ЕСЛИ(IF) проверяет выражение из первого аргумента на выполнение. Если выражение выполняется(т.е. оно равно ИСТИНА(TRUE)), то функция запишет значение из второго аргумента(«Не найден в каталоге»). А если не выполняется(ЛОЖЬ(FALSE)) — то значение из третьего(«Есть»).
Т.е. все вместе получается: если наша основная функция возвращает значение ошибки #Н/Д(#N/A), то мы записываем в ячейку «Не найден в каталоге», в противном случае — «Есть».
Реализация 2:
Вместо #Н/Д выведем «Не найден в каталоге», но при этом если артикулы найдены — выведем названия этих артикулов:
=ЕСЛИОШИБКА(ПРОСМОТР(2;1/ПОИСК(Каталог!$A$2:$A$11;A2);Каталог!$A$2:$A$11);»Нет в каталоге»)
=IFERROR(LOOKUP(2,1/SEARCH(Каталог!$A$2:$A$11,A2),Каталог!$A$2:$A$11),»Нет в каталоге»)
Про функция ЕСЛИОШИБКА(IFERROR) я подробно рассказывал в этой статье: Как в ячейке с формулой вместо ошибки показать 0.
Если вкратце, то функция проверяет выражение, записанное первым аргументом(наша основная функция). Если в итоге получаем любую ошибку, то ЕСЛИОШИБКА запишет значение из второго аргумента(в нашем случае это текст «Не найден в каталоге»). Если же выражение(проверяемая функция) не возвращает ошибку, то функция ЕСЛИОШИБКА запишет именно то значение, которое было получено проверяемой функцией(в нашем случае это будет наименование артикула).
Реализация 3
Надо не просто определить какому артикулу соответствует, но и вывести цену для наименования по этому артикулу(сами цены должны быть расположены в столбце B листа Каталог):
=ЕСЛИОШИБКА(ПРОСМОТР(2;1/ПОИСК(Каталог!$A$2:$A$11;A2);Каталог!$B$2:$B$11);»»)
=IFERROR(LOOKUP(2,1/SEARCH(Каталог!$A$2:$A$11,A2),Каталог!$B$2:$B$11),»»)
Пара важных замечаний:
- данные на листе с артикулами не должны содержать пустых ячеек. Иначе с большой долей вероятности формула будет возвращать значение именно пустой ячейки, а не то, которое подходит под условия поиска
- формула осуществляет поиск таким образом, что ищется любое совпадение. Например, в качестве артикула записана цифра 1, а в строке наименований может встречаться помимо целой 1 еще и 123, 651123, FG1412NM и т.п. Для всех этих наименований может быть подобран артикул 1, т.к. он содержится в каждом наименовании. Как правило это может произойти, если артикул 1 расположен в конце списка
Поэтому желательно перед использованием формулы отсортировать список по возрастанию(от меньшего к большему, от А до Я).
В приложенном в начале статьи примере вы найдете все разобранные варианты.
Если же вам понадобится выводить все наименования, то можно воспользоваться функцией СОДЕРЖИТ_ОДНО_ИЗ из моей надстройки MulTEx.
Так же см.:
Сравнение текста по части предложения
Что такое формула массива
Как найти значение в другой таблице или сила ВПР
ВПР с поиском по нескольким листам
Статья помогла? Поделись ссылкой с друзьями!
Видеоуроки
Поиск по меткам
Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика