Excel поиск неповторяющихся значений

Извлечение уникальных элементов из диапазона

Способ 1. Штатная функция в Excel 2007

Начиная с 2007-й версии функция удаления дубликатов является стандартной — найти ее можно на вкладке Данные — Удаление дубликатов (Data — Remove Duplicates):

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

Способ 2. Расширенный фильтр

Если у вас Excel 2003 или старше, то для удаления дубликатов и вытаскивания из списка уникальных (неповторяющихся) элементов можно использовать Расширенный фильтр (Advanced Filter) из меню (вкладки) Данные (Data).

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

Выбираем в меню Данные — Фильтр — Расширенный фильтр (Data — Filter — Advanced Filter). Получаем окно:

В нем:

• Выделяем наш список компаний в Исходный диапазон (List Range).
• Ставим переключатель в положение Скопировать результат в другое место (Copy to another location) и указываем пустую ячейку.
• Включаем (самое главное!) флажок Только уникальные записи(Uniqe records only) и жмем ОК.

Получите список без дубликатов:

Если требуется искать дубликаты не по одному, а по нескольким столбцам, то можно предварительно склеить их в один, сделав, своего рода, составной ключ с помощью функции СЦЕПИТЬ (CONCATENATE):

Тогда дальнейшая задача будет сводиться к поиску дубликатов уже в одном столбце.

Способ 3. Выборка уникальных записей формулой

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

Итак, снова имеем список беспорядочно повторяющихся элементов. Например, такой:

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

=ЕСЛИ(СЧЁТЕСЛИ(B$1:B2;B2)=1;МАКС(A$1:A1)+1;»»)

В английской версии это будет:

=IF(COUNTIF(B$1:B2;B2)=1;MAX(A$1:A1)+1;»»)

Эта формула проверяет сколько раз текущее наименование уже встречалось в списке (считая с начала), и если это количество =1, т.е. элемент встретился первый раз — дает ему последовательно возрастающий номер.

Для упрощения адресации дадим нашим диапазонам (например, исходя из того, что в списке может быть до 100 элементов) имена. Это можно сделать в новых версиях Excel на вкладке Формулы — Диспетчер имен (Formulas — Name manager) или в старых версиях — через меню Вставка — Имя — Присвоить (Insert — Name — Define):

• диапазону номеров (A1:A100) — имя NameCount
• всему списку с номерами (A1:B100) — имя NameList

Теперь осталось выбрать из списка NameList все элементы имеющие номер — это и будут наши уникальные представители. Сделать это можно в любой пустой ячейке соседних столбцов, введя туда вот такую формулу с известной функцией ВПР (VLOOKUP) и скопировав ее вниз на весь столбец:

=ЕСЛИ(МАКС(NameCount)<СТРОКА(1:1);»»;ВПР(СТРОКА(1:1);NameList;2))

или в английской версии Excel:

=IF(MAX(NameCount)

Эта формула проходит сверху вниз по столбцу NameCount и выводит все позиции списка с номерами в отдельную таблицу:

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

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

Хитрости »

1 Май 2011              531900 просмотров

Как получить список уникальных(не повторяющихся) значений?

Представим себе большой список различных наименований, ФИО, табельных номеров и т.п. А необходимо из этого списка оставить список все тех же наименований, но чтобы они не повторялись — т.е. удалить из этого списка все дублирующие записи. Как это иначе называют: создать список уникальных элементов, список неповторяющихся, без дубликатов. Для этого существует несколько способов: встроенными средствами Excel, встроенными формулами и, наконец, при помощи кода Visual Basic for Application(VBA) и сводных таблиц. В этой статье рассмотрим каждый из вариантов.

• При помощи встроенных возможностей Excel 2007 и выше
• При помощи Расширенного фильтра
• При помощи формул
• При помощи кодов Visual Basic for Application(VBA) — макросы, включая универсальный код выборки из произвольного диапазона
• При помощи сводных таблиц

Как использовать данную команду. Выделяете столбец(или несколько) с теми данными, в которых надо удалить дублирующие записи. Идете на вкладку Данные (Data) —Удалить дубликаты (Remove Duplicates).

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

Появится окно с параметрами удаления дубликатов

Ставите галочки напротив тех столбцов, дубликаты в которых надо удалить и жмете Ок. Если в выделенном диапазоне так же расположены заголовки данных, то лучше поставить флаг Мои данные содержат заголовки, чтобы случайно не удалить данные в таблице(если они вдруг полностью совпадают со значением в заголовке).

Способ 1: Расширенный фильтр

В случае с Excel 2003 все посложнее. Там нет такого инструмента, как Удалить дубликаты. Но зато есть такой замечательный инструмент, как Расширенный фильтр. В 2003 этот инструмент можно найти в Данные —Фильтр —Расширенный фильтр. Прелесть этого метода в том, с его помощью можно не портить исходные данные, а создать список в другом диапазоне.

В 2007-2010 Excel, он тоже есть, но немного запрятан. Расположен на вкладке Данные (Data), группа Сортировка и фильтр (Sort & Filter) — Дополнительно (Advanced)

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

• Обработка: Выбираем Скопировать результат в другое место (Copy to another location).
• Исходный диапазон (List range): Выбираем диапазон с данными(в нашем случае это А1:А51).
• Диапазон критериев (Criteria range): в данном случае оставляем пустым.
• Поместить результат в диапазон (Copy to): указываем первую ячейку для вывода данных — любую пустую(на картинке — E2).
• Ставим галочку Только уникальные записи (Unique records only).
• Жмем Ок.

Примечание: если вы хотите поместить результат на другой лист, то просто так указать другой лист не получится. Вы сможете указать ячейку на другом листе, но…Увы и ах…Excel выдаст сообщение, что не может скопировать данные на другие листы. Но и это можно обойти, причем довольно просто. Надо всего лишь запустить Расширенный фильтр с того листа, на который хотим поместить результат. А в качестве исходных данных выбираем данные с любого листа — это дозволено.

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

Для этого надо просто в пункте Обработка выбрать Фильтровать список на месте (Filter the list, in-place).

Способ 2: Формулы

Этот способ сложнее в понимании для неопытных пользователей, но зато он создает список уникальных значений, не изменяя при этом исходные данные. Ну и он более динамичен: если изменить данные в исходной таблице, то изменится и результат. Иногда это бывает полезно. Попытаюсь объяснить на пальцах что и к чему: допустим, список с данными у Вас расположен в столбце

А

(

А1:А51

, где

А1

— заголовок). Выводить список мы будем в столбец

С

, начиная с ячейки

С2

. Формула в

C2

будет следующая:

{=ИНДЕКС($A$2:$A$51;НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($C$1:C1;$A$2:$A$51)=0;СТРОКА($A$1:$A$50));1))}
{=INDEX($A$2:$A$51;SMALL(IF(COUNTIF($C$1:C1;$A$2:$A$51)=0;ROW($A$1:$A$50));1))}
Детальный разбор работы данной формулы приведен в статье: Как просмотреть этапы вычисления формул

Надо отметить, что эта формула является формулой массива. Об этом могут сказать фигурные скобки, в которые заключена данная формула. А вводится такая формула в ячейку сочетанием клавиш —

Ctrl

+

Shift

+

Enter

(при этом сами скобки вводить не надо — они появятся сами после ввода формулы тремя клавишами

Ctrl

+

Shift

+

Enter

). После того, как мы ввели эту формулу в

