Макрос для подстановка искомого текста из одной ячейки в другую по столбцу

[tonpok666]

Помогите пожалуйста абсолютному чайнику сделать макрос.
Есть задача во вложенном примере построчно последовательно находить тектст "отсев" в столбце B и если искомый текст содержиться в ячейке, то заменять текущее значение соотвтетсвующей ячейки в столбце А на "Отсев опилок", а если не содержиться, то оставлять значение в ячейке столбца А без изменений.

[IgorGO]

без макросов:
отмечаете столбец В,
Ctrl+H;
поле найти: отсев
поле заменить: Отсев опилок
жмете кнопку "заменить все"

удачи!

[tonpok666]

Все не так просто. Замену нужно сделать не в столбце B, а в столбце A.

[Hugo121]

Тупо в лоб, зато просто и понятно:

Option Compare Text

Sub tt()
    Dim cc As Range
    Application.ScreenUpdating = False
    For Each cc In ActiveSheet.UsedRange.Columns(2).Cells
        If cc.Value Like "*отсев*" Then cc.Offset(, -1).Value = "Отсев опилок"
    Next
    Application.ScreenUpdating = True
End Sub

На миллион строк конечно нужно делать иначе, ибо будет тормозить...

[tonpok666]

Все отлично работает, спасибо большое. В принципе, даже с достаточно большим количеством строк вполне нормально.