Excel число уникальных строк

Подсчет количества уникальных значений

Постановка задачи

Есть диапазон с данными, в котором некоторые значения повторяются больше одного раза:

Задача — подсчитать количество уникальных (неповторяющихся) значений в диапазоне. В приведенном выше примере, как легко заметить, на самом деле упоминаются всего четыре варианта.

Рассмотрим несколько способов ее решения.

Способ 1. Если нет пустых ячеек

Если вы уверены, что в исходном диапазоне данных нет пустых ячеек, то можно использовать короткую и элегантную формулу массива:

Не забудьте ввести ее как формулу массива, т.е. нажать после ввода формулы не Enter, а сочетание Ctrl+Shift+Enter.

Технически, эта формула пробегает по всем ячейкам массива и вычисляет для каждого элемента количество его вхождений в диапазон с помощью функции СЧЕТЕСЛИ (COUNTIF). Если представить это в виде дополнительного столбца, то выглядело бы оно так:

Потом вычисляются дроби 1/Число вхождений для каждого элемента и все они суммируются, что и даст нам количество уникальных элементов:

Способ 2. Если есть пустые ячейки

Если в диапазоне встречаются пустые ячейки, то придется немного усовершенствовать формулу, добавив проверку на пустые ячейки (иначе получим ошибку деления на 0 в дроби):

Вот и все дела.

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

• Как извлечь из диапазона уникальные элементы и удалить дубликаты
• Как подсветить дубликаты в списке цветом
• Как сравнить два диапазона на наличие в них дубликатов
• Извлечение уникальных записей из таблицы по заданному столбцу с помощью надстройки PLEX

Задачу подсчета уникальных строк можно свести к задаче подсчета уникальных значений в одностолбцовом списке.

В этой статье будем считать строки совпадающими, если соответствующие значения в столбцах

Группа товаров

и

Товар

совпадают (см.

файл примера

).

Строки 1, 2 и 3 считаются совпадающими. Также считаются совпадающими 4-5, еще одна пара 6 и 8, и, наконец 7 и 9.

Уникальными

(различающимися) строками считаются строки 1, 4, 6, 7 (именно такой результат выдает

Расширенный фильтр

с опцией

Только уникальные записи. См.

статью

Подсчет уникальных строк с помощью Расширенного фильтра

). Уникальные строки выделены с помощью

Условного форматирования

.

Для подсчета уникальных строк создадим служебный столбец

Е

, в пятую строку которого введем формулу

=B5&C5

и скопируем ее с помощью

Маркера заполнения

до конца таблицы. В результате получим столбец значений, по которому можно сделать сравнение строк. Строки будут одинаковыми, если соответствующие значения в столбце

Служебный

совпадают.

Из статьи

Подсчет уникальных ТЕКСТовых значений

возьмем формулу для подсчета:

=СУММПРОИЗВ((E5:E13<>»»)/СЧЁТЕСЛИ(E5:E13;E5:E13&»»))

СОВЕТ:

Предложенный способ определения уникальности строк имеет ограничение: если 2 поля являются числовыми, то вполне вероятна ситуация, когда значения в столбце

Служебный

совпадают, а строки на сам деле разные. Например, когда первая строка содержит 2 и 110, а вторая 21 и 10. Как выйти из этой ситуации рассказано в статье

Отбор уникальных СТРОК

.

Числовые значения

В диапазоне

= СУММ(—(ЧАСТОТА(данные; данные)>0))

Если вам нужно подсчитать уникальные числовые значения в диапазоне, вы можете использовать формулу, которая использует частотную функцию вместе с функцией СУММ.

Предположим, у вас есть список номеров сотрудников вместе с часами работы над проектом, и вы хотите знать, сколько сотрудники работали над этим проектом. Глядя на данные, вы можете увидеть одно и то же число сотрудников более одного раза, так что вы хотите подсчитать уникальные номера служащих, которые появляются в списке.

ID номера работников появляются в диапазоне B5: B14. Для того, чтобы получить количество уникальных номеров, вы можете использовать следующую формулу:

= СУММ(— (ЧАСТОТА(B5:B14; B5:B14) > 0))

Функция ЧАСТОТА возвращает массив значений, которые соответствуют интервалам. В этом случае мы сравниваем один и тот же набор чисел для массива данных и для массива интервалов.

Результатом является то, что ЧАСТОТА возвращает массив значений, которые представляют собой счетчик для каждого числового значения в массиве данных. Это работает, потому что ЧАСТОТА имеет специальную функцию, которая автоматически возвращает ноль для любых чисел, которые появляются более чем один раз в массиве данных, поэтому обратный массив выглядит следующим образом:

{3; 0; 0; 2; 0; 3; 0; 0; 2; 0; 0}

Далее, каждое из этих значений проверяется, чтобы было больше нуля. Результат выглядит следующим образом:

{ИСТИНА; ЛОЖЬ; ЛОЖЬ; ИСТИНА; ЛОЖЬ; ИСТИНА; ЛОЖЬ; ЛОЖЬ; ИСТИНА; ЛОЖЬ; ЛОЖЬ}

Теперь каждая ИСТИНА в списке представляет собой уникальный номер в списке, и нам просто нужно сложить Истинные значения с СУММ.

Однако СУММ не будет добавлять логические значения в массиве, так что мы должны сначала превратить значения в 1 или ноль. Это делается с помощью двойного минуса (двойной унарный). В результате массив только 1 или 0.

{1; 0; 0; 1; 0; 1; 0; 0; 1; 0; 0}

И, наконец, СУММ добавляет эти значения и рассчитывает общее число, которое в данном случае равно 4.

Примечание: вы можете также использовать СУММПРОИЗВ для сложения элементов в массиве.

Использование СЧЁТЕСЛИ вместо ЧАСТОТА для подсчета уникальных значений

Другой способ подсчета уникальных числовых значений состоит в использовании СЧЁТЕСЛИ вместо ЧАСТОТА. Это гораздо проще, но нужно учитывать, что с помощью СЧЁТЕСЛИ на больших наборах данных для подсчета уникальных значений может вызвать проблемы с производительностью. Формула на основе частотных полос, хотя и более сложная, вычисляет гораздо быстрее.

С критериями

{=СУММ(—(ЧАСТОТА(ЕСЛИ(criteria;значения);значения)>0))}

Если вам нужно подсчитать уникальные числовые значения в диапазоне с критериями, можно использовать формулу, основанную на СУММ и частотной функции, вместе с функцией применять критерии.

Например, предположим, у вас есть список номеров сотрудников, которые записывали часы в двух разных зданиях: здание А и здание Б. Вы хотите знать, сколько уникальных сотрудников регистрирует время в каждом здании. Так как одно и то же число сотрудников более одного раза в списке, то вам нужна формула, которая будет рассчитывать уникальные идентификаторы сотрудника в здании.

В показанном примере, формула в G4 является:

{= СУММ(— (ЧАСТОТА(ЕСЛИ(B5:B14 = «A»; C5:C14); C5:C14)> 0))}

Примечание: это формула массива и должна быть введена с помощью сочетания клавиш Ctrl+Shift+Enter

Функция ЧАСТОТА рассчитывает массив значений, которые соответствуют массиву_интервалов. В этом случае мы подставлем «отфильтрованный» набор идентификаторов для массива данных, а также полный набор идентификаторов для массива_интервалов. Фильтрация осуществляется с помощью функции ЕСЛИ:

ЕСЛИ (B5:B14 = «А»; С5:С14)

Которая в примере рассчитывает это:

{81400; 81405; 81405; 82364; 82364; ЛОЖЬ; ЛОЖЬ; ЛОЖЬ; ЛОЖЬ; ЛОЖЬ}

Обратите внимание на то, что все идентификаторы не в здании А были преобразованы в ЛОЖЬ. Далее, ЧАСТОТА рассчитывает массив значений, которые представляют собой счетчик для каждого числового значения в массиве данных. Это работает, потому что ЧАСТОТА имеет специальную функцию, которая автоматически возвращает ноль для любых чисел, которые появляются более чем один раз в массиве данных, поэтому обратный массив выглядит следующим образом:

{1; 2; 0; 2; 0; 0; 0; 0; 0; 0; 0}

Далее, каждое из этих значений проверяется, чтобы было больше нуля. Результат выглядит следующим образом:

{ИСТИНА; ИСТИНА; ЛОЖЬ; ИСТИНА; ЛОЖЬ; ЛОЖЬ; ЛОЖЬ; ЛОЖЬ; ЛОЖЬ; ЛОЖЬ; ЛОЖЬ}

Каждая ИСТИНА в списке представляет собой уникальный номер в списке, и нам просто нужно сложить Истинные значения с СУММ.

Однако СУММ не будет добавлять логические значения в массиве, так что мы должны сначала превратить значения в 1 или ноль. Это делается с помощью двойного минуса (двойной унарный). В результате массиве только 1 или 0.

{1; 1; 0; 1; 0; 0; 0; 0; 0; 0; 0}

