Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Найти ячейки, где часть значения точно совпадает с искомым
 
#1
31.07.2021 15:56:20
Доброго дня знатокам. Подскажите каким образом решить следующее:
имеется столбец со значениями  
аб-в1-5-1
аб-в1-5-2
аг-т2-2-3
аб-в1-50-4
аб-в2-5-1
бв-д13-23-4
и т.п.

при поиске в столбце значения аб-в1-5, в результатах поиска должно быть аб-в1-5-1, аб-в1-5-2, значение аб-в1-50-4 в результат попасть не должно.
методом Range.Find и через If...Like... что то не получается у меня достичь желаемого.
 
 
 
#2
31.07.2021 16:23:17
Цитата
Santiago написал:
методом Range.Find и через If...Like...
так задача какая - макрос написать? функцию? при поиске возможно, что искомое аб-в1-5 и в ячейке аб-в1-5 - или там всегда есть последующие символы?
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#3
31.07.2021 16:31:05
Задача конечно макрос, но и подсказке буду рад. А если будет пример, вообще супер.
Всегда есть последующие символы.  
 
 
 
#4
31.07.2021 17:42:53
Цитата
Santiago написал:
Всегда есть последующие символы
Тогда второе условие можно и убрать
Формулой
Код
=ИНДЕКС(A:A;АГРЕГАТ(15;6;СТРОКА($A$1:$A$10)/(ЕЧИСЛО(ПОИСК($E$1&"-";$A$1:$A$10))+ЕЧИСЛО(ПОИСК($E$1&" ";$A$1:$A$10&" ")));СТРОКА(A1)))
НА МЯСО В ПРОФИЛЕ
 
 
 
#5
31.07.2021 17:57:02
del
Изменено: buchlotnik - 21.08.2021 18:24:44
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#6
31.07.2021 18:01:58
Цитата
Найти ячейки, где часть значения точно совпадает с искомым
Почему тогда в результат поиска не вошли ячейки с
аб-в1-50-1
аб-в1-54-1
 
 
 
#7
31.07.2021 18:13:37
потому что аб-в1-5-*** не  тоже самое что аб-в1-50-***
согласен что название темы кривовато
Изменено: vikttur - 01.08.2021 00:16:42
 
 
 
#8
31.07.2021 18:18:14
UDF
Код
Function iArticul(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "аб-в1-5[^\d].+"
   If .test(cell) Then
     iArticul = .Execute(cell)(0)
   Else
     iArticul = ""
   End If
 End With
End Function
 
 
 
#9
31.07.2021 18:35:58
это вместо функции в файле от buchlotnik?
Изменено: vikttur - 31.07.2021 23:37:23
 
 
 
#10
31.07.2021 18:40:44
Цитата
Santiago написал:
это вместо
это альтернатива; в теории у меня шустрее
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#11
31.07.2021 23:39:22
Santiago, подозреваю, что фонари под глазами  Вашей аватарке поставили на другом форуме за бездумное нажатие на кнопку цитирования :)
 
 
 
#12
02.08.2021 18:52:26
Всем спасибо за помощь и примеры.
 
 
 
#13
02.08.2021 19:07:27
Код
=ЕСЛИОШИБКА(ИНДЕКС(A1:A9;ПОИСК(E1&"-*";A1:A9));"")
 
 
 
Страницы: 1
Наверх