Нужен совет в решении текстовой задачи. Бьюсь над ней больше месяца

[ZlodeiDen]

Доброе время суток!
Нужен совет в решении задачи.
Есть файл с наименованием и значением (Х).
И есть файл с значением (Х). нужно как-то решить такую задачу.
Бьюсь над ней уже больше месяца всю голову сломал. Все известные мне решения не помогают так как значение (Х) может находиться в любом месте.
Пример сделал сам из того что пришло в голову.
Он очень похож на рабочий файл.


Зы. Буду благодарен за любую помощь.

[Hugo121]

Так это в текстовом файле или в Экселе?
Если в Экселе, то обычная

=ВПР("*" & I2 & "*";$B$2:$B$8;1;0)

Только с "ghu nti" не вытягивает, но это Вы вероятно ошиблись?

[MCH]

=ВПР("*"&ПОДСТАВИТЬ(I2;" ";"*")&"*";$B$2:$B$8;1;)

Если слова написаны через пробел, то ищет их в любом месте фразы, последовательность слов должна быть соблюдена.
Это на случай с "ghu nti"

[doober]

Это если с разных файлов,выбирать как диалог предлагает

Sub Mesac()
 Dim FileName, FileFilter As String, s As String, Sh As Worksheet, L As Long, DD1, DD2
    FileFilter = "Все файлы (*.*),*.*," & _
            "Файл с наименованием и значением   (*.xls*),*.xls*"
    FileName = Application.GetOpenFilename(FileFilter, 2, " ", "", False)
    If (FileName = False) Or Trim(FileName) = "" Then Exit Sub
    Set Sh = GetObject(FileName).Worksheets(1)
      L = Sh.Range("B65500").End(xlUp).Row
     DD1 = Sh.Range("B2:B" & L)
    Sh.Parent.Close (False)
        FileFilter = "Все файлы (*.*),*.*," & _
            "Файл с X  (*.xls*),*.xls*"
    FileName = Application.GetOpenFilename(FileFilter, 2, " ", "", False)
    If (FileName = False) Or Trim(FileName) = "" Then Exit Sub
       Set Sh = GetObject(FileName).Worksheets(1)
      L = Sh.Range("A65500").End(xlUp).Row
     DD2 = Sh.Range("A2:A" & L)
    Sh.Parent.Close (False)
    Set Sh = ActiveSheet
    Dim X As String
    For n = 1 To UBound(DD1)
    X = ""
    For m = 1 To UBound(DD2)
    If InStr(1, DD1(n, 1), DD2(m, 1), vbTextCompare) > 0 Then
    X = DD2(m, 1)
  Exit For
    End If
    Next
Sh.Cells(n, 1) = DD1(n, 1)
Sh.Cells(n, 2) = X
    Next
       
End Sub

[ZlodeiDen]

Спасибо ОГРОМНОЕ!!! всем
Я далеко не поф в ёкселе =(
Если вам не трудно можно объяснить как этим пользоваться в впр?
Я обычно пользуюсь впр так:
*
Искомое значение:Выбираю столбец со значениями
Таблица: Выдираю где искать
Номер столбца: Ставлю № который нужно
Интервальный просмотр: ложь
*
Такую формулу я пишу щас полностью в ручную. может можно как то её написать в "Аргументы функции"
Не понял от куда берутся ("*"и $

[19vitek]

Как вариант.

Sub perenoc()
i = 2
While Cells(i, 9) <> ""
  st = Cells(i, 9)
  k = 2
  While Cells(k, 2) <> ""
  st1 = Cells(k, 2)
     If UBound(Split(st1, st)) > 0 Then
       Cells(i, 7) = st1
     End If
    k = k + 1
  Wend
i = i + 1
Wend
End Sub