Список без дубликатов excel

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

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

А

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

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

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

Задача

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

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

с помощью Условного форматирования

.

Решение

Для начала создадим

Динамический диапазон

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

Динамический диапазон

и нижеследующие формулы не придется модифицировать.

Для создания

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

:

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

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

B

с помощью

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

(см.

файл примера

). Для этого введите следующую формулу в ячейку

B5

:

=ЕСЛИОШИБКА(ИНДЕКС(Исходный_список; ПОИСКПОЗ(0;СЧЁТЕСЛИ(B$4:B4;Исходный_список);0));»»)

После ввода формулы вместо

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 EXCE

L.

Примечание

: В статье

Восстанавливаем последовательности из списка без повторов в MS EXCEL

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

Хитрости »

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

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

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

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

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

    Видеоуроки

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



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

Слияние двух списков без дубликатов

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

Давайте традиционно рассмотрим несколько способов решения такой распространенной задачи — от примитивных «в лоб» до более сложных, но изящных.

Способ 1. Удаление дубликатов

Можно решить задачу самым простым путем — руками скопировать элементы обоих списков в один и применить потом к полученному набору инструмент Удалить дубликаты с вкладки Данные (Data — Remove Duplicates):

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

Способ 1а. Сводная таблица

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

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

При изменении исходных списков новые данные по прямым ссылкам попадут в объединенную таблицу, но сводную придется обновить уже вручную (правой кнопкой мыши — Обновить). Если не нужен пересчет «на лету», то лучше воспользоваться другими вариантами.

Способ 2. Формула массива

Можно решить проблему формулами. В этом случае пересчет и обновление результатов будет происходить автоматически и мгновенно, сразу после изменений в исходных списках. Для удобства и краткости давайте дадим нашим спискам имена Список1 и Список2, используя Диспетчер имен на вкладке Формулы (Formulas — Name Manager — Create):

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

На первый взгляд выглядит жутковато, но, на самом деле, все не так страшно. Давайте я разложу эту формулу на несколько строк, используя сочетание клавиш Alt+Enter и отступы пробелами, как мы делали, например тут:

Логика тут следующая:

