Всем здравствуйте, подскажите, как сделать так, чтобы макрос шёл по всему столбцу А, до последней заполненной строки?
Код |
---|
If [B1] Like "*картофель*" Then [A1] = "картофель" [B1].Replace What:="картофель", Replacement:="" Else [A1] = "нет" End If |