C2

мы её должны скопировать и вставить в несколько строк так, чтобы точно отобразить все уникальные элементы. Как только формула в нижних ячейках вернет

#ЧИСЛО!(#NUM!)

— это значит все элементы отображены и ниже протягивать формулу нет смысла. Чтобы ошибку избежать и сделать формулу более универсальной(не протягивая каждый раз до появления ошибки) можно использовать нехитрую проверку:

для Excel 2007 и выше:
{=ЕСЛИОШИБКА(ИНДЕКС($A$2:$A$51;НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($C$1:C1;$A$2:$A$51)=0;СТРОКА($A$1:$A$50));1));»»)}
{=IFERROR(INDEX($A$2:$A$51;SMALL(IF(COUNTIF($C$1:C1;$A$2:$A$51)=0;ROW($A$1:$A$50));1));»»)}
для Excel 2003:
{=ЕСЛИ(ЕОШ(НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($C$1:C1;$A$2:$A$51)=0;СТРОКА($A$1:$A$50));1));»»;ИНДЕКС($A$2:$A$51;НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($C$1:C1;$A$2:$A$51)=0;СТРОКА($A$1:$A$50));1)))}
{=IF(ISERR(SMALL(IF(COUNTIF($C$1:C1;$A$2:$A$51)=0;ROW($A$1:$A$50));1));»»;INDEX($A$2:$A$51;SMALL(IF(COUNTIF($C$1:C1;$A$2:$A$51)=0;ROW($A$1:$A$50));1)))}

Тогда вместо ошибки 

#ЧИСЛО!(#NUM!)

