Добрый день всем !
В таблице часть строк закрашена цветом. В столбце нужно выделить несмежный диапазон незакрашенных ячеек.
Так сделал - не получается
Пример во вложении
В таблице часть строк закрашена цветом. В столбце нужно выделить несмежный диапазон незакрашенных ячеек.
Так сделал - не получается
Код |
---|
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 |
Пример во вложении