• Формула ИНДЕКС(Список1;ПОИСКПОЗ(0;СЧЁТЕСЛИ($E$1:E1;Список1); 0) выбирает все уникальные элементы из первого списка. Как только они заканчиваются — начинает выдавать ошибку #Н/Д:

  

• Формула ИНДЕКС(Список2;ПОИСКПОЗ(0;СЧЁТЕСЛИ($E$1:E1;Список2); 0)) аналогичным образом извлекает уникальные элементы из второго списка.
• Вложенные друг в друга две функции ЕСЛИОШИБКА реализуют вывод сначала уникальных из списка-1, а потом из списка-2 друг за другом.

Обратите внимание, что это формула массива, т.е. после набора ее нужно ввести в ячейку не обычным Enter, а сочетанием клавиш Ctrl+Shift+Enter и затем скопировать (протянуть) вниз на нижестоящие ячейки с запасом.

В английской версии Excel эта формула выглядит как:

=IFERROR(IFERROR(INDEX(Список1, MATCH(0, COUNTIF($E$1:E1, Список1), 0)), INDEX(Список2, MATCH(0, COUNTIF($E$1:E1, Список2), 0))), «») 

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

Способ 3. Power Query

Если в ваших исходных списках большое количество элементов, например, по несколько сотен или тысяч, то вместо медленной формулы массива лучше использовать принципиально другой подход, а именно — инструменты надстройки Power Query. Эта надстройка по умолчанию встроена в Excel 2016. Если у вас Excel 2010 или 2013, то ее можно отдельно скачать и установить (бесплатно).

Алгоритм действий следующий:

1. Открываем отдельную вкладку установленной надстройки Power Query (если у вас Excel 2010-2013) или просто идем на вкладку Данные (если у вас Excel 2016).
2. Выделяем первый список и жмем кнопку Из таблицы/диапазона (From Range/Table). На вопрос про создание из нашего списка «умной таблицы» — соглашаемся:

   

3. Открывается окно редактора запросов, где будет видно загруженные данные и имя запроса Таблица1 (можно поменять на свое, если хотите).
4. Делаем двойной щелчок в заголовок таблицы (слово Список1) и переименовываем на любой другой (например Люди). Каки именно назвать — не важно, но придуманное название нужно запомнить, т.к. его придется использовать потом еще раз при импорте второй таблицы. Объединить две таблицы в дальнейшем получится только если заголовки их столбцов совпадают.
5. Разворачиваем выпадающий список в левом верхнем углу Закрыть и загрузить и выбираем Закрыть и загрузить в… (Close&Load to…):

   

6. В следующем диалоговом окне (оно может выглядеть немного по-другому — не пугайтесь) выбираем Только создать подключение (Only create connection):

   

7. Повторяем всю процедуру (пункты 2-6) для второго списка. При переименовании заголовка столбца важно использовать то же имя (Люди), что и в предыдущем запросе.
8. В окне Excel на вкладке Данные (Data) или на вкладке Power Query выбираем Получить данные — Объединить запросы — Добавить (Get Data — Merge Queries — Append):

   

9. В появившемся диалоговом окне выбираем наши запросы из выпадающих списков:

   

10. В итоге получим новый запрос, где два списка будут соединены друг под другом. Осталось удалить дубликаты кнопкой Удалить строки — Удалить дубликаты (Delete Rows — Delete Duplicates):

    

11. Готовый запрос можно переименовать справа на панели параметров, дав ему вменяемое имя (это будет имя таблицы-результата по факту) и все и можно все выгружать на лист командой Закрыть и загрузить (Close&Load):

    

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

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

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

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

Отбор уникальных значений (убираем повторы из списка) в 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 решена обратная задача: из списка уникальных значений, в котором для каждого значения задано количество повторов, создается список этих значений с повторами.

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

В этом курсе:

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

Чтобы отфильтровать уникальные значения, нажмите кнопку данные > отсортировать & фильтр > Дополнительно.

Чтобы удалить повторяющиеся значения, выберите > инструменты данные > Удалить дубликаты.

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

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

Повторяющееся значение — это одно из значений, для которого все значения по крайней мере одной строки идентичны всем значениям в другой строке. Сравнение повторяющихся значений зависит от того, что отображается в ячейке, а не на основе значения, хранящегося в ячейке. Например, если у вас есть одинаковое значение даты в разных ячейках, например «3/8/2006», а другое — «Мар 8, 2006», значения будут уникальными.

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

Выполните указанные ниже действия.

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

Нажмите кнопку данные > дополнительно (в группе Фильтр сортировки & ).

В всплывающем окне Расширенный фильтр выполните одно из следующих действий:

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

Нажмите кнопку Фильтровать список на месте.

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

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

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

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

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

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

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

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

Выполните указанные ниже действия.

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

На вкладке данные нажмите кнопку Удалить дубликаты (в группе Работа с данными ).

Выполните одно или несколько из указанных ниже действий:

В разделе столбцывыберите один или несколько столбцов.

Чтобы быстро выделить все столбцы, нажмите кнопку выделить все.

Чтобы быстро удалить все столбцы, нажмите кнопку снять выделение.

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

Примечание: Данные будут удалены из всех столбцов, даже если на этом этапе не будут выделяться все столбцы. Например, если выбрать Столбец1 и Столбец2 (но не Столбец3), то «Key», использованный для поиска дубликатов, — это значение обоих Столбец1 & Столбец2. Если в этих столбцах обнаружена повторяющаяся копия, вся строка удаляется, в том числе другие столбцы в таблице или диапазоне.

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

Чтобы изменить изменения, нажмите кнопку Отменить (или нажмите клавиши CTRL + Z на клавиатуре).

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

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

Выполните указанные ниже действия.

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

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

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

Выполните указанные ниже действия.

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

На вкладке Главная в группе стили щелкните стрелку рядом с кнопкой условное форматированиеи выберите пункт Управление правилами , чтобы открыть всплывающее окно диспетчера правил условного форматирования .

Выполните одно из следующих действий.

Чтобы добавить условное форматирование, нажмите кнопку создать правило , чтобы открыть всплывающее окно » новое правило форматирования «.

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

В группе Выберите тип правила выберите параметр Форматировать только уникальные или повторяющиеся значения.

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

Нажмите кнопку Формат , чтобы открыть всплывающее окно Формат ячеек .

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

В Excel Online вы можете удалить повторяющиеся значения.

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

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

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

Выполните указанные ниже действия.

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

На вкладке данные нажмите кнопку Удалить дубликаты .

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

Примечание: Данные будут удалены из всех столбцов, даже если на этом этапе не будут выделяться все столбцы. Например, если выбрать Столбец1 и Столбец2 (но не Столбец3), то «Key», использованный для поиска дубликатов, — это значение обоих Столбец1 & Столбец2. При обнаружении дубликата в Столбец1 и Столбец2 вся строка будет удалена, включая данные из Столбец3.

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

Примечание: Если вы хотите вернуться к данным, просто нажмите кнопку отменить (или нажмите клавиши CTRL + Z на клавиатуре).

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

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

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

Excel — как удалить дубликаты но оставить уникальные значения?

Всем добрый вечер! Случалось ли Вам когда нибудь работать с данными в excel строковое значение которых переваливает за пару десятков тысяч? А вот мне человеку который создает и продвигает сайты и интернет магазины приходится сталкиваться достаточно часто, особенно когда дело касается загрузки и выгрузки данных от поставщика на сайт интернет магазина. Данная заметка родилась не на пустом месте, а прямо так сказать с пылу жару! Сегодня делал загрузку на свой интернет магазин по интим тематике (см портфолио) и после того как скачал прайс от поставщика и открыв его в excel (перед загрузкой на сайт я сначала все сверяю, на случай ошибок и случайных изменений столбцов со стороны поставщика) и увидел что из 25 тыс строк более 6-8 тыс являются дубликатами, зачем и почему так делает поставщик мы сейчас обсуждать не будем, на это не хочется тратить не сил, ни времени, а просто понимаем, что так сделал программист и по другому это делать нельзя!

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

Удаление дубликатов в Microsoft Excel

Для меня человека который проводит время в отпуске и работает с мобильного интернета скорость которого измеряется от 1-2 мегабита, прокачивать в пустую такое кол-во товара с фотографиями смысла не имеет и время пустое и трафика сожрет не мало, поэтому решил повторяющиеся товары просто удалить и тут столкнулся с тем, что удалить дублирующиеся значения в столбце не так то и просто, потому как стандартная функция excel 2010 делает это топорно и после удаления дубликата двигает вверх нижние значения и в итоге у нас все перепутается в документе и будет каша.

В данной статье будет представлено два варианта решения проблемы.

1 Вариант — Стандартная функция в эксель — Удалить дубликаты

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

Для этого выделим те столбцы или область в какой надо удалить дубликаты и зайдем в меню Данные и потом выберем Удалить дубликаты, после чего у нас удаляться дубликаты, но будет сдвиг ячеек, если для вас это не критично, то этот способ Ваш!

2 Вариант — Пометить дубликаты строк в Лож или Истина

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

для примера возьмем два столбика с данными, в одном (пример1) дублирующие значения повторяются, а в (примере2) в разнобой и не идут друг за другом.

В примере1 мы должны в стоящей рядом ячейки нажать знак ровно и выбрать первое и нижние значение что бы формула была такая:

и нажимаем энтер, и у нас в этой ячейки в зависимости от данных должно появится значение Лож или Истина

ЛОЖ — если А1 не будет равно А2

Истина — если А1 будет ровно А2

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

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

3 Вариант — Удалить дубликаты в столбе

Вот этот вариант уже более сложный, но он решит вашу проблему на все 100% и сразу ответит на все вопросы.

Как видим у нас имеется столбец в котором все значения идут не по порядку и они перемешаны

Мы как и в прошлый раз в соседнюю ячейку вставляем следующую формулу

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

из нашего примера сразу видно, что в этом столбце было два дубля и эта формула нам значительно сэкономила времени, а дальше фильтруем второй столбец и в фильтре выбираем пустые ячейки и дальше удаляем строки, вот и все)

