посчитать заливки

[Gly]

Ячейки в таблице 10 на10 залиты 6-ю цветами.
Помогите пожалуйста посчитать количество ячеек каждого цвета

[SAS888]

Предлагаю такой вариант:
Так как цвета неизвестны, создаем массив из 256 элементов (по количеству возможных цветов). Выделяем нужный диапазон и запускаем макрос. В результате его выполнения, массив будет заполнен следующим образом: указатель - это индекс цвета (например, красный - 3-й), а значение этого элемента - количество ячеек из нашего диапазона с этим индексом.

Sub CountColor()

    Dim a(255) As Integer, i As Integer, Cell As Object
    
    For Each Cell In Selection
        i = IIf(Cell.Interior.ColorIndex <= 0, 0, Cell.Interior.ColorIndex)
        a(i) = a(i) + 1
    Next
   
End Sub