Поиск текста со строкой в ​​нем

Question

Итак, я много читал о обратном vlookup и просматриваю текстовые строки в текстах в excel, но ... У меня есть:
Фирменное наименование | Модель | Гам

и на другой лист столбец:
Устройства

Что мне нужно, чтобы посмотреть значение из колонки «Device» в «Модели» и показать «Гам» это устройство рядом с ним ,
Проблемы:
1- ВПР или MATCH/INDEX не будет препятствовать мне искать диапазон или показать результат за пределы матрицы таблицы Я ищу в
2- В клетках «Device» (?) У меня есть бренд, номер модели, цвет, емкость устройства и т. Д., Все в одной и той же ячейке и ни в каком конкретном порядке, а «разделение путем делимитации» - месяц для организации; поэтому мне нужно посмотреть, соответствует ли какая-то часть этой ячейки какой-либо части ячейки «Модель» на другом листе.

Мои друзья говорят мне, это должно быть намного проще в SQL, но так как у меня есть опыт minnimal даже в УВА ...

Я даже не знаю, если это может быть сделано, но заранее спасибо в любом случае.

Answer 1

Создайте новый модуль и вставьте следующий User Defined Function (UDF) в модуль:

Function testFunc(myRange As Range, myVal As String) As String 

    Dim myCell As Range 

    For Each myCell In myRange 
     If InStr(1, myVal, myCell.Value, vbTextCompare) <> 0 Then 
      testFunc = myCell.Address 
      Exit Function 
     End If 
    Next myCell 

    testFunc = "NOT FOUND" 

End Function 

Затем в клетке рядом с вашими данными (в моем случае ячейки F3), говоря:

=testFunc($B$3:$B$6,E3) 

где вам нужно заменить «$ B $ 3: $ B $ 6» на столбец, содержащий номера моделей. Замените «E3» на ячейку, которая содержит информацию о вашем устройстве.

Затем в ячейке справа от этого поместите

=IF(F3="NOT FOUND", F3, OFFSET(INDIRECT(F3),0,1)) 

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

Это даст вам результат.

Это может быть не такой способ, но это сработает. Это не может быть BEST.

РЕДАКТИРОВАТЬ

Если они находятся на разных листах затем редактировать строку:

testFunc = myCell.Address 

к

testFunc = myCell.Worksheet.Name & "!" & myCell.Address 

ИЛИ

изменить формулу в ячейка до:

=IF(F3="NOT FOUND", F3, OFFSET(INDIRECT("SheetName!" & F3),0,1))