Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск ЛЮБОГО Слова в тексте из списка слов в справочнике
 
#1
03.09.2015 13:49:04
Нужно найти и вывести в любую ячейку, слово или словосочетание из какого либо текста на основе списка слов в каком либо столбике. В прикрепленном файле пример с описанием.
Спасибо громадное!
 
 
 
#2
03.09.2015 14:13:29
UDF. Аргументы: cl - ячейка, в которой ищем слово/словосочетание, rng - диапазон искомых слов/словосочетаний. Если найдено несколько слов/словосочетаний, они сцепляются в целевую ячейку через запятую
Код
Function LikeCell(cl As Range, rng As Range) As String
    For Each clr In rng.Cells
        If cl Like "*" & clr & "*" Then
            If rez = Empty Then
                rez = clr
            Else
                rez = rez & ", " & clr
            End If
        End If
    Next
LikeCell = rez
End Function
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
03.09.2015 14:16:26
Боюсь, что Like тут не подойдёт: искомое газ, а диапазоне, например, маГАЗин.
 
 
 
#4
03.09.2015 14:20:34
Согласен, но с чего-то нужно начать  :)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
03.09.2015 14:22:41
Формула массива:
=ИНДЕКС($E$2:$E$42;НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(ПОИСК($E$2:$E$42;$B$6));СТРОКА($E$2:$E$42)-1);СТРОКА(A1)))
 
 
 
#6
03.09.2015 14:23:08
Вижу такой вариант: цикл по столбцу В (или массиву), вложенный цикл по строке - перебираем слова, и CountIf (или Find) в диапазоне.
 
 
 
#7
03.09.2015 14:34:54
Тут проблема возникнет при поиске СЛОВОСОЧЕТАНИЯ, но может кому пригодиться
Код
Function LikeCell(cl As Range, rng As Range) As String
    For Each clr In rng.Cells
        For I = 0 To UBound(Split(cl, " "))
            If Split(cl, " ")(I) = clr Then
                If rez = Empty Then
                    rez = clr
                Else
                    rez = rez & ", " & clr
                End If
            End If
        Next
    Next
LikeCell = rez
End Function
Изменено: Sanja - 03.09.2015 14:36:48
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
03.09.2015 16:19:36
vikttur Спасибо!  
 
 
 
#9
03.09.2015 17:34:33
Если уж через Like, то имеет смысл для каждого слова-образца добавлять пробелы слева и справа и так же пробелы добавлять к сравниваемому тексту. Тогда будут находится только целые слова/словосочетания.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
Страницы: 1
Читают тему
Наверх