Таким образом я в документе который который скачал у поставщика создал перед артикулом пустой столбце и далее применил эту формулу и после отфильтровав получил документ который был на 6-8 тыс строк меньше и самое главное после удаление дубликатов у меня не поднимались значения вверх, все стояло на своих местах

Надеюсь статья была полезная, если не поняли я прикрепил к каналу видео смотрите его или задавайте вопросы,

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

Способ 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 и копируем затем вниз до упора следующую формулу:

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

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

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

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

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

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

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

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

Создать раскрывающийся список без дубликатов с помощью Удалить дубликаты

Создайте раскрывающийся список без дубликатов, используя Kutools for Excel

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

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

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

2. Нажмите OK, то в Поля сводной таблицы панели, перетащите столбец, который вы хотите создать раскрывающийся список на основе Ряды .

3. Теперь данные списка уникальны. Выберите ячейку (я) для размещения раскрывающегося списка, щелкните Данные > проверка достоверности данных > проверка достоверности данных.

4. в проверка достоверности данных диалоговое окно, выберите Список in Разрешить список под Настройки на вкладке выберите список сводной таблицы в качестве Источник поле.

5. Нажмите OK. Теперь выпадающий список без дубликатов создан.

Создать раскрывающийся список без дубликатов с помощью Удалить дубликаты

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

1. Выберите диапазон столбцов, который вы хотите использовать в таблице, нажмите Ctrl + C чтобы скопировать его, и переместите в другое место, нажав Ctrl + V.

2. Затем продолжайте выбирать список, нажмите Данные > Удалить дубликаты.

3. в Удалить дубликаты диалоговое окно, установите или снимите флажок У моих данных есть заголовки поле, как вам нужно, и нажмите OK. Затем появится диалоговое окно с напоминанием о количестве удаленных дубликатов, нажмите OK.

4. Выберите ячейки для размещения раскрывающегося списка, щелкните Данные > проверка достоверности данных > проверка достоверности данных.

5. в проверка достоверности данных диалоговое окно, выберите Список in Разрешить список под Настройки вкладку, выберите новый список в качестве Источник поле.

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

Создайте раскрывающийся список без дубликатов, используя Kutools for Excel

Если у вас есть Kutools for Excel, вы быстро решите эту задачу.

После установки Kutools for Excel, пожалуйста, сделайте следующее:(Бесплатная загрузка Kutools for Excel Сейчас!)

1. Выберите диапазон столбцов, который вы хотите использовать в таблице, затем щелкните Кутулс > Select > Select Duplicate & Unique Cells.

