Добрый день. Имеется таблица, в 1 столбце которой написано "удалить" и "добавить". Нужно, чтобы макрос удалял строки, в которых последнее слово "добавить" или его производные вроде "доб" или "добав" и т.д. Написал небольшой макрос, но он не распознает слэш "/" и поэтому работает неправильно. Помогите, пожалуйста написать макрос правильно.
Код |
---|
Sub mal_da_udal()
Dim lr As Long
lr = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
For a = lr To 2 Step -1
If Cells(a, 1) Like "*доб*" Then
If Not Cells(a, 1) Like "*доб*/" Then
Rows(a).Delete
End If
End If
Next
End Sub |