Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Количество уникальных значений если включен фильтр
 
#1
03.09.2021 06:19:27
Доброго времени суток. Подскажите, пожалуйста, как посчитать количество уникальных значений с помощью формулы, когда в таблице включен фильтр. Найденные варианты использования формул считают как отображаемые, так и неотображаемые (отфильтрованные) значения
 
 
 
#2
03.09.2021 06:26:36
Андрей Капитунян, правила - пункт про файл-пример.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
03.09.2021 07:26:08
Добавил файл-пример
 
 
 
#4
03.09.2021 08:04:49
=СУММПРОИЗВ(--(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(2;СМЕЩ($A$2:$A$31;СТРОКА($2:$31)-СТРОКА($1:$1)-1;0;1))*(СТРОКА($2:$31)=ПОИСКПОЗ($A$2:$A$31;$A:$A;0))))

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
03.09.2021 09:01:37
JayBhagavan, Есть небольшой косячок, если включен фильтр "ИМЯ" то его не учитывает :cry:
Можно ещё пользовательской функцией
Код
Public Function КОЛИЧ_ВИДИМ(ЯЧЕЙКА As Range) As Long
Dim a As Range
Set Dict = CreateObject("Scripting.Dictionary")
For Each a In ЯЧЕЙКА
    If a.Rows.Hidden = False Then If Not Dict.Exists(a.Value) Then Dict.Add a.Value, ""
Next a
КОЛИЧ_ВИДИМ = Dict.Count
End Function
Изменено: Msi2102 - 06.09.2021 01:58:27
 
 
 
#6
03.09.2021 09:18:17
Msi2102, спасибо. Не обратил внимание на текст. Формула с учётом просто значений:
=СУММПРОИЗВ(--(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;СМЕЩ($A$2:$A$31;СТРОКА($2:$31)-СТРОКА($1:$1)-1;0;1))*(СТРОКА($2:$31)=ПОИСКПОЗ($A$2:$A$31;$A:$A;0))))

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#7
05.09.2021 11:41:58
JayBhagavan, а как можно исправить формулу, чтобы при наличии пустых ячеек, она работала, а не выдавала сообщение #ЗНАЧ?
Изменено: vikttur - 05.09.2021 12:12:05
 
 
 
#8
05.09.2021 11:58:04
Цитата
Андрей Капитунян написал: чтобы при наличии пустых ячеек, она работала
Покажите в файле-примере, какой должен быть результат работы формулы "при наличии пустых ячеек".

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#9
05.09.2021 13:27:56
Большое вам спасибо, что помогаете. Пример в файле
Изменено: vikttur - 05.09.2021 13:30:36
 
 
 
#10
05.09.2021 13:38:56
Андрей Капитунян, массивная:
=СУММПРОИЗВ(--ЕСЛИОШИБКА(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;СМЕЩ($A$2:$A$31;СТРОКА($2:$31)-СТРОКА($1:$1)-1;0;1))*(СТРОКА($2:$31)=ПОИСКПОЗ($A$2:$A$31;$A:$A;0));0))
Изменено: JayBhagavan - 05.09.2021 13:39:57

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#11
06.09.2021 01:40:25
Цитата
Msi2102 написал:  As LongDim a As Range
долго не мог понять, что за тип переменных такой LongDim (надо Dim a As Range перенести вниз на новую строку)
 
 
 
#12
06.09.2021 02:01:56
New, спасибо, поправил. Вроде копировал из файла, может и там слепились, утром проверю :)  
 
 
 
#13
06.09.2021 03:30:37
Объясните, пожалуйста, почему конкретно в прикрепленном примере при выборе в фильтре дата "Август", формула не считает все значения
 
 
 
#14
06.09.2021 03:47:45
Андрей Капитунян, данная формула не годится под представленные Вами последние данные. Используйте УДФ от Msi2102.
Update...
Нашёл на просторах тырнета формулу массива:
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;СМЕЩ(A2;СТРОКА(A2:A1000)-СТРОКА(A2);;1)); ЕСЛИ(A2:A1000<>"";ПОИСКПОЗ("~"&A2:A1000;A2:A1000&"";0)));СТРОКА(A2:A1000)-СТРОКА(A2)+1);1))
Источник. Поиск.
Изменено: JayBhagavan - 06.09.2021 03:58:17

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#15
06.09.2021 04:14:22
Спасибо огромное еще раз. Находил почти такую же формулу массива, но в ней были ошибки, не смог понять как исправить. Благодаря вам всё заработало. Спасибо огромное еще раз.
 
 
 
#16
06.09.2021 04:16:18
ну и макросы для полноты
Изменено: New - 06.09.2021 04:17:29
 
 
 
Страницы: 1
Наверх