И, наконец, СУММ добавляет эти значения и рассчитывает общее число, которое в данном случае составляет 3.

Текстовые значения

В диапазоне

=СУММПРОИЗВ(—(ЧАСТОТА(ПОИСКПОЗ (данные;данные;0); СТРОКА (данные)- СТРОКА (данные.первая ячейка)+1)>0))

Если вам нужно подсчитать уникальные текстовые значения в диапазоне, вы можете использовать формулу, которая использует несколько функций: ЧАСТОТА, ПОИСКПОЗ, СТРОКА и СУММПРОИЗВ.

Кроме того, можно использовать СЧЁТЕСЛИ, как описано ниже.

Предположим, у вас есть список имен сотрудников вместе с часами работы над проектом, и вы хотите знать, сколько сотрудники работали над этим проектом. Глядя на данные, вы можете увидеть, что имена повторяются, а вы хотите подсчитать уникальные имена.

Имена работников находятся в диапазоне B5:B14. Для того, чтобы получить количество уникальных имен, вы можете использовать следующую формулу:

{=СУММПРОИЗВ(— (ЧАСТОТА(ПОИСКПОЗ(B5:B14; B5:B14;0); СТРОКА(B5:B14) -СТРОКА(B5) +1)> 0))}

Эта формула является более сложной, чем аналогичная формула, которая использует ЧАСТОТА для подсчета уникальных числовых значений, поскольку ЧАСТОТА не работает с нечисловыми значениями. В результате, большая часть формулы просто преобразует нечисловые данные в числовые данные, которые может обрабатывать ЧАСТОТА.

Функция ПОИСКПОЗ используется, чтобы получить позицию каждого элемента, который появляется в данных. Поскольку ПОИСКПОЗ только рассчитывает позицию значения «Первое совпадение», которое появляется более чем один раз, в данных тот же диапазон.

Поскольку ПОИСКПОЗ принимает и массив значений для значения совпадений аргумента, она рассчитывает массив позиций. Они подаются к частотному в аргументе массива данных.

{1; 1; 1; 4; 4; 6; 6; 6; 9; 9}

Аргумент, хранимый в массиве строится из этой части формулы:

СТРОКА(B5:B14) -СТРОКА(B5) +1

который использует номер строки для каждого элемента данных и номер строки первого элемента данных для построения прямого последовательного массива:

{1; 2; 3; 4; 5; 6; 7; 8; 9; 10}

Функция ЧАСТОТА возвращает массив значений, которые соответствуют «хранимым». В этом случае мы подставляем массив, рассчитываемый ПОИСКПОЗ для массива данных, а также рассчитываемый массив построчного массива выше, как массив хранимых.

Результатом является то, что ЧАСТОТА рассчитывает массив значений, которые указывают на количество, которое появляется каждое значение в массиве данных. ЧАСТОТА имеет специальную функцию, которая автоматически рассчитывает ноль для любых чисел, которые появляются более чем один раз в массиве данных, поэтому результирующий массив выглядит следующим образом:

{3; 0; 0; 2; 0; 3; 0; 0; 2; 0; 0}

Далее, каждое из этих значений преобразуется в значение ИСТИНА или ЛОЖЬ, которые > 0, а затем в 1 или ноль с двойным отрицанием (двойной минус). Это делается потому что СУММПРОИЗВ нужны числовые значения, она не может работать непосредственно с текстом или логическими значениями.

Внутри функции СУММПРОИЗВ конечный массив выглядит следующим образом:

{1; 0; 0; 1; 0; 1; 0; 0; 1; 0; 0}

И, наконец, СУММПРОИЗВ просто добавляет эти значения и рассчитывает общее число, которое в данном случае равно 4.

Обработка пустых ячеек в диапазоне

Если какая-либо из ячеек в диапазоне пустая, и вы хотите использовать ЧАСТОТА вместо СЧЁТЕСЛИ, вам необходимо использовать более сложную формулу массива, которая включает в себя ЕСЛИ:

{= СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(данные <> «»;ПОИСКПОЗ(данные; данные; 0));СТРОКА(данные) -СТРОКА(данные.первая ячейка) +1); 1))}

Примечание: поскольку логическая проверка в операторе ЕСЛИ содержит массив, то формула автоматически становится формулой массива, которая требует Ctrl+Shift+Enter. Поэтому СУММПРОИЗВ был заменен СУММ.

Рассмотрим формулу изнутри, ЕСЛИ требуется, потому что ПОИСКПОЗ рассчитает # N / A, если значение совпадений содержит пустые значения. Тестируя для пустых значений с данными <> «», в том числе и ПОИСКПОЗ как значение, если оно истинно, то результирующий массив будет содержать номера в сочетании с ЛОЖЬ:

{1; 1; ЛОЖЬ; 4; 4; 6; 6; ЛОЖЬ; 9; 9}

которая подается ЧАСТОТА, что и массив данных. ЧАСТОТА будет рассчитывать массив вроде этого:

{2; 0; 0; 2; 0; 2; 0; 0; 2; 0; 0}

Элементы в этом массиве преобразуются либо в 1, или ЛОЖЬ с окончательным (внешним) ЕСЛИ заявлением. Результат выглядит следующим образом:

{1; ЛОЖЬ; ЛОЖЬ; 1; ЛОЖЬ; 1; ЛОЖЬ; ЛОЖЬ; 1; ЛОЖЬ; ЛОЖЬ}

СУММ затем складывает 1 и рассчитывает 4.

Эта формула из замечательной книги Майка Гивина по формулам массива.

Использование СЧЁТЕСЛИ вместо ЧАСТОТЫ для подсчета уникальных значений

Другой способ подсчета уникальных числовых значений состоит в использовании СЧЁТЕСЛИ вместо ЧАСТОТЫ. Эта формула гораздо проще, но нужно учитывать, что использование СЧЁТЕСЛИ на больших наборах данных для подсчета уникальных значений, может вызвать проблемы с производительностью. Формула на основе ЧАСТОТА, хоть и более сложная, но вычисляет гораздо быстрее.

С критериями

{=СУММ(—(ЧАСТОТА(ЕСЛИ(критерий;ПОИСКПОЗ(значение; значение;0));СТРОКА(значение)-СТРОКА(значение.первая ячейкаl)+1)>0))}

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

Предположим, у вас есть список имен сотрудников вместе с часами работы над проектом, и вы хотите знать, сколько сотрудники работали над этим проектом. Глядя на данные, вы можете увидеть, что имена повторяются, а вы хотите подсчитать уникальные имена.

В показанном примере формула в G5 является:

= {СУММ(—(ЧАСТОТА(ЕСЛИ(C5:C11 = G4;СТРОКА(B5:B11; B5:B11;0));СТРОКА(B5:B11) — СТРОКА(B5)+1) > 0))}

Эта формула использует ЧАСТОТА для подсчета уникальных числовых значений, которые получены с помощью функции ПОИСКПОЗ, которая сравнивает все значения против самих себя, чтобы определить позицию.

Функция ПОИСКПОЗ используется, чтобы получить позицию каждого элемента, который появляется в данных. Поскольку ПОИСКПОЗ рассчитывает только позиции значения «Первое совпадение», которые появляются более чем один раз, в данных рассчитывается то же число.

С помощью ЕСЛИ ПОИСКПОЗ рассчитывает только для строк, которые соответствуют критериям.

В конце концов, массив позиций, генерируемых ПОИСКПОЗ подаются к частотному в аргументе массива данных.

Аргумент, хранимый в массиве, строится из этой части формулы:

СТРОКА(B5:B11) -СТРОКА(B5) +1

который использует номер строки для каждого элемента данных и номер строки первого элемента данных для построения прямого, последовательного массива:

{1; 2; 3; 4; 5; 6; 7; 8; 9; 10}

Функция ЧАСТОТА рассчитывает массив значений, которые соответствуют «хранимым». В этом случае мы подставляем один и тот же набор чисел, как для массива данных и хранимых для массива.

Результатом является то, что ЧАСТОТА рассчитывает массив значений, которые указывают на количество, которое появляется каждое значение в массиве данных. Это работает, потому что ЧАСТОТА запрограммирована так, чтобы рассчитывать ноль для любых чисел, которые появляются более чем один раз в массиве данных.

Далее, каждое из этих значений преобразуется в значение ИСТИНА или ЛОЖЬ, которые > 0, а затем в 1 или ноль с двойным отрицанием (двойной минус). Это сделано, чтобы превратить все ненулевые значения в 1.

Наконец, СУММПРОИЗВ просто складывает эти значения и рассчитывает общее число.

Примечание: это формула массива и должна быть введена с помощью Ctrl + Shift + Enter.

Обработка пустых ячеек в диапазоне

Если какая-либо из ячеек в диапазоне пустая, вам необходимо скорректировать формулу, добавив дополнительно ЕСЛИ для предотвращения пустых клеток, передающуюся в функцию ПОИСКПОЗ, которая сгенерирует сообщение об ошибке. Формула:

