Поиск строки в столбце Excel и соответствующая ячейка перемещены в другой столбец

Question

Ищу помощь. У меня есть данные в столбце A в Excel (2010) и строка поиска в столбце B. Если ячейка в столбце A ограничивает строку поиска столбца B, то необходимо переместить (или скопировать) соответствующее содержимое ячейки в столбце A в столбец C. Спасибо

Столбец А
bacd@hotmail.com
abc@excel.com
people@superuser.com

Колонка B - Строка поиска
превосходить
суперпользователя

Столбец C (ожидается как)
abc@excel.com
people@superuser.com

Answer 1

Я думаю, что было бы проще всего использовать VBA instr

В общем, это должно сработать -

Sub Lokam()
Dim a As Range
Dim b As Range
For Each a In Range("A:A")
    If a = "" Then Exit Sub
    For Each b In Range("B:B")
        If b = "" Then GoTo yay:
            If InStr(a, b) > 0 Then
                a.Offset(, 2) = a
            End If

    Next
yay:
Next
End Sub