Добрый день всем !
В таблице часть строк закрашена цветом. В столбце нужно выделить несмежный диапазон незакрашенных ячеек.
Так сделал - не получается
Пример во вложении
				В таблице часть строк закрашена цветом. В столбце нужно выделить несмежный диапазон незакрашенных ячеек.
Так сделал - не получается
| Код | 
|---|
With Worksheets("Лист1")
Dim lLastRow As Long, i As Long
lLastRow = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 6 To lLastRow
If .Cells(i, 2).Interior.Color <> RGB(255, 230, 153) Then
.Cells(i, 2).Select
End If
Next i
End With
End Sub
 | 
Пример во вложении