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              531898 просмотров

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

Представим себе большой список различных наименований, ФИО, табельных номеров и т.п. А необходимо из этого списка оставить список все тех же наименований, но чтобы они не повторялись — т.е. удалить из этого списка все дублирующие записи. Как это иначе называют: создать список уникальных элементов, список неповторяющихся, без дубликатов. Для этого существует несколько способов: встроенными средствами 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
ссылки
статистика

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

​Смотрите также​​ теряется права на​ находиться на любом​ (можно и без​ «вариант с формулами»​: а сводная таблица​ (из столбцов) -​ меню​:​:​ 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

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