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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

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

Andrey82

Дата: Среда, 30.04.2014, 22:59 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

Репутация: 0 ±

Замечаний: 40% ±

Excel 2010

Добрый вечер!
Еще одна часто встречающаяся задача, решаемая сводными таблицами.
Пытаюсь составить формулу массива, извлекающую уникальные значения из А:А, и формулу, подсчитывающую количество извлеченных значений в соседнем столбце.
Возможно ли это?

К сообщению приложен файл: 3857664121.xls (53.5 Kb)

Ответить

_Boroda_

Дата: Среда, 30.04.2014, 23:06 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16800

Репутация: 6558 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Andrey82, Вы что, издеваетесь? Только что писал Вам формулу уникальных. А количество вместо СУММЕСЛИ напишите СЧЁТЕСЛИ
Сейчас вот сочту это задвоением тем и еще замечание огребете.

К сообщению приложен файл: 3857664121_1.xls (55.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

DJ_Marker_MC

Дата: Среда, 30.04.2014, 23:06 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

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

Ответить

DJ_Marker_MC

Дата: Среда, 30.04.2014, 23:20 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

Макрос:
[vba]

Код

Sub iCopyUnique()
Application.ScreenUpdating = False
Range("A:A").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Columns("A:A"), CopyToRange:=Columns("D:D"), Unique:=True
iRow = Columns("D").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Range("E2:E" & iRow).FormulaR1C1 = "=COUNTIFS(Criteria,RC[-1])"
Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 8238363.xls (63.5 Kb)

Ответить

Andrey82

Дата: Четверг, 01.05.2014, 03:20 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

Репутация: 0 ±

Замечаний: 40% ±

Excel 2010

_Boroda_, Спасибо

По поводу издевательств - Вы ошибаетесь. Эксель изучаю недавно, до команды "счетесли" не добрался... То, что очевидно опытному человеку - новичку может показаться откровением