у вас будут пустые ячейки(не совсем пустые, конечно — с формулами :-)).
Чуть подробнее про отличия и нюансы формул ЕСЛИОШИБКА и ЕСЛИ(ЕОШ можно прочесть в этой статье: Как в ячейке с формулой вместо ошибки показать 0

Для пользователей Excel 2021 выше, а так же пользователей Excel 365(с активной подпиской) — использовать формулы для извлечения уникальных элементов проще простого. В этих версиях появилась функция

УНИК(UNIQUE)

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

=УНИК($A$2:$A$51)
=UNIQUE($A$2:$A$51)

Что самое важное в данном случае — это функция динамического массива и вводить её надо только в одну ячейку C2, а результат она поместит сама в нужное количество ячеек.

Способ 3: код VBA

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

• Что такое макрос и где его искать? к статье приложен видеоурок
• Что такое модуль? Какие бывают модули? потребуется, чтобы понять куда вставлять приведенные ниже коды

Оба приведенных ниже кода следует помещать в стандартный модуль. Макросы должны быть разрешены.

Исходные данные оставим в том же порядке — список с данными расположен в столбце «А«(А1:А51, где А1 — заголовок). Только выводить список мы будем не в столбец С, а в столбец Е, начиная с ячейки Е2:

Sub Extract_Unique()
    Dim vItem, avArr, li As Long
    ReDim avArr(1 To Rows.Count, 1 To 1)
    With New Collection
        On Error Resume Next
        For Each vItem In Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value
            'Cells(Rows.Count, 1).End(xlUp) – определяет последнюю заполненную ячейку в столбце А
            .Add vItem, CStr(vItem)
            If Err = 0 Then
                li = li + 1: avArr(li, 1) = vItem
            Else: Err.Clear
            End If
        Next
    End With
    If li Then [E2].Resize(li).Value = avArr
End Sub

С помощью данного кода можно извлечь уникальные не только из одного столбца, но и из любого диапазона столбцов и строк. Если вместо строки
Range(«A2», Cells(Rows.Count, 1).End(xlUp)).Value
указать Selection.Value, то результатом работы кода будет список уникальных элементов из выделенного на активном листе диапазона. Только тогда неплохо бы и ячейку вывода значений изменить — вместо [E2] поставить ту, в которой данных нет.
Так же можно указать конкретный диапазон:

Или другой столбец:

Range("C2", Cells(Rows.Count, 3).End(xlUp)).Value

здесь отдельно стоит обратить внимание то, что в данном случае помимо изменения А2 на С2 изменилась и цифра 1 на 3. Это указание на номер столбца, в котором необходимо определить последнюю заполненную ячейку, чтобы код не просматривал лишние ячейки. Подробнее про это можно прочитать в статье: Как определить последнюю ячейку на листе через VBA?

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

Sub Extract_Unique()
    Dim x, avArr, li As Long
    Dim avVals
    Dim rVals As Range, rResultCell As Range
 
    On Error Resume Next
    'запрашиваем адрес ячеек для выбора уникальных значений
    Set rVals = Application.InputBox("Укажите диапазон ячеек для выборки уникальных значений", "Запрос данных", "A2:A51", Type:=8)
    If rVals Is Nothing Then 'если нажата кнопка Отмена
        Exit Sub
    End If
    'если указана только одна ячейка - нет смысла выбирать
    If rVals.Count = 1 Then
        MsgBox "Для отбора уникальных значений требуется указать более одной ячейки", vbInformation, "www.excel-vba.ru"
        Exit Sub
    End If
    'отсекаем пустые строки и столбцы вне рабочего диапазона
    Set rVals = Intersect(rVals, rVals.Parent.UsedRange)
    'если указаны только пустые ячейки вне рабочего диапазона
    If rVals Is Nothing Then
        MsgBox "Недостаточно данных для выбора значений", vbInformation, "www.excel-vba.ru"
        Exit Sub
    End If
    avVals = rVals.Value
    'запрашиваем ячейку для вывода результата
    Set rResultCell = Application.InputBox("Укажите ячейку для вставки отобранных уникальных значений", "Запрос данных", "E2", Type:=8)
    If rResultCell Is Nothing Then 'если нажата кнопка Отмена
        Exit Sub
    End If
    'определяем максимально возможную размерность массива для результата
    ReDim avArr(1 To Rows.Count, 1 To 1)
    'при помощи объекта Коллекции(Collection)
    'отбираем только уникальные записи,
    'т.к. Коллекции не могут содержать повторяющиеся значения
    With New Collection
        On Error Resume Next
        For Each x In avVals
            If Len(CStr(x)) Then 'пропускаем пустые ячейки
                .Add x, CStr(x) 'если добавляемый элемент уже есть в Коллекции - возникнет ошибка
                'если же ошибки нет - такое значение еще не внесено,
                'добавляем в результирующий массив
                If Err = 0 Then
                    li = li + 1
                    avArr(li, 1) = x
                Else
                    'обязательно очищаем объект Ошибки
                    Err.Clear
                End If
            End If
        Next
    End With
    'записываем результат на лист, начиная с указанной ячейки
    If li Then rResultCell.Cells(1, 1).Resize(li).Value = avArr
End Sub

Способ 4: Сводные таблицы

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

• Выделяем один или несколько столбцов в таблице, переходим на вкладку Вставка(Insert) -группа Таблица(Table) —Сводная таблица(PivotTable)
• В диалоговом окне Создание сводной таблицы(Create PivotTable) проверяем правильность выделения диапазона данных (или установить новый источник данных)
• указываем место размещения Сводной таблицы:
  • На новый лист (New Worksheet)
  • На существующий лист (Existing Worksheet)
• подтверждаем создание нажатием кнопки OK

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

• выделил диапазон A1:B51 на листе Извлечение по критерию
• вызвал меню вставки сводной таблицы: вкладка Вставка(Insert) -группа Таблица(Table) —Сводная таблица(PivotTable)
  выбрал вставить на новый лист(New Worksheet)
• назвал этот лист Уникальные сводной таблицей
• поле Данные поместил в область строк
• поле ФИО в область фильтра. Почему? Чтобы удобно было выбирать одно или несколько ФИО и в сводной отображался бы список уникальных месяцев только для выбранных фамилий
  

В чем неудобство работы со сводными в данном случае: при изменении в исходных данных сводную таблицу придется обновлять вручную: Выделить любую ячейку сводной таблицы -Правая кнопка мыши —Обновить(Refresh) или вкладка Данные(Data) —Обновить все(Refresh all) —Обновить(Refresh). А если исходные данные пополняются динамически и того хуже — надо будет заново указывать диапазон исходных данных. И еще один минус — данные внутри сводной таблицы нельзя менять. Поэтому если с полученным списком необходимо будет работать в дальнейшем, то после создания нужного списка при помощи сводной его надо скопировать и вставить на нужный лист.

Чтобы лучше понимать все действия и научиться обращаться со сводными таблицами настоятельно рекомендую ознакомиться со статьей Общие сведения о сводных таблицах — к ней приложен видеоурок, в котором я наглядно демонстрирую простоту и удобство работы с основными возможностями сводных таблиц.

В приложенном примере помимо описанных приемов, записана чуть более сложная вариация извлечения уникальных элементов формулой и кодом, а именно: извлечение уникальных элементов по критерию. О чем речь: если в одном столбце фамилии, а во втором(В) некие данные(в файле это месяцы) и требуется извлечь уникальные значения столбца В только для выбранной фамилии. Примеры подобных извлечений уникальных расположены на листе Извлечение по критерию.

Скачать пример:

  Tips_All_ExtractUnique.xls (108,0 KiB, 18 430 скачиваний)

Также см.:
Работа с дубликатами
Как подсчитать количество повторений
Общие сведения о сводных таблицах

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

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

Пусть в столбце

А

имеется список с

повторяющимися

значениями, например список с названиями компаний.

Задача

В некоторых ячейках исходного списка имеются повторы, а новый список неповторяющихся значений не должен содержать значений, которые повторяются (неповторяющиеся значения в исходном списке выделены с помощью

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

).

Решение

Список

неповторяющихся

значений создадим в столбце

B

с помощью

формулы массива

(см.

файл примера

).

Введем в ячейку

B5

формулу массива

:

=ЕСЛИОШИБКА(ИНДЕКС($A$5:$A$19; ПОИСКПОЗ(0;СЧЁТЕСЛИ(B4:$B$4;$A$5:$A$19)+(СЧЁТЕСЛИ($A$5:$A$19;$A$5:$A$19)<>1);0) );»»)

Для ввода

формулы массива

вместо

ENTER

нужно нажать

CTRL + SHIFT + ENTER

.

Скопируйте формулу вниз с помощью

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

(размерность списка неповторяющихся значений должна совпадать с размерностью исходного списка).

Создание списка с

неповторяющимися значениями

не стоит путать с созданием списка

уникальных значений

(см. статью

Отбор уникальных значений (убираем повторы)

). В файле примера в столбце

С

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

С ростом богатства растут и заботы. Гораций

Поиск уникальных значений в excel формула

Предположим, что у Вас есть вот такой файл по продажам региональных менеджеров:

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

ПРОБЛЕМА: Как формулами извлечь уникальные значения?

РЕШЕНИЕ: Формула массива (вводится нажатием Ctrl+Shift+Enter):

КАК ЭТО РАБОТАЕТ: Функция ПОИСКПОЗ, сравнивающая два массива возвращает ИСТИНА только в том случае, если вхождение искомого значения в массив является первым. В результате работы ПОИСКПОЗ мы получаем массив: <ИСТИНА:ИСТИНА:ИСТИНА:ЛОЖЬ:ИСТИНА:ЛОЖЬ:ИСТИНА:ЛОЖЬ и т.д.>.
С помощью функции ЕСЛИ мы сравниваем получившийся массив с массивом <1:2:3:4:5:6:7:8 и т.д.>, полученном в результате работы функции СТРОКА с заданным диапазоном и в случае если ПОИСКПОЗ вернул ИСТИНА получаем номер строки вхождения.

Собственно говоря задача решена. Теперь остаётся только оформить итог списком. Для этого используем функцию НАИБОЛЬШИЙ, которая создаст вариативный ряд сначала из чисел, потом из значений ЛОЖЬ и функцию ИНДЕКС, которая вернёт нам необходимые текстовые значения из соответствующего массива. В жёлтых ячейках итог:

МИНУСЫ: Формулы массивов сильно замедляют скорость пересчёта листа.

ОБЛАСТЬ ПРИМЕНЕНИЯ: Любая версия Excel

ПРИМЕЧАНИЯ: Для устранения значения ошибки можно использовать проверку на ошибку согласно Вашей версии Excel или использовать Условное Форматирование

Блог о программе Microsoft Excel: приемы, хитрости, секреты, трюки

Создание списка уникальных значений в Excel с помощью формул массивов

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

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

Формула массива будет выглядеть следующим образом:

Вам также могут быть интересны следующие статьи

9 комментариев

У вас описание так сформулировано, что я подумал, что вы ищите слова, которые ни разу не повторились в оригинальном перечне. А оказалось, вы составляете список значений избавленный от дублей. Т.е. список без повторов. Я уже порывался написать, что формула не работает, пока не понял, про что эта статья.

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

Добрый день. Очень нужная формула но с цифрами не работает.

Спасибо большое за полезную формулу!
Подскажите, пожалуйста, как можно доработать данную формулу так, чтобы она считала слова в разных регистрах разными, а не дублями одного и того же?

Формула не рабочая

Все работает, кавычки замените!
Подскажите, что надо изменить что бы работала для горизонтальных строк данных, вместо вертикальных

А если нужно создать список уникальных ячеек с диапазона, например B2:H15 ?

формула массива — это фантастика. Большое спасибо!

Отбор уникальных значений (убираем повторы из списка) в MS EXCEL

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

Пусть в столбце А имеется список с повторяющимися значениями, например список с названиями компаний.

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

Для наглядности уникальные значения в исходном списке выделены цветом с помощью Условного форматирования.

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

Для создания Динамического диапазона:

• на вкладке Формулы в группе Определенные имена выберите команду Присвоить имя;
• в поле Имя введите: Исходный_список;
• в поле Диапазон введите формулу =СМЕЩ(УникальныеЗначения!$A$5;;; СЧЁТЗ(УникальныеЗначения!$A$5:$A$30))
• нажмите ОК.

Список уникальных значений создадим в столбце B с помощью формулы массива (см. файл примера ). Для этого введите следующую формулу в ячейку B5:

После ввода формулы вместо ENTER нужно нажать CTRL + SHIFT + ENTER. Затем нужно скопировать формулу вниз, например, с помощью Маркера заполнения. Чтобы все значения исходного списка были гарантировано отображены в списке уникальных значений, необходимо сделать размер списка уникальных значений равным размеру исходного списка (на тот случай, когда все значения исходного списка не повторяются). В случае наличия в исходном списке большого количества повторяющихся значений, список уникальных значений можно сделать меньшего размера, удалив лишние формулы, чтобы исключить ненужные вычисления, тормозящие пересчет листа.

Разберем работу формулу подробнее:

• Здесь использование функции СЧЁТЕСЛИ() не совсем обычно: в качестве критерия (второй аргумент) указано не одно значение, а целый массив Исходный_список , поэтому функция возвращает не одно значение, а целый массив нулей и единиц. Возвращается 0, если значение из исходного списка не найдено в диапазоне B4:B4(B4:B5 и т.д.), и 1 если найдено. Например, в ячейке B5 формулой СЧЁТЕСЛИ(B$4:B5;Исходный_список) возвращается массив <1:0:0:0:0:0:0:1:0:0:0:0:1:1:0>. Т.е. в исходном списке найдено 4 значения «ООО Рога и копытца» (B5). Массив легко увидеть с помощью клавиши F9 (выделите в Строке формул выражение СЧЁТЕСЛИ(B$4:B5;Исходный_список) , нажмите F9: вместо формулы отобразится ее результат);
• ПОИСКПОЗ() – возвращает позицию первого нуля в массиве из предыдущего шага. Первый нуль соответствует значению еще не найденному в исходном списке (т.е. значению «ОАО Уважаемая компания» для формулы в ячейке B5);
• ИНДЕКС() – восстанавливает значение по его позиции в диапазоне Исходный_список ;
• ЕСЛИОШИБКА() подавляет ошибку, возникающую, когда функция ПОИСКПОЗ() пытается в массиве нулей и единиц, возвращенном СЧЁТЕСЛИ() , найти 0, которого нет (ситуация возникает в ячейке B12, когда все уникальные значения уже извлечены из исходного списка).

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

Примечание. Функция ЕСЛИОШИБКА() будет работать начиная с версии MS EXCEL 2007, чтобы обойти это ограничение читайте статью про функцию ЕСЛИОШИБКА() . В файле примера имеется лист Для 2003, где эта функция не используется.

Решение для списков с пустыми ячейками

Если исходная таблица содержит пропуски, то нужно использовать другую формулу массива (см. лист с пропусками файла примера ):
=ЕСЛИОШИБКА(ИНДЕКС($A$5:$A$19;
ПОИСКПОЗ( 0;ЕСЛИ(ЕПУСТО($A$5:A19);»»;СЧЁТЕСЛИ($B$4:B4;$A$5:$A$19));0)
);»»)

Решение без формул массива

Для отбора уникальных значений можно обойтись без использования формул массива. Для этого создайте дополнительный служебный столбец для промежуточных вычислений (см. лист «Без CSE» в файле примера ).

СОВЕТ: Список уникальных значений можно создать разными способами, например, с использованием Расширенного фильтра (см. статью Отбор уникальных строк с помощью Расширенного фильтра), Сводных таблиц или через меню Данные/ Работа с данными/ Удалить дубликаты . У каждого способа есть свои преимущества и недостатки. Преимущество использования формул состоит в том, чтобы при добавлении новых значений в исходный список, список уникальных значений автоматически обновлялся.

СОВЕТ2: Для тех, кто создает список уникальных значений для того, чтобы в дальнейшем сформировать на его основе Выпадающий список, необходимо учитывать, что вышеуказанные формулы возвращают значение Пустой текст «», который требует аккуратного обращения, особенно при подсчете значений (вместо обычной функции СЧЕТЗ() нужно использовать СЧЕТЕСЛИ() со специальными аргументами). Например, см. статью Динамический выпадающий список в MS EXCEL.

Примечание: В статье Восстанавливаем последовательности из списка без повторов в 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.

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

​Смотрите также​​ теряется права на​ находиться на любом​ (можно и без​ «вариант с формулами»​: а сводная таблица​ (из столбцов) -​ меню​:​:​ 5 в диапазоне​ удобства сделан выпадающий​Форматировать только уникальные или​стиль​Снять выделение всех​ на листе и​ мере одна строка​Примечание:​ редактирования результата =(​ листе.​ поп. столбца, только​ или чтобы подсчёт​

​ не подойдет под​ неудается применить формулу.​Вставка — Имя -​Тогда дальнейшая задача будет​

• ​В открывшемся окне нужно​A1:A6​​ список), формула пересчитает​ ​ повторяющиеся значения​щелкните маленькую стрелку​​и выберите в разделе​
  

• ​ нажмите кнопку​ идентичны всех значений​​Мы стараемся как​может кто поможет​ ​верхняя левая ячейка​ ​ формула увеличится в​​ вёлся «динамически»?​
  

• ​ это действо?​Понравилась формула (массива):​​ Присвоить​​ сводиться к поиску​​ с помощью флажков​​, используя следующую формулу:​​ количество уникальных.​​.​

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

​Условное форматирование​столбцы​Развернуть​ в другую строку.​ можно оперативнее обеспечивать​ разобраться, как макрос​ списка должна иметь​ размере раза в​это таки не​Czeslav​Код {=ИНДЕКС($A$2:$A$51;НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($C$1:C1;$A$2:$A$51)=0;СТРОКА($A$1:$A$50));1))} Описание:​(Insert — Name -​ дубликатов уже в​ задать те столбцы,​=COUNTIF(A1:A6,5)​

​Аналогичным образом можно решить​В списке​и затем щелкните​выберите столбцы.​.​ Сравнение повторяющихся значений​ вас актуальными справочными​ сделать на много​ имя «результат».​ три, и считать​ одно и то​: Промучился полтора дня​список с данными​ Define)​ одном столбце.​ по которым необходимо​=СЧЁТЕСЛИ(A1:A6;5)​ задачу с двумя​Формат все​Элемент правила выделения ячеек​Примечание:​

