Окрашивает ячейки если они содержат нужный текст
Sub Маркер()
tc = ActiveCell.Column
zvet = ActiveCell.Interior.ColorIndex
trig = ActiveCell.Value
If trig = Empty Then GoTo fin
i = 0
hole = 0 'счётчик пустых строк
konstr: 'новая строка
i = i + 1
j = 0
molny: ' следующая ячейка справа
soder = Cells(i, tc + j).Value
If soder = Empty Then GoTo pusto
nepust = 0
onoli = InStr(1, soder, trig, 1)
If onoli > 0 Then Cells(i, tc + j).Interior.ColorIndex = zvet
GoTo zaver
pusto:
nepust = nepust + 1 'счётчик пустых ячеек подряд
zaver:
j = j + 1
If nepust < 5 Then GoTo molny
hole = hole + 1
If j > nepust Then hole = 0
If hole > 5 Then GoTo fin
GoTo konstr
fin:
EndSub.