Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Найти в колонках слово из массива и обозначить его
 
#1
21.04.2016 00:50:25
Есть 2 колонки с текстом - B и С
На второй вкладке есть список слов, которые нужно найти в колонках B и С.
В результате нужно заполнить колонку А найдеными словами по каждой строке.

т.е. если в ячейках B2,C2 найдено слово "слово", то в A2 внести "слово". Если найдено два и более слов из массива (вкладки), то эти слова указать через запятую.

о как.
Пример во вложении
 
 
 
#2
21.04.2016 01:05:28
Это что,  - задание нам?
Как срочно мы его должны выполнить?
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
21.04.2016 09:10:34
Прошу прощения, но в час ночи глаза уже на лоб лезли в поисках решения.
Нашел решение поиска одного слова в в ячейках, но не нашел поиск нескольких слов в ячейках.
Подскажите, как реализовать?
 
 
 
#4
21.04.2016 09:13:27
В файле покажите несколько ячеек в столбце A заполненных вручную, для примера  
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
21.04.2016 09:28:43
Добавил. На листе "Text" в ячейке A2 и А55 добавил 2 найденных слова.
В ячейке А58 найдено уже 2 слова.
Есть формула СЧЕТЕСЛИ которая найдет кол-во слов в колонках, но это не то...
 
 
 
#6
21.04.2016 09:37:38
Нужно писать или макрос, или UDF - что думаю практичней, но тоже макрос.
 
 
 
#7
21.04.2016 09:42:00
Что-то логика не понятна. Почему в A3 пусто? В ячейке C3 ведь тоже есть concert? И далее в том же духе
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
21.04.2016 09:44:22
Цитата
Sanja написал:
Что-то логика не понятна. Почему в A3 пусто? В ячейке C3 ведь тоже есть concert? И далее в том же духе
Вы правы. Просто я ручками заполнил для примера то, что нужно получить в итоге.
слово concert также должно быть найдено в ячейках A3:A8.
 
 
 
#9
21.04.2016 09:54:13
Цитата
Hugo написал: или UDF - что думаю практичней, но тоже макрос.
Код
Function СЛОВА(rng1 As Range, cl As Range) As String
СЛОВА = Empty
    arrWords = rng1.Value
    For I = LBound(arrWords) To UBound(arrWords)
        If cl Like "*" & arrWords(I, 1) & "*" Then
            If СЛОВА = Empty Then
                СЛОВА = arrWords(I, 1)
            Else
                СЛОВА = СЛОВА & ", " & arrWords(I, 1)
            End If
        End If
    Next
End Function
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
21.04.2016 09:59:04
все оказалось просто:)
еще вопрос - как обойти регистр? ищет только слово с учетом регистра (я про формулу)
Изменено: Aleksandr.84 - 21.04.2016 09:59:24
 
 
 
#11
21.04.2016 10:07:32
До кода функции добавьте строку
Код
Option Compare Text
Изменено: Sanja - 21.04.2016 10:07:58
Согласие есть продукт при полном непротивлении сторон
 
 
 
#12
21.04.2016 10:07:56
Я бы предложил искать слова целиком, а не в составе других слов. Т.е. добавить ещё в процесс по концам пробелы.
 
 
 
#13
21.04.2016 10:10:51
Цитата
Hugo написал: добавить ещё в процесс по концам пробелы
Тогда concert, не найдет
Согласие есть продукт при полном непротивлении сторон
 
 
 
#14
21.04.2016 10:21:36
Коллеги, спасибо!
 
 
 
#15
21.04.2016 10:33:53
Sanja, браво!  :idea:  )) В коллекцию...  ;)
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#16
21.04.2016 10:34:50
Цитата
Sanja написал:
Тогда concert, не найдет
Ну запятые и точки можно убить... Но это вопрос к заказчику - когда ищете "Gym", каких результатов ожидаете?
 
 
 
#17
21.04.2016 10:36:06
Цитата
Jack_Famous написал: браво!
Это много  :), там ничего сложного нет  
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Читают тему
Наверх