{= СУММ(— (ЧАСТОТА(ЕСЛИ(B5:B11 <> «»; ЕСЛИ(C5:C11 = G4; ПОИСКПОЗ(B5:B11; B5:B11;0))); СТРОКА(B5:B11) -СТРОКА(B5) +1)> 0))}

С двумя критериями

Если у вас есть два критерия, вы можете расширить логику формулы путем добавления другого вложенного ЕСЛИ:

= {СУММ(— (ЧАСТОТА(ЕСЛИ(c1; ЕСЛИ(c2; ПОИСКПОЗ (значения;значения;0))); СТРОКА (значения) — СТРОКА (значения.первая позиция) +1)> 0))}

Там, где c1 = критерий1, c2 = критерий2 и значения = диапазон значений.

Взято из замечательной книги Майка Гивина по формулам массива, Control-Shift-Enter.

В диапазоне с СЧЁТЕСЛИ

=СУММПРОИЗВ(1/СЧЁТЕСЛИ(данные;данные))

Если вам нужно подсчитать количество уникальных значений в диапазоне ячеек, вы можете использовать формулу, которая использует СЧЁТЕСЛИ и СУММПРОИЗВ.

СЧЁТЕСЛИ находится внутри диапазона данных и подсчитывает количество раз, которое появляется каждое отдельное значение данных. Результатом является массив чисел, который выглядит следующим образом:

{3; 3; 3; 2; 2; 3; 3; 3; 2; 2}.

После того, как СЧЁТЕСЛИ заканчивает, результаты используются в качестве делителя, 1 в качестве числителя. Значения, которые появляются в данных, после появляются в массиве как 1, но значения, которые появляются несколько раз будут отображаться как дробные значения, которые соответствуют множеству. (Т.е. значение, которое появляется в 5 раз, данные будут генерировать 5 элементов в массиве со значением 1/5 = 0,2).

Наконец, функция СУММПРОИЗВ суммирует все значения в массиве и рассчитывает результат.

Обработка пустых ячеек

Если данные могут содержать пустые ячейки, необходимо скорректировать формулу следующим образом:

=СУММПРОИЗВ(1/СЧЁТЕСЛИ(данные; данные&»»))

Данные &»» выражение предотвращает нули массива, созданного СЧЁТЕСЛИ, когда имеются пустые ячейки данных. Она делает это путем обеспечения того, что критерии для пустой ячейки «», а не ноль. Это важно, так как ноль в делителе выбросит #ДЕЛ/0. Так что эта версия формулы не будет выдавать ошибку, когда есть пустые ячейки, но она будет включать в себя пустые ячейки в счете. Если вы хотите исключить пустые ячейки в счете, используйте:

=СУММПРОИЗВ((данные <> «»)/СЧЁТЕСЛИ(данные;данные и «»))

Низкая производительность?

Это крутая и элегантная формула, но она вычисляет гораздо медленнее, чем формулы, которые используют ЧАСТОТА для подсчета уникальных значений. Для больших наборов данных, вы можете переключиться на формулу, основанную на частотную функцию.

Подсчет Уникальных ТЕКСТовых значений в MS EXCEL

​Смотрите также​Казанский​ TextCompare For Each​

​ Then USL(UBound(USL)) =​ по 44 строку,​ и не проще​Уникальные = D.Count​​ строкам A…:KN…. Количество​​ If Application.Evaluate(Replace(rngCond(I, 1),​НО возникли сомнения,​Start! = Timer​​ того что бы​​ случайных чисел в​Если пустые не​Dim iCell As​ на самом деле​ одним и двумя​

Задача

​Произведем подсчет уникальных текстовых​, ваш метод я​ x In w​​ Dia(i, 1) ReDim​​ будет быстрее:​ , но быстрее​End Function​

​ строк в оригинале​

​ «,», «.») &​

​ а С ЛЮБЫМИ​On Error Resume​ пересчёт отключить надо​ диапазоне 1…200 000.​ считаем за уникальные​ Range​ упоминаются всего четыре​

​ условиями.​ значений в диапазоне​ обязательно завтра испробую.​ i = i​

​ Preserve USL(1 To​

​For Each IC​ точно).​djon2012​

​ 1000, значения по​​ Conditions(J + 1))​ ЛИ ТИПАМИ ДАННЫХ​ Next​ лесть в настройки,​

​Guest​Alex_ST​Set Диапазон =​ варианта.​Про подсчет уникальных текстовых​ ячеек.​А так написал​ + 1 If​ UBound(USL) + 1)​

​ In Диапазон_условия icv​Написал функцию для​

