Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

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

Автор mix, 21.12.2013, 02:18

« назад - далее »

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

Топчем кнопку в файле.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

mix


mix

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

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

kuklp

Жмите кнопку и диапазоны пересчитаются.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

mix