Поиск слов в ячейке базой, из других ячеек

[Казанский]

Так - теперь таблица не обязана начинаться с первой строки, могут быть пустые строки сверху

Sub Ro()
  With Worksheets(2).UsedRange.Columns(1).Offset(, Worksheets(2).UsedRange.Columns.Count)
    .FormulaR1C1 = Replace(Replace( _
       "=IFERROR(LOOKUP(2,1/SEARCH('@'!R2C1:R#C1,RC2),'@'!R2C2:R#C2),"""")" _
      , "#", Worksheets(3).Cells(Rows.Count, 1).End(xlUp).Row) _
      , "@", Worksheets(3).Name)
    .Value = .Value
  End With
End Sub

[RockHammer]

Сообщение от Казанский

Так - теперь таблица не обязана начинаться с первой строки, могут быть пустые строки сверху

Sub Ro()
  With Worksheets(2).UsedRange.Columns(1).Offset(, Worksheets(2).UsedRange.Columns.Count)
    .FormulaR1C1 = Replace(Replace( _
       "=IFERROR(LOOKUP(2,1/SEARCH('@'!R2C1:R#C1,RC2),'@'!R2C2:R#C2),"""")" _
      , "#", Worksheets(3).Cells(Rows.Count, 1).End(xlUp).Row) _
      , "@", Worksheets(3).Name)
    .Value = .Value
  End With
End Sub

Теперь работает как надо, спасибо огромное