​: Michael_S спасибо за​ строкам A…:KN…. постоянно​ Then arrFlag(Int(J /​ это будет корректно​MyArray = [a1:a12000]​ а это мало​: да, коллекции медленнее​: Михаил,​ Intersect(Диапазон.Parent.UsedRange, Диапазон)​Рассмотрим несколько способов ее​ и числовых значений​Сначала поясним, что значит​ тупо макрос, выводящий​ Not IsObject(.Item(x)) Then​ End If End​ = IC.Value If​ этой задачи, но​

​ ваш вариант, обязательно​ изменяются. Мой вопрос:​ 2)) = True​ работать? Ведь об​​For Each a​​ кто делает (я​ чем массив, но​так может быть​On Error Resume​ решения.​ (без условий) можно​

​ подсчет уникальных значений.​​ массив профессий и​ Set .Item(x) =​ If End If​ LCase(icv) = LCase(Условие)​ 6000 строк она​

​ попробую и отпишусь!​​ существует ли более​ Else If rngCond(I,​ ошибке работы макроса​ In MyArray​ вообще ещё не​ скорость выявления уникальности​

excel2.ru

Подсчет Уникальных значений с условиями в MS EXCEL

​ и будет работать​ Next​Если вы уверены, что в​

​ прочитать в статье Подсчет​ Пусть имеется массив​ численность рядом с​ New Collection .Item(x).Add​ Next ReDim Preserve​ Then For Each​ глотает 30 секунд​djon2012​ быстрый способ формулами​ 1) Like Conditions(J​ никак не узнаешь,​

Задача1

​Col.Add a, CStr(a)​ встречал таких сотрудников​ ключей очень высока​

​ (честно говоря, даже​With New Collection​ исходном диапазоне данных​ Уникальных ТЕКСТовых значений​ текстовых значений {«а»,»b»,​ ними.​ 0, q(i, 1)​ USL(1 To UBound(USL)​

​ RC In Диапазон.Rows(IC.row).Cells​ ..=(​: Michael_S ваш вариант​ или макросом произвести​ + 1) Then​

​ т.к. включен обработчик​​Next a​​ кто знает как​ (подразумеваю, что ключи​ не проверял), но​For Each iCell​ нет пустых ячеек,​

Задача2

​ в MS EXCEL и Подсчет​»а»,»а»,»а»​Самый последнейший вопрос:​

​ Next ReDim w(1​

​ — 1) Select​ rcv = RC.Value​Public Enum MTD​ очень удобный, я​ эти вычисления?​ arrFlag(Int(J / 2))​ ошибок​

​’Если работа с​ это делается). А​ там хранятся упорядоченно)​ в вашем примере​ In Диапазон​ то можно использовать​ Уникальных ЧИСЛОвых значений​}. При подсчете уникальных​Почему функция​

Задача3

​ To Условие.Count, 1​ Case metod Case​ If rcv <>​

​ [КОЛИЧЕСТВО_УНИ] = 0​ проверил его на​Спасибо!​

​ = True End​Я с коллекциями​ коллекцией далее неприемлема,​ вот уровень безопасности​ — в этом​ теряется вся простота​If iCell.Value <>​ короткую и элегантную​

​ в MS EXCEL.​ игнорируются все повторы,​Function MyFunc() as​ To 1) i​ КОЛИЧЕСТВО_УНИ СВОД_УСЛ =​ «» And rcv​ [МАССИВ_УНИ] = 1​ своих данных. Условия​jakim​ If Next If​ знаком мало, поэтому​ то перебросить её​ АЙтишники всегда ставят​ и выигрыш. Еще​

​ и элегантность предложенной​ «» Then .Add​ формулу массива:​ В этой статье​

​ т.е. значения выделенные​ variant MyFunc =​

excel2.ru

Подсчет количества уникальных значений

Постановка задачи

​ = 0 For​ UBound(USL) Case МАССИВ_УНИ​ <> 0 Then​ End Enum Public​

​ проведения расчетов одинаковы​: Извините, но я​ WorksheetFunction.And(arrFlag) = True​ и сомневаюсь…​ в массив​ высокий и тут​ быстрее конструкция dictionarys..​ kim формулы…​

​ iCell.Value, Trim(iCell.Value)​Не забудьте ввести ее​

Способ 1. Если нет пустых ячеек

​ рассмотрим более сложные​жирным​ array(«Арг1″,»Арг2″,»Арг3») End Functionпри​ Each x In​ СВОД_УСЛ = USL()​ SHT = True​

​ Function СВОД_УСЛ(Диапазон As​ для всех тестов​ не вижу никакой​ Then .Add CStr(cl(I,​Попытки вместо значения​ReDim NewMyArray(1 To​

​ уже необходимы знания​ и удобнее. Но​Ну, разве можно​Next​ как формулу массива,​ варианты с условиями.​. Соответственно, подсчитываются остальные​​ вводе её в​ ​ Условие.Value i =​​ End Select End​ For x =​ Range, Условие As​ приведенных выше постами.​

​ связи между описанием​​ 1)), cl(I, 1)​​ добавлять только ключ:​ Col.Count)​ что бы их​ требует подключения доп​ сравнить по трудоёмкости​

Способ 2. Если есть пустые ячейки

​СЧЁТ_РАЗНЫХ = .Count​ т.е. нажать после​Пусть имеется таблица с​ значения, т.е. «а»​ Excel (как массив)​ i + 1​ Function​ 1 To UBound(USL)​

​ Variant, _ Диапазон_условия​

planetaexcel.ru

Подсчет количества уникальных значений в массиве

​ As Range, metod​​ всех тестах я​gling​ 0 Then СЧЕТУНИКЕСЛИМН​
​ <> «» Then​ 1 To Col.Count​

​Так что это​​Alex_ST​

​djon2012​​ End If End​к ускорению не​
​Cells(i, 2) =​Hugo​ перерыва (раньше работа​и формулу массива​ не посоветуете,​ по всем ячейкам​

​ продавец. Например, Вася​​ текстовых значений в​

​Bati4eli​​ надо вводить в​
​ ячейки листа, ты​ SHT Then USL(UBound(USL))​ Range Dim icv​
​ функцией​: Да действительно прикрепил​ If Next End​ привели.​
​ Col(i)​: У меня есть​ мешала) сделал сравнение​

​={СУММ(1/(ЕСЛИ(СЧЁТЕСЛИ(A4:P16;A4:P16);СЧЁТЕСЛИ(A4:P16;A4:P16);1)))-СЧЁТЕСЛИ(A4:P16;»»)}​​а как в​ массива и вычисляет​
​ продал 1 товар1,​ диапазоне​: Одномерный массив в​ столбец С4:С282 с​ не можешь весь​ = rcv ReDim​ As Variant Dim​в 4,5 раза медленнее​ не тот файл,​

​ With End Function​​Олег55​Next​ такие цифры при​

​ разных методов подсчёта​​Казанский​ формуле =СУММПРОИЗВ(1/СЧЁТЕСЛИ(A4:P16;A4:P16)) обойти​ для каждого элемента​ 2 Товара2 и​A7:A15​
​ Excel представляется 1​ помощью Ctrl+Shift+Enter. Расчет​ массив поместить в​ Preserve USL(1 To​ rcv As Variant​чем вариант формулами​ ошипочка вышла, прикрепляю​Jack Famous​: Доброе утро, уважаемые​Cells(4, 5) =​ копировании 3000 уникальных​

​ результат совпадает с​​Возможно помогут ввод​
​ End If End​
​ Long Dim y​ в 1 посту.​

​Светлый​​ UDF’ка​
​Пожалуйста, помогите в​Cells(4, 6) =​Degassad 4.171125​Конечно, создавать «массив​Function СЧЁТ_РАЗНЫХ_2(Диапазон As​ хотя бы одна​ помощью функции​ разных товара.​
​ пустые ячейки.​В данном случае​ существующим: Код =СЧЕТ_УСЛ(ИСТОЧНИК!A:A;A4:A282;ИСТОЧНИК!B:B)​ массива твоих функций​ If Next End​
​ As Long Dim​
​ Спасибо !!!​
​: Добрый день!​

​ — Start​​Dictionary 1.530991​ 1…200 000″ я​
​СЧЁТ_РАЗНЫХ_2 = Evaluate(«SumProduct(1/CountIf(«​
​: =СУММПРОИЗВ(1/СЧЁТЕСЛИ(A4:P16;A4:P16&»»))-1​

​Сами коды:​​ времени жалко, но​

​ «,» & Диапазон.Address​​: Спасибо.​ столбца, то выглядело​ из-за функции СЧЁТЕСЛИМН().​
​ также и числа,​ в строке формул​ а на листе​ вызывать функцию из​

​ этот цикл в​​ Диапазон.Rows.Count — 1​ предложить модификацию формулы​ больших массивах проверять.​ условие выполняют, не​ бонус (т.е. бонус​Dim NewMyArray, MyArray,​Sub btnDeggasad_Click()​ с меньшим размером​ & «))»)​А почему -1​ бы оно так:​Изменив в ячейке​

​ итогов работы функции.​​, да по идеии​ = y -​

​ самое, только прежде​​ своих данных, но​Ну, как я​ будет неудобен при​ Next​Start! = Timer​ 10 000 цифр​ этой «элегантности» :)​
​ было 48, а​ и все они​ удобства сделан выпадающий​Если в список постоянно​Попробуйте, у вас​
​ 1. В сводной​

​aOld = [a1:a12000]​​ от 0 до​в vba эффективнее​

​ теперь вдруг получилось​​ суммируются, что и​ список), формула пересчитает​ добавляются значения, то​ все получится .​ таблице добавить поле​: Если не работать​ на аналогичную строку​ Set Диапазон =​ в именованных диапазонах​ на 70 %​числовой​ тогда придется для​ CreateObject(«Scripting.Dictionary»)​str = «»​ 100 на моём​ будет простым перебором,​
​ 47.​ даст нам количество​ количество уникальных.​

​Cells(i + 1,​​Next i​ сек.​ количеству элементов -​ виде, формула интерпретирует​ в дроби):​ и Месяц совпадают​

​ статью Выделение уникальных значений​​ одной колонки из​ СВОД_УСЛ время 0,06​ — на 6000​KoGG​ Each RC In​ проверял. На маленьких​если да, то​ столбцу ИД…это и​ Ваш вариант считает​ 2) = NewMyArray(i)​

planetaexcel.ru

Подсчет уникальных значений в столбце по двум условиям

​ перебор всех «остальных​​ мы его и​: Здравствуйте.​
​В файле примера на​ более простую формулу​ чтобы он распределялся​ массивами — СВОД_УСЛ2​ секунды. Но без​ то​ <> «» And​ в зависимости от​
​=СУММПРОИЗВ(—(СЧЁТЕСЛИ(A1:KN1;СТРОКА($1:$53)-1)>0))​: От души большое​ больше нуля, а​ Timer — Start​For i =​ в массив и​
​ элементов», сравнение с​

​ отнимаем. Для более​​Нужна небольшая Ваша​​ листе Два критерия​

​ =СУММПРОИЗВ(1/СЧЁТЕСЛИ(A7:A15;A7:A15)). Разница между​​ по строкам, а​ время 0,02 сек​ файла делать…​Set RC =​ rcv <> 0​ количества уникальных.​или на базе​ спасибо! оба варианта​ мне нужно вычислить​Cells(5, 6) =​ 0 To UBound(aNew)​ добавлением в коллекцию​ условием и увеличение​ простого визуального восприятия​ помощь. Уже не​ приведено решение этой​
​ формулами состоит в​ не столбцам в​Вариант Казанского СЧЕТ_УСЛ​Bati4eli​ Диапазон.Rows(IC.Row).Cells(1)Да и RC​ Then If RC.Row​

​Вот так должна​​ Вашей формулы:​ великолепные — и​

​ количество точек, т.е.​​ UBound(NewMyArray) + 1​ — 1​ уже из этого​ индекса, если условие​ уменьшил проверяемый диапазон.​ первый день ломаю​ задачи с помощью​ том, что вторая​ экселе?​ время 0,11 сек.​:​ вовсе не нужна.​ = IC.Row Then​ раза в три​Код=СУММПРОИЗВ(—(ЧАСТОТА(A1:KN1;СТРОКА($1:$53)-1)>0))​ Сергея, и​ количество уникальных значений​[CalcTime] = Timer​Cells(i + 1,​ массива​ выполнено.​слэн​ голову над этой​ Сводной таблицы. В​ формула учитыват значения​Казанский​При вызове множества​Hugo121​rcv = Диапазон.Rows(IC.Row).Cells(1).Value​ SHT = True​ быстрее быть​Должно считать немного​Очень помогли!​ по столбцу ИД​ — Start​ 2) = aNew(i)​СЧЁТ_РАЗНЫХ_2 — 0,094​я уж не​: да, но если​ задачкой. Нужно подсчитать​ этом случае выводится​ Пустой текст («»),​,​ функций из сводной​, Как можно не​А загнав данные​ For x =​Function Уникальные&(Диапазон As Range)​ быстрее, чем формула​Jack Famous​ точки для сети​End Sub​

​Next​​ сек.​ говорю о последующем​​ пустых ячеек все​

​ количество уникальных значений​​ не количество уникальных,​ а первая их​К сожалению ваш​ таблицы время будет​ работать с ячейками?​

​ в массивы будет​​ 1 To UBound(USL)​
​Dim Ar(), D​ от Елены из​​: Олег55, доброго дня!​​ Магнит и бонуса​Sub filter()​Cells(2, 5) =​3. Макрос, реализующий​

​ делении и опять​​ же нет? :)​ в массиве и​
​ а список уникальных​ игнорирует.​ вариант, не совсем​ другое, если заново​

​Посмотрите, пожалуйста, пример.​​ еще быстрее.​ If USL(x) =​ As Object, i​ сообщения выше​
​Предлагаю вариант на​

​ больше нуля. В​​Start! = Timer​
​ Timer — Start​ на VBA функцию​ суммировании..​Alex_ST​ частоту их появления,​ товаров.​

​Приведем пример, когда это​​ верно считает. Он​ формируется сводная таблица,​Bati4eli​Кликните здесь для​

​ rcv Then SHT​​Set D =​UPD:​ связях таблиц между​ данном примере таковых​​Range(«A1:A12000»).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets(1).Range(«B1»),​​Cells(2, 6) =​ листа =СУММПРОИЗВ(1/СЧЁТЕСЛИ(Диапазон;Диапазон))​Михаил С.​

​: Макрос считает правильно.​​ т.е. значение «7»​

​Теперь рассмотрим другую таблицу​​ бывает важно.​
​ видимо подсчитывает кол-во​ то возможно пересчитываться​
​:​

​ просмотра всего текста​​ = False End​ CreateObject(«Scripting.Dictionary»)​Проверил на большом​ собой. Использованы только​ будет пять.​ Unique:=True​ UBound(aNew) + 1​СЧЁТ_РАЗНЫХ_3 — 38,22​: ну может вы​ Проверялось не раз​

planetaexcel.ru

Подсчет уникальных значений самый быстрый способ (Формулы/Formulas)

​ столько то раз,​​ (столбцы А:С на​
​Пусть дана таблица продаж​ платежей по выбранной​ будет каждая из​KoGG​ Public Function СВОД_УСЛ(Диапазон​ If Next If​Ar = Диапазон.Value​ количестве данных, формула​ штатные функции Excel.​По одной точке​[CalcTime] = Timer​[CalcTime] = Timer​ сек.​
​ и правы;​

​ (в том числе​​ значение «12» столько​ рисунке ниже).​ товаров (см. рисунок​ профессии, а функция​

​ 282 введенных, тут​​,​ As Range, Условие​

​ SHT Then USL(UBound(USL))​​For Each i​ с ЧАСТОТА существенно​ Результат на листе​ может быть несколько​

​ — Start​​ — Start​
​Да… Гуру форума,​
​=СУММПРОИЗВ(1/СЧЁТЕСЛИ(A4:P16;A4:P16&""))-ИЛИ(A4:P16="")​
​ даже и ручным​ то раз и​Необходимо вывести количество заключенных​

​ ниже, столбцы А​​ должна высчитывать кол-во​ функция массива Казанского​попробовал использовать массив..​ As Variant, _​ = rcv ReDim​ In Ar​ быстрее СЧЁТЕСЛИ​

​ «shop» 3ий столбец​​ накладных, причем как​
​Cells(6, 5) =​

​End Sub​​ конечно, обычно правы,​тоже массив​ пересчётом).​
​ т.д.​ договоров в каждом​ и В). С​
​ уникальных табелей по​
​ с сумме будет​ и почему то,​
​ Диапазон_условия As Range,​
​ Preserve USL(1 To​If Not D.exists(i)​djon2012​alex1210​
​ с бонусом, так​
​ Timer — Start​Sub btnCollections1_Click()​ но чтобы разница​Alex_ST​

​А вот усовершенствованная​​Заранее благодарен.​ месяце.​ помощью формулы =ЕСЛИ(МЕСЯЦ(B26)=1;A26;»»)​ определенной профессии.​ быстрее.​ функция стала работать​ metod As MTD)​​ UBound(USL) + 1)​​ Then D(i) =​: Спасибо вам большое​: ,Sanja,я конечно ниче​ и без него​​End Sub​​Dim NewMyArray(), MyArray​ во времени выполнения​​: Не понял, зачем?​​ вами формула даже​kim​Т.к. в таблице ведется​
​ определяются товары, которые​Казанский​Использование процедуры с​ в разы дольше,​ Dim i&, j&​

​ End If End​​ 1​ Pelena и MCH​
​ не понял, ну​
​ (т.е. ноль)​Файл не даю,​
​Dim Col As​ достигала более 400​
​Быстрее работать что​
​ в исходном примере​: Для этого нужна​
​ учет счетов сразу​
​ были проданы в​
​: Можете попробовать так:​
​ заполнением было бы​

​ чем вариант работы​​ Dim Dia_Usl As​ If End If​Next​

​ за формулы. Я​​ штучка прикольная. это​Сергей​ сильно секретный :)​ New Collection​ раз…!!! Не ожидал.​ ли будет если​ топик-стартера (т.е. без​ функция СЧЁТЕСЛИ()- масса​ для всех договоров​ январе. Если товар​Function MyFunc() As​ оптимальнее.​ с ячейками .​​ Variant Dim Dia​​ Next End If​Уникальные = D.Count​ проверил их на​ наверное аналог счётеслимн?​

​: доп столбец один​​Казанский​Start! = Timer​Так что, формулисты,​ я сначала скопирую​ пустых ячеек в​​ примеров на форуме.​​ и по каждому​ продан не в​ Variant MyFunc =​А еще оптимальнее​
​Посмотрите, пожалуйста, пример​
​ As Variant Dim​ Next ReDim Preserve​End Function​ скорость выполнения, результаты​Sanja​ для всех сетей​

​: У меня ввод​​On Error Resume​ бросайте своё тормозное​ диапазон во временный​ диапазоне) даёт 47,​Для подсчета уникальных:​ договору может быть​
​ январе, то формула​ Application.Transpose(Array(«Arg1», «Arg2», «Arg3»))​ — смотри выше.​
​ из предыдущего сообщения.​
​ x As Long​ USL(1 To UBound(USL)​
​djon2012​ оказались таковы: формула​
​: Можно и так​
​Sanja​ формулы в ячейку​
​ Next​ занятие и пишите​ массив, а потом​
​ когда реально и​
​ =СУММПРОИЗВ(1/СЧЁТЕСЛИ(A4:P16;A4:P16))​
​ выставлено несколько счетов,​

​ возвращает значение Пустой​​ End FunctionС уважением,​
​KoGG​ (Там используется старая​ Dim y As​ — 1) Select​: Здравствуйте!​ от Pelena в​ сказать. Название говорит​: UDF (пользовательская функция)​ листа 14,5 с,​MyArray = [a1:a12000]​ макросы и UDF!!!​ буду брать по​​ моим макросом и​​Hugo​ то номера договоров​ текст. Пользователь решает​ Aksima​: Офис 2007, Windows​
​ функция)​

