В тази статия ще създадем персонализирана функция за преброяване на уникалните стойности в определения диапазон.
Суровите данни за този пример се състоят от случайни числа в редовете. В този пример искаме да преброим броя уникални числа във всеки ред.
Създадохме персонализирана функция „CountUniqueValues“, за да намерим броя уникални числа в реда. Тази функция приема диапазон като вход и връща уникалния брой числа.
Логично обяснение
Създадохме персонализирана функция „CountUniqueValues“, за да получим броя на уникалните числа. В тази персонализирана функция създадохме обект на обекта за събиране. Този обект за събиране се използва за създаване на списък с уникални номера. След като имаме списъка с уникални номера, получаваме броя на елементите в колекцията.
Обяснение на кода
Application.Volatile се използва, защото ще преизчислява всеки път, когато се промени стойност на клетка в работната книга.
On Error Resume Next се използва за обработка на грешки.
Моля, следвайте кода по -долу
Опция Изрична функция CountUniqueValues (InputRange As Range) As Integer Dim CellValue As Variant, UniqueValues As New Collection Application. , CStr (CellValue) „добавете уникалния елемент Напред“ Връща броя на уникалните стойности CountUniqueValues = UniqueValues.Count End Функция
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта