Довольно часто необходимо подсчитать количество уникальных ячеек в диапазоне. В Excel довольно большое количество способов решить эту задачу (от удаления дубликатов, до создания сводной таблицы). Однако в Excel отсутствует возможность решить эту задачу формулой. Я устранил этот недочет и добавил ее в надстройку VBA-Excel.
После установки надстройки, в Excel появится новая функция:
=СЧЁТУНИК(ДИАПАЗОН, [ТолькоВидимые])
Она имеет два аргумента:
К примеру, вам поставлена задача определить количество уникальный продуктов питания в списке данных. К вашему огорчению список состоит не из одного столбца (или строки) и сходу применить команду "Удалить дубликаты" не получается. В этом случае самое быстрое решение - использование функции =СЧЁТУНИК.
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