Страницы: 1
RSS
Действие макроса на все ячейки в столбце
 
Всем здравствуйте, подскажите, как сделать так, чтобы макрос шёл по всему столбцу А, до последней заполненной строки?

Код
    If [B1] Like "*картофель*" Then
    [A1] = "картофель"
    [B1].Replace What:="картофель", Replacement:=""
    Else
    [A1] = "нет"
    End If
 
Kislota,
Цитата
Kislota написал:
по всему столбцу А, до последней заполненной строки
Код
Sub ddd()
Dim cell As Range, rng As Range
Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
For Each cell In rng
    If cell Like "*картофель*" Then
    cell = "картофель"
    cell.Offset(0, 1).Replace What:="картофель", Replacement:=""
    Else
    cell = "нет"
    End If
Next cell
End Sub
 
Не бойтесь совершенства. Вам его не достичь.
 
только чуть поправить:
Цитата
Mershik написал:
If cell Like "*картофель*" Then
Код
If cell.offset(0,1) Like "*картофель*" Then
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Цитата
как сделать Действие макроса на все ячейки в столбце
Код
Sub iReplace()
   Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row).Replace What:="картофель", Replacement:=""
End Sub
Изменено: Kuzmich - 14.11.2020 14:17:13
 
Спасибо огромное за ответы!
Страницы: 1
Наверх