​Установите флажок​ зависит от того,​​ материалами на вашем​ диапазонов, вот, ято​Michael_S​ она будет медленнее)​ же.​Прикладываю файл.​ у Вас расположен​:​Чуть более сложный способ,​ обеспечивать уникальность. Т.е.​

Фильтрация уникальных значений

​Чтобы подсчитать уникальные значения,​

1. ​ условиями.​Измените описание правила​и выберите​ Данные будут удалены из​

2. ​только уникальные записи​​ что отображается в​​ языке. Эта страница​​ я сделал, но​​: Я бы для​​Формула получилась нечувствительна​​DStuart​

   

3. ​Vlad999​​ в столбце А(А1:А51,​​диапазону номеров (A1:A100) -​ чем первые два,​

​ если включить все​ добавим функцию​=СУММПРОИЗВ(((A14:A23=A8)*(B14:B23=B8))/СЧЁТЕСЛИМН(A14:A23;A14:A23;B14:B23;B14:B23;C14:C23;C14:C23))​

• ​выберите​​Повторяющиеся значения​​ всех столбцов, даже​

​, а затем нажмите​ ячейке, не базового​

• ​ переведена автоматически, поэтому​​ не работает =((((​​ себя тоже предпочел​

• ​ к регистру​​: По поводу формул​​: Ещё один вариант.​ где А1 –​

• ​ имя​​ но зато -​ ​ флажки, то будут​SUM​В этом случае будут​уникальные​​.​ ​ если вы не​

• ​кнопку ОК​​ значения, хранящегося в​​ ее текст может​​ HELP!!!!​​ макрос… но по​

​Michael_S​ я имел ввиду​Уникальные значения вытягиваются​

Удаление повторяющихся значений

​ заголовок). Выводить список​NameCount​ динамический, т.е. с​ удалены только полностью​(СУММ), 1/, и​ подсчитаны уникальные товары​или​Введите значения, которые вы​ выбрали всех столбцов​.​ ячейке. Например, если​ содержать неточности и​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​ заявке ТС -​

​: и офис 2003?​ без макросов, т.к​ по алфавиту, только​ мы будем в​всему списку с номерами​ автоматическим пересчетом, т.е.​ совпадающие строки. Если​

​ заменим 5 на​

1. ​ только в строках,​повторяющиеся​ хотите использовать и​ на этом этапе.​

2. ​Уникальные значения из диапазона​​ у вас есть​​ грамматические ошибки. Для​​Private Sub Worksheet_Change(ByVal​​ формулы.​​ (впрочем, не особо​​ я в них​

   

3. ​ надо обратить внимание,​ столбец С, начиная​

   • ​ (A1:B100) — имя​​ если список редактируется​​ включить только флажок​A1:A6​

   • ​ для которых Продавец​.​​ нажмите кнопку Формат.​​ Например при выборе​

   • ​ скопирует на новое​ то же значение​​ нас важно, чтобы​​ Target As Range)​

     ​Vyacheslav​ важно)… тяжеловато для​ не силен. Я​ что для первой​ с ячейки С2.​NameList​​ или в него​​ заказчик, то останется​​.​​ и Месяц совпадают​

     ​Нажмите кнопку​​Расширенное форматирование​ Столбец1 и Столбец2,​ место.​ даты в разных​ эта статья была​Dim d As​: ikki, Отличный макрос!​ формулы будет, может​ хочу понимать что​ строки одна формула,​ Формула в C2​Теперь осталось выбрать из​ дописываются еще элементы,​ только по одной​=SUM(1/COUNTIF(A1:A6,A1:A6))​ с критериями, установленными​Формат​Выполните следующие действия.​

4. ​ но не Столбец3​​При удалении повторяющихся значений​​ ячейках, один в​ вам полезна. Просим​ Object, arr, el,​А как сделать,​ памяти не хватить…​ я делаю)​​ а для последующих-другая.​​ будет следующая:​ списка​

5. ​ то они автоматически​ строке для каждого​=СУММ(1/СЧЁТЕСЛИ(A1:A6;A1:A6))​ в желтых ячейках.​

Удаление дубликатов с промежуточными итогами или структурированных данных проблем

​для отображения во​Выделите одну или несколько​ используется для поиска​ на значения в​ формате «3/8/2006», а​ вас уделить пару​ n&​ если необходимо применить​Michael_S​По поводу «динамически»​trash50​Код {=ИНДЕКС($A$2:$A$51;НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($C$1:C1;$A$2:$A$51)=0;СТРОКА($A$1:$A$50));1))} вводится​

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

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

​ ячеек в диапазоне,​

​ дубликатов «ключ» —​

1. ​ диапазоне ячеек или​ другой — как​ секунд и сообщить,​Dim f As​

2. ​ этот макрос на​​: С помощью доп.​​ я имею ввиду​​:​​ формула в ячейку​​все элементы имеющие​​ и отбираются. В​​Если у вас Excel​​Ctrl+Shift+Enter​​ листе Два критерия​​Формат ячеек​
   

3. ​ таблице или отчете​ значение ОБА Столбец1​ таблице — единственный​

​ «8 мар «2006​

​ помогла ли она​

1. ​ Object, arw, em,​ несколько диапазонов и​ таблицы, по размеру​ если меняется изменяется​

2. ​trash50​​ сочетанием клавиш –​​ номер — это​​ предыдущих способах при​​ 2003 или старше,​​.​​ приведено решение этой​​.​​ сводной таблицы.​ & Столбец2.  Если дубликат​​ эффект. Другие значения​​ г. значения должны​
   

3. ​ вам, с помощью​ k&​

   • ​ каждый диапазон выводить​ равной исходной. Регистр​​ содержимое массива, то​​, что то я​ Ctrl+Shift+Enter. После того,​​ и будут наши​​ изменении исходного списка​

   • ​ то для удаления​Примечание:​ задачи с помощью​​Выберите номер, шрифт, границы​​На вкладке​ находится в этих​ вне диапазона ячеек​ быть уникальными.​​ кнопок внизу страницы.​ ​If Not Intersect(Target,​​ отдельно?​​ различает. Для проверки​ итоги подсчитываются автоматически​ не пойму что​ как мы ввели​ уникальные представители. Сделать​ нужно будет заново​​ дубликатов и вытаскивания​Строка формул указывает,​​ Сводной таблицы. В​​ и заливка формат,​Главная​​ столбцах, затем всей​​ или таблице не​

4. ​Установите флажок перед удалением​​ Для удобства также​​ [диапазон1]) Is Nothing​​ikki​ -​​ (кол-во совпадений в​

5. ​ вы делаете. в​​ эту формулу в​​ это можно в​​ запускать​​ из списка уникальных​​ что это формула​​ этом случае выводится​​ который нужно применять,​

6. ​в группе​​ строки будут удалены,​​ будет изменить или​ дубликаты:​​ приводим ссылку на​​ Then Exit Sub​

7. ​: например?​F9​ массиве), а не​ вашей формуле диапазон​ C2​ любой пустой ячейке​​Расширенный фильтр​​ (неповторяющихся) элементов можно​ массива, заключая её​ не количество уникальных,​ если значение в​Стили​​ включая другие столбцы​​ переместить.  При удалении​

support.office.com

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

​Перед удалением повторяющиеся​ оригинал (на английском​Set d =​

​Vyacheslav​DStuart​ путем ручных манипуляций​ данных (первый аргумент)​мы её должны скопировать​ соседних столбцов, введя​или жать на​ использовать​ в фигурные скобки​ а список уникальных​ ячейке удовлетворяет условию​

Задача1

​щелкните стрелку для​ в таблицу или​ повторяющихся данных, хранящихся​

​ значения, рекомендуется установить​ языке) .​ CreateObject(«scripting.dictionary»)​: есть «диапазон1» и​: То что надо.​ например через «сводную​ на одном листе​ и вставить​

​ туда вот такую​ кнопку​Расширенный фильтр (Advanced Filter) ​ {}. Их не​ товаров.​

​ и нажмите кнопку​​Условного форматирования​​ диапазон.​ в первое значение​ для первой попытке​В Excel существует несколько​d.CompareMode = 0​

Задача2

​ «диапазон2» и нужно​ Работает!!! Всем большое​ таблицу».​

​ большой, а проверку​

​в несколько строк​ формулу с известной​Удаление дубликатов.​из меню (вкладки)​ нужно вводить самостоятельно.​Теперь рассмотрим другую таблицу​ОК​

​и выберите пункт​Нажмите кнопку​ в списке, но​ выполнить фильтрацию по​ способов фильтр уникальных​arr = [диапазон1].Value​ вывести «результат1» и«результат2».​ спасибо!​Michael_S​

Задача3

​ делаете по диапазону​ так, чтобы точно​ функцией ВПР (VLOOKUP) и​

​Итак, снова имеем список​Данные (Data)​ Они исчезнут, когда​

​ (столбцы А:С на​. Вы можете выбрать​Управление правилами​ОК​ других идентичных значений​ — или применить​ значений — или​For Each el​

​Как сложить структуру​ikki​: ваш вариант данных,​ намного меньше указанного​ отобразить все уникальные​ скопировав ее вниз​ беспорядочно повторяющихся элементов.​.​ вы начнете редактировать​ рисунке ниже).​ более одного формата.​, чтобы открыть​, и появится сообщение,​ удаляются.​

​ условное форматирование на​ удаление повторяющихся значений:​ In arr​ макроса, если у​

​: каюсь — был​ даже если попросите​

excel2.ru

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

​ в первом аргументе.​ элементы…​ на весь столбец:​ Например, такой:​

1. ​Предположим, что у нас​​ формулу.​​Необходимо вывести количество заключенных​ Форматы, которые можно​ всплывающее окно​​ чтобы указать, сколько​​Поскольку данные будут удалены​

   ​ — для подтверждения​
​Чтобы фильтр уникальных значений,​

   

2. ​If Not IsEmpty(el)​ меня диапазонов может​​ неправ. макрос может​​ — в сводную​Vlad999​​Ссылка: (Способ 2.​​=ЕСЛИ(МАКС(NameCount)​

   ​Первая задача - пронумеровать​
​ имеется вот такой​

   

3. ​Пояснение:​​ договоров в каждом​​ выбрать, отображаются на​

   

​Диспетчер правил условного форматирования​​ повторяющиеся значения были​ окончательно, перед удалением​ добиться таких результатов,​ нажмите кнопку​ Then d.Item(el) =​ быть больше 2х​ понадобиться к.-нибудь другому.​ не загнать…​: это ошибочно.​

​ Формулы)​

• ​или в английской версии​ всех уникальных представителей​​ список беспорядочно повторяющихся​​Диапазон (массив констант), созданный​ месяце.​ панели​.​
• ​ удалены или остаются​ повторяющихся значений рекомендуется​ предполагается, что уникальные​данных >​ d.Item(el) + 1​ и результат нужно​выкладываю (хотя он​Доп. столбцы тоже,​- проверка должна​
• ​Немогу применить данную​ Excel:​
• ​ списка, дав каждому​ названий компаний:​ с помощью функции​​Т.к. в таблице ведется​​предварительного просмотра​Выполните одно из действий,​

​ количества уникальных значений.​ скопировать исходный диапазон​
​ значения.​
​Сортировка и фильтр >​

​Next​

office-guru.ru

Извлечение уникальных элементов из диапазона

Способ 1. Штатная функция в Excel 2007

​ выводить на каждый​ очень простой):​ как и макросы​ осуществлятся по всему​ формулу.​​=IF(MAX(NameCount)​ свой номер (столбец​Выбираем в меню​​COUNTIF​

​ учет счетов сразу​.​ указанных ниже.​ Нажмите кнопку​ ячеек или таблицу​Выполните следующие действия.​ Дополнительно​n = Application.Min(Rows.Count​ диапазон​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Worksheet_Change(ByVal Target​ — не устраивают?​ большому диапазону, но​(P.S. времени и​Эта формула проходит сверху​

Способ 2. Расширенный фильтр

​ А на рисунке).​Данные — Фильтр -​(СЧЁТЕСЛИ), хранится в​ для всех договоров​Подсчитаем Уникальные значения с​Чтобы добавить условное форматирование,​ОК​​ в другой лист​​Выделите диапазон ячеек или​​.​​ — [результат1].Rows(1).Row +​

​Hugo​ As Range)​ Диапазон в реале​ уменя так не​

​ методов ‘копирования’ (/’вставки’)​​ вниз по столбцу​ Для этого вставляем​​ Расширенный фильтр​ памяти Excel, а​​ и по каждому​​ одним и двумя​

​ нажмите кнопку​

• ​, чтобы закрыть​ или книгу.​​ убедитесь, что активная​​Чтобы удалить повторяющиеся значения,​
• ​ 1, UBound(arr) *​​: Я бы вместо​Dim d As​ какой?​​ работает.​ потратил недопустимо много).​
• ​NameCount​​ в ячейку А2​​(Data — Filter -​​ не в ячейках​​ договору может быть​​ условиями.​

​Создать правило​

​ сообщение.​Выполните следующие действия.​ ячейка находится в​ нажмите кнопку​ UBound(arr, 2))​ макроса на событие​ Object, arr, el,​ikki​опишите словами что​​Прошу Вашей помощи.​​и выводит все​

​ и копируем затем​ Advanced Filter)​ листа.​ выставлено несколько счетов,​

Способ 3. Выборка уникальных записей формулой

​Про подсчет уникальных текстовых​для отображения во​U тменить отменить изменения,​Выделите диапазон ячеек или​ таблице.​данные > Работа с​Application.ScreenUpdating = False​ применял массивную UDF.​ i&, j&, n&​: на всякий случай​ с чем нужно​AleksSid​ позиции списка с​ вниз до упора​.​​Массив констант выглядит следующим​​ то номера договоров​ и числовых значений​​ всплывающем окне​

​ щелкните (или нажать​ убедитесь, что активная​Нажмите кнопку​

​ данными​With [результат1].Resize(n, 2)​ Алгоритм на словаре,​If Intersect(Target, [диапазон])​ — макрос готов​ сравнивать и от​: Я думаю будут​ номерами в отдельную​ следующую формулу:​Получаем окно:​

​ образом: {3;1;1;1;3;3}, что​

​ могут повторяться.​ (без условий) можно​

​Создание правила форматирования​

​ клавиши Ctrl +​ ячейка находится в​данные > Дополнительно​>​.ClearContents​ как у​ Is Nothing Then​ (запускается не по​ куда выводить список​ и другие варианты.​

​ таблицу:​=ЕСЛИ(СЧЁТЕСЛИ(B$1:B2;B2)=1;МАКС(A$1:A1)+1;»»)​В нем:​ обозначает: три числа​Создадим дополнительный столбец для​ прочитать в статье Подсчет​.​ Z на клавиатуре).​ таблице.​​(​Удалить повторения​.Columns(1).Resize(d.Count) = Application.Transpose(d.Keys)​​ikki​ Exit Sub​ кнопке, а автоматически​​ уникальных согласно вашего​ Код =ЕСЛИОШИБКА(ИНДЕКС($B$2:$B$16;НАИБОЛЬШИЙ(ЕСЛИ(ПОИСКПОЗ($B$2:$B$16;$B$2:$B$16;0)=СТРОКА($A$1:$A$15);СТРОКА($A$1:$A$15));СТРОКА(A1)));»»)​ ​Ktulu​В английской версии это​​Выделяем наш список компаний​

• ​ 7, одно значение​ определения месяца заключения​​ Уникальных ТЕКСТовых значений​
• ​Убедитесь, что выбран соответствующий​Нельзя удалить повторяющиеся значения​​На вкладке​

​в​.​​.Columns(2).Resize(d.Count) = Application.Transpose(d.Items)​​.​Set d =​ при изменении данных),​ файла.​Vlad999​: Добрый день, уважаемые​ будет:​ в​ «sun», одно значение​ договора (см. статью​ в MS EXCEL и Подсчет​ лист или таблица​

​ из структуры данных,​

​данные​группа​

​Чтобы выделить уникальные или​

​End With​Правда в исходной​​ CreateObject(«scripting.dictionary»)​​ но выкладывать пока​DStuart​:​ коллеги!​

planetaexcel.ru

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

​=IF(COUNTIF(B$1:B2;B2)=1;MAX(A$1:A1)+1;»»)​​Исходный диапазон (List Range)​ «moon», одно число​
​ Название месяца прописью​ Уникальных ЧИСЛОвых значений​ в списке​
​ структурированный или, в​нажмите кнопку​
​Сортировка и фильтр​
​ повторяющиеся значения, команда​

​If Not Intersect(Target,​​ задаче пришлось бы​​d.CompareMode = 0​​ не буду.​

​: Добрый день! Помогите​​trash50​
​Прошерстил поиск, но​
​Эта формула проверяет сколько​.​
​ 5, три числа​
​ в MS EXCEL).​ в MS EXCEL.​
​Показать правила форматирования для​

​ котором содержится промежуточные​​Удалить повторения​

excelworld.ru

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

​).​​Условного форматирования​ [диапазон2]) Is Nothing​ забивать её на​arr = [диапазон].Value​
​пс. «двумерный», «чтобы»,​
​ пожалуйста автоматизировать процесс​
​, ее надо просто​ точного ответа так​ раз текущее наименование​Ставим переключатель в положение​ 7, три числа​ Выведем из этого​ В этой статье​изменения условного форматирования,​ итоги. Чтобы удалить​(в группе​
​В поле всплывающего окна​в группе​ Then Exit Sub​ весь лист (одну),​For Each el​ «в виду»… что​ выборки и подсчета​​ растянуть, если копировать/вставить​ и не нашёл.​​ уже встречалось в​Скопировать результат в другое​ 7.​ столбца только уникальные​
​ рассмотрим более сложные​ начинается. При необходимости​
​ дубликаты, необходимо удалить​Работа с данными​
​Расширенный фильтр​стиль​Set f =​
​ и при худшем​

​ In arr​​ там ещё у​ количества уникальных значений​ — тогда каждый​

​Нужно просуммировать уникальные​​ списке (считая с​​ место (Copy to​​Все это сводится к​ месяцы (см. статью​ варианты с условиями.​ выберите другой диапазон​ структуры и промежуточные​
​).​выполните одно из​

​на вкладке «​​ CreateObject(«scripting.dictionary»)​​ раскладе места на​​If Not IsEmpty(el)​ вас в загашнике?​ из двухмерного массива.​
​ раз вводить как​ значения в диапазоне​ начала), и если​ another location)​ {1/3;1/1;1/1;1/1;1/3;1/3}.​ Отбор уникальных значений​Пусть имеется таблица с​ ячеек, нажав кнопку​ итоги. Для получения​Выполните одно или несколько​

​ указанных ниже действий.​​Главная​f.CompareMode = 0​ заголовки нет -​

​ Then d.Item(el) =​​DStuart​
​Интересует вариант с​

​ формулу массива.​​Для 2003 Экселя.​
​ это количество =1,​и указываем пустую​Этот массив констант используется​ (убираем повторы из​ перечнем продаж по​Свернуть​

​ дополнительных сведений отображается​​ следующих действий.​​Чтобы отфильтровать диапазон ячеек​​».​arr = [диапазон2].Value​ т.е. если забить​ d.Item(el) + 1​: Доб столбцы как​ формулами. Нужно, что​Приложите файл, в​Заранее спасибо​ т.е. элемент встретился​ ячейку.​

​ в качестве аргумента​​ списка) в MS​
​ продавцам.​во всплывающем окне​ Структура списка данных​В разделе​ или таблицы в​

​Фильтр уникальных значений и​For Each em​ под заголовки, то​Next​ вариант можно (потом​ бы подсчет велся​

CyberForum.ru

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

​ котором не получается.​​buchlotnik​ первый раз -​Включаем (самое главное!) флажок​ для функции​ EXCEL) и поместим​
​Требуется подсчитать сколько различных​относится к​ на листе «и»​столбцы​ программе:​ удаление повторяющихся значений​ In arw​ при всех уникальных​n = Application.Min(Rows.Count​ спрячу), макросы в​ динамически по мере​
​snipe​

​: можно так (массивка):​​ дает ему последовательно​Только уникальные записи​SUM​ их в столбец​

​ товаров продал конкретный​​временно скрыть ее.​
​ удалить промежуточные итоги.​выберите один или несколько​Выберите​ являются две сходные​
​If Not IsEmpty(em)​ будет ошибка… Но​ — [результат].Rows(1).Row +​

​ крайнем случае.​​ изменения содержимого массива,​:​=СУММ(ЕСЛИ((C4:C33)>0;C4:C33/СЧЁТЕСЛИ(C4:C33;C4:C33);0))​ возрастающий номер.​(Uniqe records only)​(СУММ), давая результат​ F.​
​ продавец. Например, Вася​ Выберите новый диапазон​Примечание:​ столбцов.​фильтровать список на месте​ задачи, поскольку цель​ Then f.Item(em) =​ ошибка будет и​ 1, UBound(arr) *​Диапазон 256×256 ячеек.​

​ а не через​​trash50​чуть короче можноКод=СУММ(ЕСЛИ(C4:C33;C4:C33/СЧЁТЕСЛИ(C4:C33;C4:C33);))​Для упрощения адресации дадим​и жмем​
​ 4.​И, наконец, помощью формулы =СУММПРОИЗВ(($D$9:$D$26=F9)/СЧЁТЕСЛИ($A$9:$A$26;$A$9:$A$26))​ продал 1 товар1,​ ячеек на листе,​ Условное форматирование полей в​

​Чтобы быстро выделить все​​.​ — для представления​ f.Item(em) + 1​ в этом макросе​ UBound(arr, 2))​ Могу собственно приложить​ интерфейс сводной таблицы.​
​, если вдруг не​vikttur​ нашим диапазонам (например,​ОК​

​Урок подготовлен для Вас​​ подсчитаем количество уникальных​ 2 Товара2 и​ а затем разверните​ области «Значения» отчета​
​ столбцы, нажмите кнопку​Чтобы скопировать в другое​ списка уникальных значений.​Next​ при таком раскладе.​Application.ScreenUpdating = False​

​ вырезку того, что​​ Примерно в каком​ знаете что это​: Форула массива:​ исходя из того,​.​

​ командой сайта office-guru.ru​​ договоров в соответствующем​ 1 Товар4 (выделено​ узел во всплывающем​ сводной таблицы по​Выделить все​ место результаты фильтрации:​ Есть важные различия,​k = Application.Min(Rows.Count​
​Но если диапазоны​With [результат].Resize(n, 2)​

​ нужно свести. Это​​ виде мне это​ такое:​=СУММ(ЕСЛИОШИБКА(C4:C33/СЧЁТЕСЛИ(C4:C33;C4:C33);))​ что в списке​Получите список без дубликатов:​

​Источник: http://www.excel-easy.com/examples/count-unique-values.html​​ месяце.​ зеленым). Всего 3​ окне еще раз​ уникальным или повторяющимся​.​​Нажмите кнопку​

​ однако: при фильтрации​​ — [результат2].Rows(1).Row +​ поменьше, то вполне​.ClearContents​

​ расчет решетки Пеннета​​ нужно см.в приложенном​при наведении курсора​Как обычная, должна​
​ может быть до​Если требуется искать дубликаты​
​Перевела: Ольга Гелих​Решение также возможно с​
​ разных товара.​. Выберите правило​ значениям невозможно.​
​Чтобы быстро удалить все​Копировать в другое место​ уникальных значений повторяющиеся​
​ 1, UBound(arw) *​ применимо. Сколько диапазонов​
​.Columns(1).Resize(d.Count) = Application.Transpose(d.Keys)​
​ (расчет генотипов).​
​ файле.​ на правый нижний​
​ быть шустрее:​ 100 элементов) имена.​ не по одному,​
​Автор: Антон Андронов​
​ помощью Сводной таблицы.​Это можно подсчитать формулой =СУММПРОИЗВ((A13:A21=A7)/СЧЁТЕСЛИМН(B13:B21;B13:B21;A13:A21;A13:A21)),​ и нажмите кнопку​Быстрое форматирование​
​ столбцы, нажмите кнопку​
​.​
​ значения будут видны​
​ UBound(arw, 2))​
​ - столько применяем​
​.Columns(2).Resize(d.Count) = Application.Transpose(d.Items)​
​DStuart​
​За ранее спасибо!​ угол ячейки курсор​Код=СУММПРОИЗВ(—(ПОИСКПОЗ(C4:C33;—C4:C33;)=СТРОКА(C4:C33)-3);C4:C33)​ Это можно сделать​ а по нескольким​
​Начиная с 2007-й версии​Этот пример показывает, как​ которая будет работать​
​Изменить правило​Выполните следующие действия.​Снять выделение​

​В поле​​ только временно. Тем​Application.ScreenUpdating = False​ UDF.​End With​: Во вложении вырезка​

​DStuart​​ сменит вид на​
​Она же, формула​ в новых версиях​ столбцам, то можно​ функция удаления дубликатов​ создать формулу массива,​ только с версии​

​, чтобы открыть​​Выделите одну или несколько​

​.​​Копировать​ не менее удаление​With [результат2].Resize(k, 2)​
​Vyacheslav​End Sub​ из того, где​: Да, забыл сказать​ крестик, жмем ЛКМ​ массива:​ Excel на вкладке​

​ предварительно склеить их​​ является стандартной -​ которая подсчитает уникальные​ MS EXCEL 2007​ всплывающее окно​ ячеек в диапазоне,​​Если диапазон ячеек или​​введите ссылку на​
​ повторяющихся значений означает,​.ClearContents​: Hugo, Мне нравится​макрос должен быть​ нужно проводить выборку.​ для меня важно,​ (левую кнопку мыши)​Код=СУММ(ЕСЛИ(ПОИСКПОЗ(C4:C33;—C4:C33;)=СТРОКА(C4:C33)-3;C4:C33))​Формулы — Диспетчер имен​ в один, сделав,​ найти ее можно​ значения.​ из-за функции СЧЁТЕСЛИМН().​Изменение правила форматирования​
​ таблице или отчете​ таблица содержит много​ ячейку.​ что вы окончательное​.Columns(1).Resize(f.Count) = Application.Transpose(f.Keys)​

​ эта идея! сейчас​​ размещен в модуле​ Комбинации могут быть​ что бы процесс​

​ и не отпуская​​Ktulu​ (Formulas — Name​ своего рода, составной​ на вкладке​
​Воспользуемся функцией​Изменив в ячейке​.​ сводной таблицы.​ столбцов, чтобы выбрать​Кроме того нажмите кнопку​ удаление повторяющихся значений.​
​.Columns(2).Resize(f.Count) = Application.Transpose(f.Items)​
​ буду пробовать​ листа (того, где​
​ сколь угодно разными.​ выборки учитывал регистр.​ её тянем вниз​
​: Большое спасибо!​ manager)​ ключ с помощью​
​Данные - Удаление дубликатов​COUNTIF​А7​
​В разделе​На вкладке​
​ несколько столбцов только​
​Свернуть диалоговое окно​
​Повторяющееся значение входит в​End With​
​Vyacheslav​ находится исх. диапазон​MCH​
​ikki​
​ или в нужном​trash50​или в старых​ функции​
​ (Data - Remove​
​(СЧЁТЕСЛИ). Для примера​
​имя продавца (в​
​выберите тип правила​
​Главная​
​ может проще нажмите​
​временно скрыть всплывающее​ котором все значения​End Sub​
​: Хорошо конечно применять​ с именем "диапазон")​
​: Вариант формульного решения​
​: давайте уточним?​
​ вам направлении.​: Получить список уникальных​
​ версиях - через​СЦЕПИТЬ (CONCATENATE)​ Duplicates)​
​ подсчитаем количество чисел​
​ файле примера для​нажмите кнопку​в группе​ кнопку​
​ окно, выберите ячейку​
​ в по крайней​
​Оформляйте коды тегами!​
​ массивную UDF, но​
​результирующий список может​
​ с доп. столбцом​
​вас интересует именно​
​trash50​

excelworld.ru

​ (не повторяющихся) значений​

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

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

Для примера возьмем историю взаиморасчетов с контрагентами, как показано на рисунке:

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

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

1. Выделите первый столбец таблицы A1:A19.
2. Выберите инструмент: «ДАННЫЕ»-«Сортировка и фильтр»-«Дополнительно».



3. В появившемся окне «Расширенный фильтр» включите «скопировать результат в другое место», а в поле «Поместить результат в диапазон:» укажите $F$1.



4. Отметьте галочкой пункт «Только уникальные записи» и нажмите ОК.

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



Теперь нам необходимо немного модифицировать нашу исходную таблицу. Выделите первые 2 строки и выберите инструмент: «ГЛАВНАЯ»-«Ячейки»-«Вставить» или нажмите комбинацию горячих клавиш CTRL+SHIFT+=.

У нас добавилось 2 пустые строки. Теперь в ячейку A1 введите значение «Клиент:».

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

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

1. Перейдите в ячейку B1 и выберите инструмент «ДАННЫЕ»-«Работа с данными»-«Проверка данных».



2. На вкладке «Параметры» в разделе «Условие проверки» из выпадающего списка «Тип данных:» выберите значение «Список».



3. В поле ввода «Источник:» введите =$F$4:$F$8 и нажмите ОК.

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

Примечание. Если данные для выпадающего списка находятся на другом листе, то лучше для такого диапазона присвоить имя и указать его в поле «Источник:». В данном случае это не обязательно, так как у нас все данные находятся на одном рабочем листе.

Выборка ячеек из таблицы по условию в Excel:

1. Выделите табличную часть исходной таблицы взаиморасчетов A4:D21 и выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило»-«Использовать формулу для определения форматируемых ячеек».




2. Чтобы выбрать уникальные значения из столбца, в поле ввода введите формулу: =$A4=$B$1 и нажмите на кнопку «Формат», чтобы выделить одинаковые ячейки цветом. Например, зеленым. И нажмите ОК на всех открытых окнах.

Готово!

Как работает выборка уникальных значений Excel? При выборе любого значения (фамилии) из выпадающего списка B1, в таблице подсвечиваются цветом все строки, которые содержат это значение (фамилию). Чтобы в этом убедится в выпадающем списке B1 выберите другую фамилию. После чего автоматически будут выделены цветом уже другие строки. Такую таблицу теперь легко читать и анализировать.

Скачать пример выборки из списка с условным форматированием.

Принцип действия автоматической подсветки строк по критерию запроса очень прост. Каждое значение в столбце A сравнивается со значением в ячейке B1. Это позволяет найти уникальные значения в таблице Excel. Если данные совпадают, тогда формула возвращает значение ИСТИНА и для целой строки автоматически присваивается новый формат. Чтобы формат присваивался для целой строки, а не только ячейке в столбце A, мы используем смешанную ссылку в формуле =$A4.