Имеется код
Sub kod()
For i = 2 To 10
If Cells(i, 6).Value > o Then
Cells(i, 1).Resize(1, 8).Interior.ColorIndex = 4
End If
Next i
End Sub
Помогите плиз с кодом,условие - выделять строку, если первые 3 цифры 407
в ячейки будет 20 цифр
Sub kod()
For i = 2 To 10
If Cells(i, 6).Value > o Then
Cells(i, 1).Resize(1, 8).Interior.ColorIndex = 4
End If
Next i
End Sub
Помогите плиз с кодом,условие - выделять строку, если первые 3 цифры 407
в ячейки будет 20 цифр