excelworld.ru

Количество уникальных значений по условию

​ Long Dim USL()​​ Case metod Case​
​Спасибо за Ваши​19! раз медленнее​ само за себя​ Function СЧЕТУНИКЕСЛИМН(rngU As​ «СЧЁТ_РАЗНЫХ_3» 28,9 с.​For Each a​Казанский​ одному элементу массива​ вашей же исходной​: СЧЁТЕСЛИ​ могут повторяться.​ подсчитать количество уникальных​Bati4eli​
​ 8, процессор Intel(R)​Казанский​ As Variant Dim​ КОЛИЧЕСТВО_УНИ СВОД_УСЛ =​ варианты Michael_S и​
​формулы из моего​ СЧЕТ​ Range, ParamArray Conditions())​ Ровно в 2​ In MyArray​: Интересно! А функция​ и пытаться добавить​ формулой там 48​Alex_ST​Создадим дополнительный столбец для​ товаров в январе​: Вот для чего​ Core(TM) i7 CPU​: Лучше создать функцию,​ SHT As Boolean​ UBound(USL) Case МАССИВ_УНИ​ pabchek, я проверил​ примера, формула от​УНИК​ As Long ‘rngU​ раза. Интересно, почему?​Col.Add a, CStr(a)​ листа как таковая?​ его в коллекцию​ уникальных значений…​: kim,​ определения месяца заключения​ (их всего 3:​ транспонирование в экселе​ 930 @ 2.8​ которая вводится в​ Application.Volatile x =​ СВОД_УСЛ = USL()​ их на своих​ MCH (вариант СЧЕТЕСЛИ)​ЕСЛИМН. В отличии от​ — диапазон поиска​слэн​Next a​Serge​ (метод проверки уникальности​Alex_ST​=СУММПРОИЗВ(1/СЧЁТЕСЛИ(A4:P16;A4:P16))- это здОрово!​ договора (см. статью​ Товар1, Товар2 и​ нужно =)​ GHz, Оперативка 4​ столбец как формула​ Диапазон.row + Диапазон.Rows.Count​ End Select End​ данных. Результаты следующие:​ в​ обычное СЧЕТЕСЛИМН подсчитывает​ уникальных значений, обязательный​: не помню с​’Если работа с​: Ага, а потом​ по Уокенбаху)?​: К стати, знатоки​Элементарно просто и​ Название месяца прописью​ Товар3). ​Спасибо, большое!​ Гб.​ массива и возвращает​ — 1 y​ Function​

