Логотип
Надстройка VBA-Excel
Огромное спасибо за надстройку! Все прекрасно работает, пользуюсь почти ежедневно!
Anna Barybina

Формула СЧЁТУНИК

Для подсчета уникальных значений обычно пользуются удалением дубликатов или сводными таблицами. Однако быстрее воспользоваться функцией из надстройки, которая посчитает количество уникальных ячеек выбранного диапазона.

 

Добавить в Excel!

Установите программу

*Этого функционала нет в стандартном Excel

 Скачали:  33 207 чел.

Описание проблемы

Довольно часто необходимо подсчитать количество уникальных ячеек в диапазоне. В Excel довольно большое количество способов решить эту задачу (от удаления дубликатов, до создания сводной таблицы). Однако в Excel отсутствует возможность решить эту задачу формулой. Я устранил этот недочет и добавил ее в надстройку VBA-Excel.

Описание функции

Функция СЧЁТУНИК для подсчета уникальных значений

После установки надстройки, в Excel появится новая функция:

=СЧЁТУНИК(ДИАПАЗОН, [ТолькоВидимые])

Она имеет два аргумента:

  • ДИАПАЗОН ячеек, в котором необходимо произвести подсчет уникальных значений.
  • [ТолькоВидимые] - необязательный аргумент принимающий значения 0 или 1. Если необходимо НЕ учитывать скрытые ячейки, то в качестве значения нужно ввести 1, если же необходимо вести подсчет по всем ячейкам, в том числе и скрытым, укажите 0 или проигнорируйте данный аргумент.

Пример

К примеру, вам поставлена задача определить количество уникальный продуктов питания в списке данных. К вашему огорчению список состоит не из одного столбца (или строки) и сходу применить команду "Удалить дубликаты" не получается. В этом случае самое быстрое решение - использование функции =СЧЁТУНИК.

Код на VBA

Public Function СЧЁТУНИК(ДИАПАЗОН As Range) As Double
 
    Dim rCell As Range
    Dim Unique As New Collection
    On Error Resume Next
 
    For Each rCell In ДИАПАЗОН
        If Not IsEmpty(rCell) Then Unique.Add rCell.Value, CStr(rCell.Value)
    Next
 
    СЧЁТУНИК = Unique.Count
End Function

 

Установка

Обращаем Ваше внимание, что функционал, описанный в данной статье, ОТСУТСТВУЕТ в Excel.

Чтобы его добавить, необходимо установить надстройку VBA-Excel. Данная программа содержит более сотни функций, которые сделают работу с Excel в разы эффективней. С ней рутинные задачи будут занимать считанные секунды. Программой уже воспользовались 33 207 чел., попробуйте и Вы!


Установите программу

Ссылки по теме

  1. Как вывести список уникальных значений
  2. Удаление дубликатов в Excel
  3. Поиск повторяющихся значений

Комментарии:

comments powered by Disqus