Есть excel файл и нужно сделать так чтобы там где надпись брэнда в ячейке фон выделялся синим цветом, он выделяется но только 7 клеток слева, а мне нужно чтобы выделось 10 клеток слева, снизу дан сам файл и макрос, который нужно немного подредактировать, я в них не разбираюсь, помогите пожалуйста.
Ниже представлен макрос, который мне писали на этом же форуме, правда это было давно, сайчас в файле стало больше только столбцов.
Sub Макрос() Dim i As Long, Brand As String For i = 11 To Range("B" & Rows.Count).End(xlUp).Row If Range("C" & i) = "" Then Range("G" & i) = "" Range("B" & i & ":H" & i).Interior.ColorIndex = 33 Brend = Range("B" & i) & " " Else Range("B" & i) = Replace(Range("B" & i), Brend, "") End If Next i End Sub
[/vba]
Здравствуйте
Есть excel файл и нужно сделать так чтобы там где надпись брэнда в ячейке фон выделялся синим цветом, он выделяется но только 7 клеток слева, а мне нужно чтобы выделось 10 клеток слева, снизу дан сам файл и макрос, который нужно немного подредактировать, я в них не разбираюсь, помогите пожалуйста.
Ниже представлен макрос, который мне писали на этом же форуме, правда это было давно, сайчас в файле стало больше только столбцов.
Sub Макрос() Dim i As Long, Brand As String For i = 11 To Range("B" & Rows.Count).End(xlUp).Row If Range("C" & i) = "" Then Range("G" & i) = "" Range("B" & i & ":H" & i).Interior.ColorIndex = 33 Brend = Range("B" & i) & " " Else Range("B" & i) = Replace(Range("B" & i), Brend, "") End If Next i End Sub