2. В появившемся диалоговом окне отметьте All unique (Including 1st duplicates) , нажмите Ok, затем появится диалоговое окно, напоминающее количество выбранных значений. Нажмите OK.

3. Теперь нажмите Ctrl + C чтобы скопировать выбранные данные, и перейдите в другое место, чтобы нажать Ctrl + V для их вставки.

4. Выберите ячейки для размещения раскрывающегося списка, щелкните Данные > проверка достоверности данных > проверка достоверности данных.

5. в проверка достоверности данных диалоговое окно, выберите Список in Разрешить список под Настройки на вкладке выберите скопированные уникальные данные в качестве Источник поле.

6. Затем нажмите OK, создается уникальный раскрывающийся список.

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

​Смотрите также​buchlotnik​ соответствует 10 часов,​Не забываем менять диапазоны​ код обработчика.Private Sub​ выделяем попеременно нужные​ появится сообщение: «Добавить​ позволит нам вводить​ заголовка (шапки) важно.​Очень удобный инструмент Excel​ manager)​ проверяются на уникальность​Данные — Фильтр -​ИНДЕКС(Список1;ПОИСКПОЗ(0;СЧЁТЕСЛИ($F$4:F4;Список1);0));​ этим решением и​

​ помощью Расширенного фильтра),​ с учетом 4-х​Продолжим идеи, изложенные в​: Да нет, просто​ встречается он в​

​ на «свои». Списки​ Worksheet_Change(ByVal Target As​ ячейки.​ введенное имя баобаб​ новые значения.​

​ В нашем примере​ для проверки введенных​

​или в старых​ и отбираются. В​ Расширенный фильтр​ИНДЕКС(Список2;ПОИСКПОЗ(0;СЧЁТЕСЛИ($F$4:F4;Список2);0))​ создадим объединенный список,​ Сводных таблиц (см.​ условий выглядит так:​ статье Отбор уникальных​

​ ошибочка закралась.​ списке 3 раза,​ создаем классическим способом.​ Range) On Error​Теперь создадим второй раскрывающийся​ в выпадающий список?».​Вызываем редактор Visual Basic.​ это ячейка А1​ данных. Повысить комфорт​ версиях — через​ предыдущих способах при​(Data — Filter -​);»»)​ записав в ячейке​ лист Сводная таблица​

​=ЕСЛИОШИБКА(ИНДЕКС($A$7:$A$25;ПОИСКПОЗ(0;​
​ значений в MS​

​Для диапазона ф2​

​ соответственно после выбора​
​ А всю остальную​

​ Resume Next If​​ список. В нем​Нажмем «Да» и добавиться​ Для этого щелкаем​ со словом «Деревья».​ работы с данными​ меню​ изменении исходного списка​ Advanced Filter)​Для вывода промежуточных результатов​

​С5​ в файле примера)​ЕСЛИ((($B$7:$B$25>=$F$7)+($B$7:$B$25<>=$G$7)+($C$7:$C$25 СЧЁТЕСЛИ($I$6:I6;$A$7:$A$25);»»);0));»») ​ EXCEL. Сначала отберем​ должно быть:​ Васи в выпадающем​ работу будут делать​ Not Intersect(Target, Range(«Н2:К2»))​ должны отражаться те​ еще одна строка​ правой кнопкой мыши​ То есть нужно​ позволяют возможности выпадающих​Вставка — Имя -​

​ нужно будет заново​.​ вычислений можно воспользоваться​формулу​ или через меню​​или так​​ из таблицы только​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ИНДЕКС(Лист1!$C$1:ИНДЕКС(Лист1!$C$1:$C$11;ПОИСКПОЗ(«»;Лист1!$C$1:$C$11;0)-1);;1)​ списке рядом должно​ макросы.​