​ Ваша пользовательская функция​​4 раза медленнее​ количество УНИКАЛЬНЫХ значений​ ‘Conditions() — массив​ кем мы оттачивали​ коллекцией далее неприемлема,​ выясняется что расчётный​Я, к стати,​

​ VBA, помогите, плиз…​​ элегантно.​
​ в MS EXCEL).​
​Формула =СУММПРОИЗВ((A7:A15<>»»)/СЧЁТЕСЛИ(A7:A15;A7:A15)) вернет правильный результат 3,​На примере, который​Bati4eli​
​ массив.​ = Диапазон.Parent.UsedRange.Rows.Count If​
​SlavaRus​ Michael_S в сравнении​, формула от MCH​
​alex1210​
​ ПАР значений вида:​ скорость этого алгоритма​ то перебросить её​

​ файл не работал​​ искал где-нибудь данные​Что-то у меня​Не встречал такого​
​ Выведем из этого​ а формула =СУММПРОИЗВ(1/СЧЁТЕСЛИ(A7:A15;A7:A15)) вернет 4,​ Вы привели в​: К сожалению в​При этом в​ x > y​: Расширенный фильтр не​ с изложенной 4​ (вариант ЧАСТОТА) в​: ААААААААААААААААААА, круто​ Диапазон_Условий1;Условие1;Диапазон_Условий2;Условие2…Диапазон_УсловийN;УсловиеN, обязательный ‘​ — точно с​ в массив​ у начальника на​ о скорости выполнения​ не получается сделать​ раньше, поэтому написАл​ столбца только уникальные​ т.к. в «пустых»​ сообщении #8, моя​ том то и​ функции достаточно один​ Then x =​ подойдет? Поставить пустое​

​ постами выше по​​2,1 раза быстрее​Akropochev​ должен иметь хотя-бы​ ZVI, а вот​’ReDim NewMyArray(1 To​
​ деловой презентации потому​​ операций с коллекциями,​ на основе этой​ UDF:​ месяцы (см. статью​
​ ячейках​ функция дает точно​ дело, что одной​ раз пройти по​​ y — Диапазон.row​​ условие и галку​ скорости осталась почти​. Да действительно формула​

​: Олег55, добрый день​​ одну пару значений.​ еще учавствовал или​ Col.Count)​
​ что макросы отключены​ но не нашел…​ классной формулы UDF​
​Function СЧЁТ_РАЗНЫХ(Диапазон As​
​ Отбор уникальных значений​С31:С34​ такой же результат,​
​ сводной здесь не​ массивам​ + 1 Dia​ на уникальных значениях.​ такой же, если​ с ЧАСТОТА значительно​Мой вариант немассивной​ ‘Все диапазоны должны​ degassad или Anik..​i = 1​ были.​ Что-то мне подсказывает,​ (ну, чтобы потом​ Range) As Long​ (убираем повторы из​на самом деле​ как ваша функция​ решишь задачу, так​Диапазон, Диапазон_условия​ = Range(Диапазон.Cells(1), Диапазон.Rows(x).Cells(1))​ Потом посчитать видимые​ точнее то приблизительно​ быстрее формулы СЧЕТЕСЛИ.​ формулы​ состоять из одного​ но там было​For Each a​И стоя на​ что она не​ формулы писАть было​’—————————————————————————————​ списка) в MS​ содержатся 4 значения​ — я выводил​ как таким методом​и посчитать уникальные,​ Dia_Usl = Диапазон.Offset(0,​ строки, если фильтровать​на 5% быстрее​Еще раз СПАСИБО​=СУММПРОИЗВ(—(ПОИСКПОЗ(B2:B16*(D2:D16=L2)*(E2:E16>0);B2:B16*(D2:D16=L2)*(E2:E16>0);0)=(СТРОКА(B2:B16)-СТРОКА(B2)+1)*(D2:D16=L2)*(E2:E16>0)))​ столбца и иметь​ чуточку точнее в​ In Col​ бирже труда макрописец​ слишком велика (ну,​ проще и не​’ Procedure :​ EXCEL) и поместим​ «», которые воспринимаются​ в другой столбец​ мы получим не​ а потом сформировать​ Диапазон_условия.Column — Диапазон.Column)​ на месте.​, Ваша pabchek по​ за вашу помощь!!!​Олег55​ равное кол-во строк​
​ конце​
​’ NewMyArray(i) =​ упрямо повторяет себе:​
​ по крайней мере​ указывать два раза​ СЧЁТ_РАЗНЫХ​ их в столбец​ ей как некое​
​ и сравнивал.​ кол-во уникальных людей​ выходной массив.​ ReDim USL(1 To​mcherry​ скорости такая же​ И шо я​: , , большое​ Dim cl() Dim​Alex_ST​ a​

​ «А у меня​​ не выше, чем​ диапазон)​’ Author :​ F.​ текстовое значение, хотя​
​Покажите на конкретных​ по одной профессии,​Использовал словарь коллекций​ 1) For i​
​: можно так:​ как формула от​ бы без вас​ спасибо, что не​ arrFlag() As Boolean​: По совету слэн’a​

​Cells(i, 2) =​​ считает-то всё-равно быстрее»…​​ обращение к ячейке​​Даже без игнорирования​’ Topic_HEADER :​
​И, наконец, помощью формулы =СУММПРОИЗВ(($D$9:$D$26=F9)/СЧЁТЕСЛИ($A$9:$A$26;$A$9:$A$26))​

​ и нулевой длины.​​ данных, что неверно.​​ а все платежи​​ Public Function СЧЕТ_УСЛ(Диапазон​
​ = 1 To​=ЕСЛИ(И(СЧЁТЕСЛИ(B:B;B2)=1;C2=$C$1);1;0)​ MCH с функцией​ делал???​ остались в стороне​ Dim I&, J&​
​ попробовал ещё подсократить​ a​Брр.​ диапазона). Поэтому, наверное,​

​ пустых ячеек…​​ Функция СЧЁТ_РАЗНЫХ (UDF)​ подсчитаем количество уникальных​СОВЕТ​Казанский​ совершенные по этой​
​ As Range, Условие​ UBound(Dia_Usl, 1) If​B:B — столбец​ ЧАСТОТА.​​Michael_S​​ от моей проблемы!​ Dim rngCond() On​ время выполнения СЧЁТ_РАЗНЫХ_2.​
​i = i + 1​слэн​ выигрыш в скорости​Пытаюсь сделать так:​’ Topic_URL :​ договоров в соответствующем​: Как подсчитать уникальные​,​ профессии.​ As Range, Диапазон_условия​ LCase(Dia_Usl(i, 1)) =​ в котором значение​Спасибо!!!​: а если так​ Разобрал принципы работы​ Error Resume Next​Попытался сначала заменить​Next​: и еще можно​ при использовании массива​Function СЧЁТ_РАЗНЫХ_2(Диапазон As​’ Post_Author :​ месяце.​ числовые значения показано​наверно я не​Честно говоря извеняюсь​ As Range) As​ LCase(Условие) Then If​ должно быть уникальным​Bati4eli​ попробовать:​ ваших вариантов, принял​ cl = rngU.Value​ в цикле в​Cells(3, 5) =​ немножко причесать.. :)​ вместо прямого обращения​ Range) As Long​ Alex_ST & The_Prist​Решение также возможно с​ в одноименной статье​

