Excel VBA Макросы. Как пройтись по всем ячейкам указанного диапазона, у которых заданный цвет?

Автор Посетитель, 17 февраля 2021, 14:46

Посетитель

Как пройтись по всем ячейкам выделенного диапазона, у которых белый цвет? Вернее, в ячейке отсутствует цвет.
Ячейки разбросаны в тетрисном порядке, бессистемно.

Администратор

Sub Макрос()
   
    Dim Ячейка As Range
   
    For Each Ячейка In Selection.Cells
        If Ячейка.Interior.Pattern = xlNone Then
            ' Действие с ячейкой.
        End If
    Next Ячейка
   
End Sub