цветной текст (от новичка)

[skvor83]

Доброго времени.
Задача такова - есть столбец данных, текст(не ячейка) данных подкрашен черным и красным. Нужно выбрать все черные и вывести среднее арифм.
Подскажите как это сделать?
Заранее благодарю за помошь.

[Dophin]

Sub pp()
Dim rrange As Range, i As Integer, j As Integer, u As Integer
Set rrange = ActiveSheet.Range("a1:a17")
For i = rrange(1, 1).Row To rrange.Count
If rrange(i, 1).Font.Color = 0 Then
j = j + 1
u = u + rrange(i)
End If
Next i
MsgBox u / i
End Sub

"a1:a17" - задайте диапазон своего столбца