Проверка значений в столбце на наличие определенного текста (3 варианта) - VBA

Формулировка задачи:

Добрый день! vba изучаю недавно, автоматизирую сложный процесс и встал вопрос по одной части кода, времени изучать всю литературу нет, очень надеюсь на помощь Необходимо проверить значения в столбце J начиная с 20й строки и вплоть до первой пустой (всегда разное количество строк в столбце будет). в непустых ячейках будет содержаться текст, три варианта "Уровень обособленный", "Уровень специальный", "уровень эскалации". далее так, если во всем столбце встречается только какой-то один вариант текста то запуск макроса 1, если встречаются и "Уровень обособленный" и "Уровень специальный" то макрос 2 если встречаются и "Уровень обособленный" и "Уровень эскалации" то макрос 3.

Код к задаче: «Проверка значений в столбце на наличие определенного текста (3 варианта) - VBA»

textual
Sub pr()
    Dim x As Range
    For Each x In Range("A1:A7")
        If Len(x) - Len(Replace(LCase(x), "уровень", "")) = 7 Then
            'Call Macros1
            x.Offset(, 1) = "Macros1" 'для наглядности
        Else
            If x Like "*обособ*спец*" Then x.Offset(, 1) = "Macros2" 'Call Macros2
            If x Like "*обособ*эска*" Then x.Offset(, 1) = "Macros3" 'Call Macros3
        End If
    Next
End Sub

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