​ выспался и плюс​​ за то, что​ Variant() Dim q(),​ Dia(i, 1) <>​B2 — проверяемое​: Привет, всем!​Function Уникальные&(Диапазон As Range)​ к сведению, буду​ With CreateObject(«Scripting.Dictionary») For​ ключе коллекции CStr(tmpArr(i,​ Timer — Start​например, зачем в​ к ячейкам будет​

​’=СУММПРОИЗВ(1/СЧЁТЕСЛИ(Диапазон;Диапазон))​​ & Лузер™​ помощью Сводной таблицы.​ Подсчет уникальных числовых​
​ никогда не пользовался​
​ поднял такую панику​
​ w(), x, i&​ «» And Dia(i,​ значение​
​Столкнулся со следующей​Dim Ar(), D​ теперь пользоваться наиболее​
​ I = 1​ j)) на tmpArr(i,​
​Cells(3, 6) =​ коллекцию передавать значение,​ незначительным…​With Application.WorksheetFunction​’ Post_URL :​Есть диапазон с данными,​ значений.​ коллекциями, поэтому не​ Я думал, что​ q = Intersect(Диапазон,​ 1) <> 0​
​C — столбец​ проблемой: требуется подсчитать​ As Object, i​
​ удобным в зависимости​ To UBound(cl) ReDim​

​ j):​​ Col.Count​ если нужно только​слэн​СЧЁТ_РАЗНЫХ_2 = .SumProduct(1​’ DateTime :​ в котором некоторые​

​СОВЕТ​​ совсем врубаюсь в​ этот файл придется​ Диапазон.Worksheet.UsedRange).Value w =​ Then SHT =​ «соседний, в котором​ кол-во уникальных значений​Set D =​ от ситуации​ arrFlag(Int(UBound(Conditions) / 2))​If tmpArr(i, j)​[CalcTime] = Timer​ посчитать?​
​: гораздо быстрее​ / .CountIf(Диапазон, Диапазон))​ 06.04.10, 12:00​ значения повторяются больше​: Как подсчитать уникальные​ принцип работы вашей​ перекидывать по предприятию​ Intersect(Диапазон_условия, Диапазон_условия.Worksheet.UsedRange).Value On​ True For x​ должно выполняться условие»​ в одном столбце,​ CreateObject(«Scripting.Dictionary»)​
​djon2012​​ For J =​ <> «» Then​
​ — Start​передавайте только ключ​Казанский​End With​’ Purpose :​
​ одного раза:​
​ числовые значения с​
​ функции.​ (а вы знаете,​ Error Resume Next​ = 1 To​$C$1 — условие​ если в соседнем​Ar = Диапазон.Value​: Здравствуйте!​
​ LBound(Conditions) To UBound(Conditions)​

​ .Add tmpArr(i, j),​​End Sub​слэн​: Алексей, а протестируй​End Function​
​ возвращает число уникальных​Задача — подсчитать количество​ дополнительными условиями (критериями)​При выводе результата​ что макросы включены​ With New Scripting.Dictionary​ UBound(USL) If USL(x)​​протянуть формулу на​​ столбце значение удовлетворяет​For Each i​
​В моем примере​ Step 2 If​

​ tmpArr(i, j)​​Sub btnCollections2_Click()​​: или пересчет был​​ разные методы и​
​выдаёт #ЗНАЧ!​ значений в указанном​ уникальных (неповторяющихся) значений​ показано в статье Подсчет​ у меня везде​ не у всех​ ‘ ===== Tools​​ = Dia(i, 1)​ весь столбец и​ определенному требованию. Желательно​ In Ar​ в столбце KO​
​ IsObject(Conditions(J)) Then rngCond​​заработало. Время уменьшилось​
​Dim NewMyArray(), MyArray​ отключен :)​ отпишись?​Михаил С.​ диапазоне​ в диапазоне. В​ Уникальных ЧИСЛОвых значений​ получается​ и ошибка типа​

​ — References -​​ Then SHT =​
​ посчитать получившуюся сумму….​ решить задачу стандартными​D(i) = 1​ формулами вычисляется количество​ = Conditions(J).Value If​

​ почти вдвое :​​Dim Col As​Serge​Для тестов создай​
​: массив​

​’ Notes :​ приведенном выше примере,​ в MS EXCEL.​152​ #ИМЯ введет в​ Microsoft Scripting Runtime​ False End If​KoGG​ средствами эксель (так​
​Next​ уникальных значений по​​ IsNumeric(rngCond(I, 1)) Then​​ стало 0,047 сек.​
​ New Collection​: Не согласен. Для​ массив из миллиона​=СУММ(1/(ЕСЛИ(СЧЁТЕСЛИ(A4:P16;A4:P16);СЧЁТЕСЛИ(A4:P16;A4:P16);1)))-СЧЁТЕСЛИ(A4:P16;»»)​’—————————————————————————————​ как легко заметить,​Подсчитаем Уникальные значения с​
​.​ ступор непродвинутых людей).​ ===== .CompareMode =​​ Next If SHT​​: Замени с 23​

CyberForum.ru

​ как оно может​

Как посчитать количество уникальных значений в Excel?

Подсчет уникальных значений в Экселе (Excel).

Как в Excel можно посчитать количество уникальных значений в столбце или определенном диапазоне?

Под уникальными значениямм понимаем те, которые встречаются в диапазоне только один раз.

Допустим значения содержатся в диапазоне С2:С9

Водим диапазон E2:E9 в ячейках которого содержится количество повторов каждого значения в диапазоне С2:С9

Формула количества повторов для значения C2 =СЧЁТЕСЛИ($C$2:$C$9;C2)

Эта формула растягивается на весь диапазон

Количество уникальных значений определится по формуле =СУММЕСЛИ(E2:E9;»=1″)

Чтобы увидеть уникальные элементы нужно наложить фильтр на столбец E

Если возникла задача посчитать количество уникальных значений в Экселе (Excel), то её можно решить несколькими способами — с формулами и без формул.

1) В том случае, если диапазон данных (числовых или текстовых) является статичным и меняться не будет, то можно воспользоваться командой «Удалить дубликаты».

Для этого выделяем диапазон (в нашем примере — это B1:B14) и на панели инструментов Excel выбираем «Данные» -> «Удалить дубликаты».

Появится окно, в котором указываются столбец / диапазон, из которых удаляются дубликаты.

Нужно, чтобы обязательно стояла галочка «Мои данные содержат заголовки» — иначе заголовок тоже будет учитываться при отборе уникальных значений.

Теперь нажимаем на кнопку «ОК».

В результате Эксель выведет сообщение о том, сколько найдено дубликатов и сколько осталось уникальных значений.

Таким образом, количество уникальных значений в выбранном диапазоне будет равно 10.

2) Для определения количества уникальных значений в Excel можно использовать специальную формулу, состоящую из 2 функций:

Функция СЧЁТЕСЛИ будет использоваться для того, чтобы посчитать, сколько раз встречается то или иное значение в диапазоне.

Далее с помощью функции СУММ суммируются дроби вида:

1 / Число вхождений каждого элемента.

Для нашего примера формула будет выглядеть так:

При этом вводить её нужно как формулу массива — через комбинацию Ctrl + Shift + Enter.

В результате получится всё те же 10 уникальных значений.

А вот примеры работы этой формулы, если в таблице Excel имеются текстовые данные:

Подсчет уникальных значений в Excel

Здравствуйте. Сегодня у нас практикум, считаем количество уникальных значений в столбце Excel. Задача звучит проще, чем выполняется, поэтому, рассматриваем всевозможные ситуации и способы их решения.

Количество уникальных значений в списке

Если вы уверены, что в массиве с данными нет пустых ячеек, счет уникальных значений excel делаем так:

Если применить такую формулу для массива с пустыми значениями, она вернет ошибку #ДЕЛ/0. Как это обойти – читайте дальше.

Считаем данные в массиве с пустыми ячейками

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

Легко заметить, что результат получился на 1 больше, чем в прошлом примере. Это потому, что формула посчитала и пустую ячейку, как уникальные данные. Чтобы этого не было, еще доработаем функцию:

Теперь получили правильный результат без учёта пустот.

Следующие две формулы выглядят сложнее, но работают быстрее. Используйте их, если программа подвисает при выполнении.

Подсчет уникальных числовых данных

Чтобы в Excel посчитать количество уникальных значений в столбце с числами, используем функцию ЧАСТОТА :

Количество уникальных строк с текстом

Похожая «скоростная» но для счёта текстовых строк:

=СУММПРОИЗВ(—(ЧАСТОТА(ПОИСКПОЗ(диапазон; диапазон;0);СТРОКА(диапазон)-СТРОКА(диапазон.первая ячейка)+1)>0))

Такая формула не подходит, когда в массиве есть пустые клетки. Если это критично, можно еще усложнить:

=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(диапазон<>»»;ПОИСКПОЗ(диапазон; диапазон;0));СТРОКА(диапазон)-СТРОКА(диапазон.первая ячейка)+1);1))

Это формула массива, после ввода нажимайте не Enter , а Ctrl+Shift+Enter . Иначе работать не будет.

Выглядит монструозно, а результат верный. Можно пользоваться!

Пересчёт числовых значений с условием

Вы можете узнать, сколько значений в массиве, удовлетворяющих какому-то условию. Например, у меня есть таблица продаж, где указаны коды товара и продавцы, которые продавали. Меня интересует, сколько оригинальных позиций продавал менеджер Немятый.

Формула получилась такая:

Это формула массива, подтверждаем ввод комбинацией Ctrl+Shift+Enter !

Счёт текстовых строк по условию

Похожее задание, но теперь нужно считать, сколько менеджеров продавали товар с кодом 1001.

А формула такая:

=СУММ(—(ЧАСТОТА(ЕСЛИ(диапазон<>»»;ЕСЛИ(условие;ПОИСКПОЗ(диапазон; диапазон;0)));СТРОКА(диапазон)-СТРОКА(диапазон.первая ячейка)+1)>0))

Вот так можно организовать подсчет одинаковых значений в столбце Excel в самых распространенных случаях. Формулы универсальные, скопируйте их, вставьте свои данные и получите результат.

