Как найти текст и заполнить значение до следующей ячейки в макросе?

Question

У меня есть список длинных данных с длинным текстом. Я хочу идентифицировать текст, найдя слово (в столбце A) и заполнить следующую ячейку его значением, если оно совпадает (столбец B). Я знаю, что могу достичь этого с помощью формулы, но слишком много условий. Это замедляет работу таблицы. Как этого добиться с помощью макроса? Например:

Column A        |  Column B
---------------- -------------
this is apple   |  apple

this is grape   |  grape

this is banana  |  banana

etc.....

Answer 1

Dim LookFor As String
'This will be a placeholder for the word you want to search for

LookFor = "apple"

On Error Resume Next  
   'in case we could not find the word, we need to continue

Range("A:A").Find(LookFor).Select

If Err = 0 Then
    'if there are no errors, that means we found the word

    Activecell.Offset(0, 1).Value = LookFor
    ' put the same word on the next column, same row
Else
    'there was an error, meaning: the word was not found
    MsgBox "Could not find " & LookFor
End If

'we need to cancel our error detection strategy so that 
' new errors will be reported to the user, otherwise, strange things 
' might happen later
On Error Goto 0