​ Is Nothing And​
​ слова, которые соответствуют​ со значением «баобаб».​ по названию листа​ выбрать стиль таблицы​ списков: подстановка данных,​ Присвоить​ запускать​Получаем окно:​ клавише​=ЕСЛИ(СТРОКА()-СТРОКА($C$4)>СЧЁТЗ(Список1);​ Данные/ Работа с​=ЕСЛИОШИБКА(ИНДЕКС($A$7:$A$25;ПОИСКПОЗ(0;​ те строки, которые​Garik007​ появиться число 3​На вкладке «Разработчик» находим​ Target.Cells.Count = 1​ выбранному в первом​Когда значения для выпадающего​ и переходим по​ со строкой заголовка.​ отображение данных другого​(Insert — Name -​Расширенный фильтр​В нем:​

​F9​​ИНДЕКС(Список2;СТРОКА(C5)-СЧЁТЗ(Список1)-СТРОКА($B$4));A5)​ данными/ Удалить дубликаты.​ЕСЛИ((($B$7:$B$25>=$F$7)*($B$7:$B$25<>=$G$7)*($C$7:$C$25 СЧЁТЕСЛИ($I$6:I6;$A$7:$A$25);»»);0));»»)​ удовлетворяют заданным условиям,​: Спасибо, наворочено конечно​ и чуть дальше​ инструмент «Вставить» –​

excel2.ru

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

​ Then Application.EnableEvents =​ списке названию. Если​ списка расположены на​ вкладке «Исходный текст».​ Получаем следующий вид​

​ листа или файла,​​ Define)​​или жать на​Выделяем наш список компаний​, выделив интересующую часть​

Задача

​Динамический диапазон Список1 представляет​ У каждого способа​Примечание​

​ затем из этих​ с формулами, но​ 30.​ «ActiveX». Здесь нам​

Решение с использованием объединенного списка

​ False If Len(Target.Offset(1,​ «Деревья», то «граб»,​ другом листе или​ Либо одновременно нажимаем​ диапазона:​ наличие функции поиска​:​​ кнопку​​ в​
​ формулы.​
​ собой Исходный список​

​ есть свои преимущества​. В формуле использована​ строк выберем только​ попробую разобраться.​Nic70y​ нужна кнопка «Поле​ 0)) = 0​ «дуб» и т.д.​ в другой книге,​ клавиши Alt +​Ставим курсор в ячейку,​ и зависимости.​диапазону номеров (A1:A100) -​

​Удаление дубликатов.​Исходный диапазон (List Range)​Начиная с 2007-й версии​ №1 с названиями​

​ и недостатки. Но,​​ функция ЕСЛИОШИБКА(), которая​​ уникальные значения из​
​михаил—​
​:​

​ со списком» (ориентируемся​ Then Target.Offset(1, 0)​ Вводим в поле​ стандартный способ не​

Тестируем

​ F11. Копируем код​​ где будет находиться​​Путь: меню «Данные» -​ имя​
​Итак, снова имеем список​.​ функция удаления дубликатов​ компаний, причем его​ в этой статье​

Решение без использования объединенного списка

​ работает только начиная​ первого столбца. При​: Добрый день!​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СЧЁТЕСЛИ(B2:B13;F2)​ на всплывающие подсказки).​
​ = Target Else​
​ «Источник» функцию вида​
​ работает. Решить задачу​
​ (только вставьте свои​

​ выпадающий список. Открываем​ инструмент «Проверка данных»​NameCount​​ беспорядочно повторяющихся элементов.​​Ставим переключатель в положение​ является стандартной -​

excel2.ru

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

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

​ границы могут изменяться​ нам требуется, чтобы​ с версии MS​ добавлении новых строк​Есть массив значений,​​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=СУММЕСЛИ(B2:B13;F2;C2:C13)оно?​Щелкаем по значку –​ Target.End(xlDown).Offset(1, 0) =​​ =ДВССЫЛ(E3). E3 –​

​ можно с помощью​ параметры).Private Sub Worksheet_Change(ByVal​ параметры инструмента «Проверка​ — вкладка «Параметры».​всему списку с номерами​ Например, такой:​Скопировать результат в другое​ найти ее можно​ в зависимости от​ при добавлении новых​ EXCEL 2007. О​ в таблицу, список​ из которого нужно​heaven33rus​

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

​ становится активным «Режим​ Target End If​ ячейка с именем​ функции ДВССЫЛ: она​ Target As Range)​ данных» (выше описан​ Тип данных –​​ (A1:B100) — имя​​Первая задача — пронумеровать​​ место (Copy to​​ на вкладке​

​ количества числа введенных​ строк в исходную​ том как ее​ уникальных значений будет​

​ выбрать только уникальные​​: Да!! Спасибо!!!​ конструктора». Рисуем курсором​​ Target.ClearContents Application.EnableEvents =​ первого диапазона.​​ сформирует правильную ссылку​​ Dim lReply As​

​ путь). В поле​

• ​ «Список».​NameList​​ всех уникальных представителей​​ another location)​
• ​Данные — Удаление дубликатов​​ значений (пропуски не​ таблицу, список уникальных​ заменить, читайте в​​ автоматически обновляться.​ значения, и записать​
• ​А как сделать​​ (он становится «крестиком»)​​ True End If​​Бывает, когда из раскрывающегося​​ на внешний источник​​ Long If Target.Cells.Count​

​ «Источник» прописываем такую​

​Ввести значения, из которых​Теперь осталось выбрать из​ списка, дав каждому​и указываем пустую​ (Data — Remove​ допускаются). Аналогичные диапазоны​ значений автоматически обновлялся,​ статье Функция ЕСЛИОШИБКА()​Пусть в имеется таблица​​ их в один​​ чтоб список выпадающий​

​ небольшой прямоугольник –​ End Sub​ списка необходимо выбрать​ информации.​

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

​ > 1 Then​ функцию:​ будет складываться выпадающий​ списка​ свой номер (столбец​ ячейку.​ Duplicates)​ Список2 и Объединенный_список​ поэтому здесь построен​ в MS EXCEL.​ с повторяющимися значениями​ столбец. Из какого​ показывал только уникальные​ место будущего списка.​Чтобы выбираемые значения отображались​​ сразу несколько элементов.​​Делаем активной ячейку, куда​ Exit Sub If​​Протестируем. Вот наша таблица​

​ список, можно разными​NameList​ А на рисунке).​

​Включаем (самое главное!) флажок​:​ созданы для столбцов​ список с использованием​Если значения Стоимости и​ в первом столбце,​ именно столбца или​ имена?​Жмем «Свойства» – открывается​ в одной ячейке,​

​ Рассмотрим пути реализации​

​ хотим поместить раскрывающийся​ Target.Address = «$C$2″​

​ со списком на​

​ способами:​все элементы имеющие​ Для этого вставляем​Только уникальные записи​В открывшемся окне нужно​ Исходный список №2​ формул.​ Даты контракта соответствуют​ например список названий​ строки массива взятя​

​Nic70y​ перечень настроек.​ разделенные любым знаком​ задачи.​ список.​ Then If IsEmpty(Target)​ одном листе:​Вручную через «точку-с-запятой» в​ номер — это​​ в ячейку А2​(Uniqe records only)​ с помощью флажков​​ и Объединенный список.​Примечание​ 4-м условиям, то​​ компаний.​ уникальная ячейка не​ ​: как-то так​Вписываем диапазон в строку​​ препинания, применим такой​

• ​Создаем стандартный список с​Открываем параметры проверки данных.​​ Then Exit Sub​
• ​Добавим в таблицу новое​ поле «Источник».​​ и будут наши​

​ и копируем затем​и жмем​​ задать те столбцы,​​Далее используем решение, приведенное​. Как видно из​ при отборе уникальных​Отберем из таблицы только​ имеет значение. решение​Garik007​ ListFillRange (руками). Ячейку,​ модуль.​ помощью инструмента «Проверка​ В поле «Источник»​ If WorksheetFunction.CountIf(Range(«Деревья»), Target)​ значение «елка».​

​Ввести значения заранее. А​

​ уникальные представители. Сделать​ вниз до упора​

​ОК​

​ по которым необходимо​ в статье Отбор​​ рисунков выше, в​​ это название компании​ те строки, которые​ должно быть формульным.​:​

planetaexcel.ru

Выпадающий список в Excel с помощью инструментов или макросов

​ куда будет выводиться​Private Sub Worksheet_Change(ByVal​ данных». Добавляем в​ вводим формулу: =ДВССЫЛ(“[Список1.xlsx]Лист1!$A$1:$A$9”).​ = 0 Then​Теперь удалим значение «береза».​ в качестве источника​

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

Создание раскрывающегося списка

​ выбранное значение –​ Target As Range)​ исходный код листа​Имя файла, из которого​ lReply = MsgBox(«Добавить​

​Осуществить задуманное нам помогла​ указать диапазон ячеек​ любой пустой ячейке​=ЕСЛИ(СЧЁТЕСЛИ(B$1:B2;B2)=1;МАКС(A$1:A1)+1;»»)​

1. ​Получите список без дубликатов:​ если включить все​
2. ​ дубликаты из столбца).​ Элементы управления формы​ бы не выполняется​ которые приведены в​
3. ​ такое сделать не​, а можно разъяснить,​ в строку LinkedCell.​On Error Resume​

​ готовый макрос. Как​ берется информация для​

​ введенное имя «​

Выпадающий список в Excel с подстановкой данных

​ «умная таблица», которая​ со списком.​ соседних столбцов, введя​В английской версии это​Если требуется искать дубликаты​ флажки, то будут​Записав в​ для управления выделением​

1. ​ 1 условие, то​ табличке ниже.​ использую функцию удалить​ не совсем понял​
2. ​ Для изменения шрифта​ Next​ это делать, описано​ списка, заключено в​ & _ Target​ легка «расширяется», меняется.​Назначить имя для диапазона​ туда вот такую​ будет:​ не по одному,​ удалены только полностью​E5​ строк с помощью​
3. ​ название компании не​Отобранные строки выделим Условным​ дубликаты, т.к. столбцов​ принцип выбора уникальных​ и размера –​If Not Intersect(Target,​ выше. С его​ квадратные скобки. Этот​

​ & » в​Теперь сделаем так, чтобы​ значений и в​

​ формулу с известной​=IF(COUNTIF(B$1:B2;B2)=1;MAX(A$1:A1)+1;»»)​

​ а по нескольким​

​ совпадающие строки. Если​формулу массива:​ Условного форматирования.​

​ учитывается. Если нужно​ форматированием.​ достаточно большое количество?​ значений в выпадающем​ Font.​ Range(«C2:C5»)) Is Nothing​ помощью справа от​

1. ​ файл должен быть​ выпадающий список?», vbYesNo​ можно было вводить​ поле источник вписать​ функцией ВПР (VLOOKUP) и​
2. ​Эта формула проверяет сколько​ столбцам, то можно​ включить только флажок​=ЕСЛИОШИБКА(ИНДЕКС(Объединенный_список;​Имея два списка с​
3. ​ ограничиться, например 2-мя​Затем из этих строк​Serge_007​ списке.​Скачать пример выпадающего списка​ And Target.Cells.Count =​ выпадающего списка будут​
4. ​ открыт. Если книга​ + vbQuestion) If​ новые значения прямо​ это имя.​ скопировав ее вниз​ раз текущее наименование​ предварительно склеить их​ заказчик, то останется​ПОИСКПОЗ(0;СЧЁТЕСЛИ($E$4:E4;Объединенный_список);0));»»)​ однотипными повторяющимися значениями,​ условиями (только Стоимость),​ выберем только уникальные​: http://www.excelworld.ru/publ/hacks/tricks/extract_unique/17-1-0-10​Как сделать так,​При вводе первых букв​ 1 Then​ добавляться выбранные значения.Private​ с нужными значениями​ lReply = vbYes​ в ячейку с​Любой из вариантов даст​ на весь столбец:​ уже встречалось в​ в один, сделав,​ только по одной​и скопировав ее вниз​ создадим из них​ то удалите часть​ значения из первого​михаил—​ чтобы в ячейке​ с клавиатуры высвечиваются​Application.EnableEvents = False​
5. ​ Sub Worksheet_Change(ByVal Target​ находится в другой​
6. ​ Then Range(«Деревья»).Cells(Range(«Деревья»).Rows.Count +​ этим списком. И​ такой результат.​=ЕСЛИ(МАКС(NameCount)​ списке (считая с​ своего рода, составной​ строке для каждого​ получим список уникальных​

​ список, содержащий только​ формулы +($C$7:$C$25>=$G$7)+($C$7:$C$25​ столбца, т.е. только​: А Как сделать​ С3 в выпадающем​ подходящие элементы. И​

​newVal = Target​ As Range) On​ папке, нужно указывать​

Выпадающий список в Excel с данными с другого листа/файла

​ 1, 1) =​ данные автоматически добавлялись​​или в английской версии​ начала), и если​ ключ с помощью​ заказчика и т.д.​ значений из двух​ уникальные значения.​Не забудьте, что формулу​ те компании, у​

1. ​ чтобы уникальные значения​ списке, сформированном из​ это далеко не​
2. ​Application.Undo​ Error Resume Next​ путь полностью.​

​ Target End If​ в диапазон.​Необходимо сделать раскрывающийся список​ Excel:​ это количество =1,​ функции​Если у вас Excel​ столбцов.​Пусть столбцы​ массива нужно вводить​

Как сделать зависимые выпадающие списки

​ которых Стоимость и​

​ брались сразу из​ ячеек А1:А11, показывались​ все приятные моменты​oldval = Target​ If Not Intersect(Target,​Возьмем три именованных диапазона:​ End If End​Сформируем именованный диапазон. Путь:​

1. ​ со значениями из​=IF(MAX(NameCount)​ т.е. элемент встретился​
2. ​СЦЕПИТЬ (CONCATENATE)​ 2003 или старше,​1. Введите в ячейку​АВ​ в ячейку EXCEL​
3. ​ Дата контракта находится​ нескольких столбцов (​ только уникальные значения​ данного инструмента. Здесь​If Len(oldval) <>​ Range(«Е2:Е9»)) Is Nothing​Это обязательное условие. Выше​ If End Sub​ «Формулы» — «Диспетчер​ динамического диапазона. Если​Эта формула проходит сверху​ первый раз -​:​
   

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

   ​ то для удаления​А9​содержат списки названий​ с помощью одновременного​ в заданных диапазонах.​

   1. ​ если нужны не​ из этих ячеек?​ можно настраивать визуальное​ 0 And oldval​ And Target.Cells.Count =​ описано, как сделать​Сохраняем, установив тип файла​ имен» — «Создать».​ вносятся изменения в​ вниз по столбцу​ дает ему последовательно​Тогда дальнейшая задача будет​ дубликатов и вытаскивания​название новой компании​ компаний, в некоторых​ нажатия​Решение приведено в файле​ только фамилии, но​Заранее спасибо.​ представление информации, указывать​ <> newVal Then​ 1 Then Application.EnableEvents​ обычный список именованным​ «с поддержкой макросов».​ Вводим уникальное название​ имеющийся диапазон (добавляются​
   2. ​NameCount​ возрастающий номер.​ сводиться к поиску​ из списка уникальных​ – ООО Фортик​ ячейках имеются дубликаты.​CTRL+SHIFT+ENTER​ примера на листе​ и все наименовании​Nic70y​ в качестве источника​Target = Target​ = False If​ диапазоном (с помощью​Переходим на лист со​ диапазона – ОК.​ или удаляются данные),​и выводит все​Для упрощения адресации дадим​
   3. ​ дубликатов уже в​ (неповторяющихся) элементов можно​2. В таблице​Создадим список, состоящий только​, затем ее нужно​
​ Уникальные. В его​ регионов, все разновидности​
​: с дополнительными столбцами​ сразу два столбца.​
​ & "," &​ Len(Target.Offset(0, 1)) =​ «Диспетчера имен»). Помним,​ списком. Вкладка «Разработчик»​
​Создаем раскрывающийся список в​
​ они автоматически отражаются​
​ позиции списка с​
​ нашим диапазонам (например,​
​ одном столбце.​ использовать​ Уникальные значения через​
​ из уникальных значений​ скопировать вниз, например,​ основе лежит формула​
​ цен и т.д)​
​ и ИНДЕКСОМ:​
​heaven33rus​
​ newVal​ 0 Then Target.Offset(0,​
​ что имя не​
​ - «Код» -​
​ любой ячейке. Как​


   ​ в раскрывающемся списке.​ номерами в отдельную​ исходя из того,​Чуть более сложный способ,​Расширенный фильтр (Advanced Filter) ​ объединенный список будет​

   Выпадающий список с поиском

   1. ​ (см. файл примера).​ с помощью Маркера​ массива из статьи​ и результат уникальных​Garik007​: Приветствую.​
   2. ​Else​ 1) = Target​ может содержать пробелов​ «Макросы». Сочетание клавиш​ это сделать, уже​Выделяем диапазон для выпадающего​
   3. ​ таблицу:​ что в списке​
   4. ​ чем первые два,​из меню (вкладки)​ автоматически выведено название​Решим задачу двумя способами:​ заполнения.​ Отбор уникальных значений​ значений по всем​: Походу дела какой-то​

   ​Помогите решить задачу:​

   ​Target = newVal​ Else Target.End(xlToRight).Offset(0, 1)​ и знаков препинания.​ для быстрого вызова​ известно. Источник –​ списка. В главном​Под выпадающим списком понимается​ может быть до​ но зато -​Данные (Data)​

   exceltable.com

Выпадающий список и посчитать уникальные значения. (Формулы/Formulas)

​ новой компании.​​ через промежуточное создание​
​СОВЕТ:​
​ (убираем повторы из​ столбцам выводился общий​ глюк в экселе,​Есть список имен,​End If​
​ = Target End​Создадим первый выпадающий список,​ – Alt +​ имя диапазона: =деревья.​ меню находим инструмент​ содержание в одной​ 100 элементов) имена.​ динамический, т.е. с​.​В принципе, можно обойтись​

​ объединенного списка и​​Список уникальных значений​​ списка) в MS​​ в отдельном столбце?​

​ в выпадающем списке​​ где каждому имени​
​If Len(newVal) =​ If Target.ClearContents Application.EnableEvents​ куда войдут названия​ F8. Выбираем нужное​

​Снимаем галочки на вкладках​​ «Форматировать как таблицу».​

​ ячейке нескольких значений.​​ Это можно сделать​​ автоматическим пересчетом, т.е.​​Предположим, что у нас​ и без объединенного​ без него.​ можно создать разными​ EXCEL, которая использовалась​
​Pelena​ 2 раза повторяется​ присвоено определенное значение​ 0 Then Target.ClearContents​ = True End​ диапазонов.​ имя. Нажимаем «Выполнить».​
​ «Сообщение для ввода»,​

​Откроются стили. Выбираем любой.​​ Когда пользователь щелкает​ в новых версиях​

​ если список редактируется​​ имеется вот такой​ списка. Платой за​В статье Объединение списков​ способами, например, с​ для игнорирования пропусков​: Без вашего примера​
​ двойка, а пятерки​ рядом в ячейке,​

​Application.EnableEvents = True​​ If End Sub​Когда поставили курсор в​
​Когда мы введем в​ «Сообщение об ошибке».​​ Для решения нашей​

​ по стрелочке справа,​​ Excel на вкладке​ или в него​ список беспорядочно повторяющихся​

excelworld.ru

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

​ это будет значительное​​ изложено решение создания​
​ использованием Расширенного фильтра​ в списке. После​ — только общие​ вообще нет.​ допустим это часы.​End If​Чтобы выбранные значения показывались​ поле «Источник», переходим​ пустую ячейку выпадающего​ Если этого не​ задачи дизайн не​
​ появляется определенный перечень.​Формулы — Диспетчер имен​ дописываются еще элементы,​ названий компаний:​ усложнение формулы массива:​

​ объединенного списка из​​ (см. статью Отбор​

​ небольших изменений, формула​​ ответы​Может что попроще​Допустим некому Васе​End Sub​ снизу, вставляем другой​ на лист и​ списка новое наименование,​ сделать, Excel не​ имеет значения. Наличие​ Можно выбрать конкретное.​ (Formulas — Name​ то они автоматически​Выбираем в меню​

​=ЕСЛИОШИБКА(ЕСЛИОШИБКА(​​ 2-х списков. Воспользуемся​ уникальных строк с​ для отбору уникальных​
​http://www.excelworld.ru/forum/2-3436-36914-16-1359023496​

excelworld.ru

​ есть?​