подсчёт уникальных ячеек по значению и в интервале

[mix]

Доброго всем времени суток!!!

Подскажите, пожалуйста, как сделать так, что бы количество, работающих в данный день недели людей, подсчитывалось автоматически???

Наглядно проблема продемонстрирована во вложении.

[kuklp]

Код Выделить Развернуть

Sub www()
    Dim a As Range, n&, l&
    l = [a:a].Find("д/н", [a1], xlValues, xlPart, , xlNext, True, , False).End(xlUp).Row
    n = l + 4
    For Each a In Range("a2:a" & l).SpecialCells(2).Areas
        n = n + 1
        Cells(n, 2).FormulaArray = _
        "=SUM(1/COUNTIF(" & a.Address & "," & a.Address & "))"
    Next
End Sub
Топчем кнопку в файле.

[mix]

Огромное спасибо!!!

[mix]

KuklP, еще раз спасибо!
Попробовал, все работает.

Но, столкнулся с такой проблемой:
У меня данные заносятся сразу за неделю, и соответственно количество строк на каждый день всегда разное. При этом диапазоны расчетов становятся не корректными (съезжают)...
Может есть формула для определения диапазона ячеек, допустим между пустыми ячейками, или между датами???
Я думаю, если диапазон будет высчитываться, а не указываться явно, то независимо от числа строк, значения будут оставаться актуальными...

[kuklp]

Жмите кнопку и диапазоны пересчитаются.

[mix]

Понял. Спасибо большое!!!