Это всё на сегодня, Задавайте ваши вопросы в комментариях. Понравилась статья – поделись с другом!

Подсчет Уникальных ТЕКСТовых значений в MS EXCEL

Произведем подсчет уникальных текстовых значений в диапазоне ячеек.

Сначала поясним, что значит подсчет уникальных значений. Пусть имеется массив текстовых значений <«а»,»b»,«а»,»а»,»а»>. При подсчете уникальных игнорируются все повторы, т.е. значения выделенные жирным. Соответственно, подсчитываются остальные значения, т.е. «а» и «b». Ответ очевиден: количество уникальных значений равно 2.

Произведем подсчет числа уникальных текстовых значений в диапазоне A7:A15 (см. файл примера ). Диапазон может содержать пустые ячейки.

Решение

Запишем формулу =СУММПРОИЗВ(( A7:A15<>«» )/СЧЁТЕСЛИ(A7:A15;A7:A15))

Если в диапазоне кроме текстовых значений содержатся также и числа, то формула подсчитает и их. Чтобы игнорировать числовые значения нужно записать формулу =СУММПРОИЗВ(ЕТЕКСТ( A7:A15 )/СЧЁТЕСЛИ(A7:A15;A7:A15))

Если в список постоянно добавляются значения, то можно создать Динамический именованный диапазон Исходный_список.

Теперь при добавлении новых значений они будут учитываться формулой.

Примечание: Уникальные значения в файле примера выделены с помощью Условного форматирования (см. статью Выделение уникальных значений в MS EXCEL).

Часто вместо формулы =СУММПРОИЗВ(( A7:A15<>«» )/СЧЁТЕСЛИ(A7:A15;A7:A15)) используют более простую формулу =СУММПРОИЗВ(1 /СЧЁТЕСЛИ(A7:A15;A7:A15)) . Разница между формулами состоит в том, что вторая формула учитыват значения Пустой текст («»), а первая их игнорирует.

Приведем пример, когда это бывает важно.

Пусть дана таблица продаж товаров (см. рисунок ниже, столбцы А и В). С помощью формулы =ЕСЛИ(МЕСЯЦ(B26)=1;A26;»») определяются товары, которые были проданы в январе. Если товар продан не в январе, то формула возвращает значение Пустой текст. Пользователь решает подсчитать количество уникальных товаров в январе (их всего 3: Товар1, Товар2 и Товар3).

Формула =СУММПРОИЗВ(( A7:A15<>«» )/СЧЁТЕСЛИ(A7:A15;A7:A15)) вернет правильный результат 3, а формула =СУММПРОИЗВ(1 /СЧЁТЕСЛИ(A7:A15;A7:A15)) вернет 4, т.к. в «пустых» ячейках С31:С34 на самом деле содержатся 4 значения «», которые воспринимаются ей как некое текстовое значение, хотя и нулевой длины.

СОВЕТ: Как подсчитать уникальные числовые значения показано в одноименной статье Подсчет уникальных числовых значений.

СОВЕТ: Как подсчитать уникальные числовые значения с дополнительными условиями (критериями) показано в статье Подсчет Уникальных ЧИСЛОвых значений в MS EXCEL.

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

Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке).

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

Значения 5, 6, 7 и 6 выводятся в виде трех уникальных значений: 5, 6 и 7.

Значения «Кирилл», «Сергей», «Сергей», «Сергей», результат — это два уникальных значения — «Кирилл» и «Сергей».

Существует несколько способов подсчета уникальных значений среди повторяющихся.

С помощью диалогового окна » Расширенный фильтр » можно извлекать уникальные значения из столбца данных и вставлять их в новое место. Затем с помощью функции ЧСТРОК можно подсчитать количество элементов в новом диапазоне.

Выделите диапазон ячеек или убедитесь в том, что активная ячейка находится в таблице.

Убедитесь, что диапазон ячеек содержит заголовок столбца.

На вкладке Данные в группе Сортировка и фильтр нажмите кнопку Дополнительно.

Откроется диалоговое окно » Расширенный фильтр «.

Выберите команду скопировать в другое место.

В поле Копировать в введите ссылку на ячейку.

Вы также можете нажать кнопку Свернуть диалоговОе окно , чтобы временно скрыть диалоговое окно, выделить ячейку на листе и нажать кнопку Развернуть диалоговое окно .

Установите флажок только уникальные записи и нажмите кнопку ОК.

Уникальные значения из выделенного диапазона копируются в новое место, начиная с ячейки, указанной в поле Копировать в .

В пустой ячейке, расположенной под последней ячейкой диапазона, введите функцию строки . Используйте диапазон уникальных значений, которые вы только что скопировали в качестве аргумента, исключая заголовки столбцов. Например, если диапазон уникальных значений — B2: B45, вы вводите = Rows (B2: B45).

Для выполнения этой задачи используйте сочетание функций Если, сумм, Частота, ПОИСКПОЗи ДЛСТР .

Назначьте значение 1 каждому из истинных условий с помощью функции ЕСЛИ.

Добавьте итог с помощью функции сумм .

ПодСчитайте число уникальных значений с помощью функции Частота . Функция FREQUENCY не обрабатывает текстовые и нулевые значения. Для первого вхождения определенного значения эта функция возвращает число, равное количеству вхождений этого значения. Для каждого вхождения того же значения, которое находится после первой, эта функция возвращает нуль.

Возвращает расположение текстового значения в диапазоне с помощью функции ПОИСКПОЗ . Возвращаемое значение затем используется в качестве аргумента функции FREQUENCY , чтобы можно было оценивать соответствующие текстовые значения.

Поиск пустых ячеек с помощью функции Len . Длина пустых ячеек равна 0.

Формулы, приведенные в этом примере, должны быть введены как формулы массива. Если у вас установлена текущая версия Office 365, можно просто ввести формулу в верхней левой ячейке диапазона вывода и нажать клавишу ВВОД, чтобы подтвердить использование формулы динамического массива. Иначе формулу необходимо вводить с использованием прежней версии массива, выбрав диапазон вывода, введя формулу в левой верхней ячейке диапазона и нажав клавиши CTRL+SHIFT+ВВОД для подтверждения. Excel автоматически вставляет фигурные скобки в начале и конце формулы. Дополнительные сведения о формулах массива см. в статье Использование формул массива: рекомендации и примеры.

Чтобы просмотреть Пошаговое вычисление функции, выделите ячейку с формулой, а затем на вкладке формулы в группе Зависимости формул нажмите кнопку Вычисление формулы.

Функция Частота Вычисляет частоту возникновения значений в диапазоне значений и возвращает вертикальный массив чисел. Например, используйте функцию Частота для подсчета количества результатов теста, которые попадают в диапазоны оценок. Так как эта функция возвращает массив, она должна быть введена как формула массива.

Функция ПОИСКПОЗ осуществляет поиск определенного элемента в диапазоне ячеек и возвращает относительное расположение этого элемента в диапазоне. Например, если в диапазоне a1: A3 содержатся значения 5, 25 и 38, функция формула = Match (25; a1: A3; 0) возвращает число 2, так как значение 25 является вторым элементом диапазона.

Функция ДЛСТР возвращает число символов в текстовой строке.

Функция СУММ вычисляет сумму всех чисел, указанных в качестве аргументов. Каждый аргумент может быть диапазоном, ссылкой на ячейку, массивом, константой, формулой или результатом другой функции. Например, функция сумм (a1: A5) складывает все числа, содержащиеся в ячейкАх от a1 до A5.

Функция Если возвращает одно значение, если указанное условие имеет значение true, и другое, если условие имеет значение false.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community, попросить помощи в сообществе Answers community, а также предложить новую функцию или улучшение на веб-сайте Excel User Voice.

Подсчет количества уникальных значений

Постановка задачи

Есть диапазон с данными, в котором некоторые значения повторяются больше одного раза:

Задача — подсчитать количество уникальных (неповторяющихся) значений в диапазоне. В приведенном выше примере, как легко заметить, на самом деле упоминаются всего четыре варианта.

Рассмотрим несколько способов ее решения.

Способ 1. Если нет пустых ячеек

Если вы уверены, что в исходном диапазоне данных нет пустых ячеек, то можно использовать короткую и элегантную формулу массива:

Не забудьте ввести ее как формулу массива, т.е. нажать после ввода формулы не Enter, а сочетание Ctrl+Shift+Enter.

Технически, эта формула пробегает по всем ячейкам массива и вычисляет для каждого элемента количество его вхождений в диапазон с помощью функции СЧЕТЕСЛИ (COUNTIF) . Если представить это в виде дополнительного столбца, то выглядело бы оно так:

Потом вычисляются дроби 1/Число вхождений для каждого элемента и все они суммируются, что и даст нам количество уникальных элементов:

Способ 2. Если есть пустые ячейки

Если в диапазоне встречаются пустые ячейки, то придется немного усовершенствовать формулу, добавив проверку на пустые ячейки (иначе получим ошибку деления на 0 в дроби):

Перейти к содержанию