Перейти к содержимому

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

Как быстро создать уникальный список (удалить дубликаты) из заданного столбца в Excel?

Author Sun Last modified

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

Создание уникального списка из столбца с помощью расширенного фильтра

Создание уникального списка из столбца с помощью VBA

Быстрое создание уникального списка из столбца с помощью Kutools для Excel good idea3


arrow blue right bubble Создание уникального списка из столбца с помощью расширенного фильтра

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

1. Нажмите Данные > Расширенный. См. скриншот:

A screenshot of the Data tab in Excel, showing the Advanced Filter option

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

(1) Установите флажок Копировать в другое место и опцию Только уникальные записи;

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

A screenshot of the Advanced Filter dialog

3. Нажмите ОК. Теперь уникальный список создан. См. скриншот:

A screenshot of the unique list created in Excel after applying the Advanced Filter


arrow blue right bubble Создание уникального списка из столбца с помощью VBA

В Excel также можно использовать код VBA для создания уникального списка из заданного столбца.

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications, и нажмите Вставить > Модуль, затем скопируйте и вставьте следующий код VBA в новое окно Модуля.

VBA: Создание уникального списка из заданного столбца.

Sub CreateUniqueList()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
InputRng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=OutRng, Unique:=True
End Sub

2. Нажмите клавишу F5 или кнопку Выполнить, чтобы активировать код VBA, и в появившемся диалоговом окне выберите список с дубликатами и нажмите ОК, затем выберите ячейку для размещения результата. См. скриншоты:

A screenshot showing the dialog where a user selects the range of data   >>>   A screenshot showing the dialog where a user selects the output cell to create a unique list

3. Теперь список с уникальными именами создан.


arrow blue right bubble Быстрое создание уникального списка из столбца с помощью Kutools для Excel

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

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

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

A screenshot showing the 'Select Duplicate & Unique Cells' option in the Kutools tab in Excel

2. В появившемся диалоговом окне установите флажок Все уникальные значения (включая первый дубликат) в разделе Правило. См. скриншот:

A screenshot of the Select Duplicate & Unique Cells dialog

3. Нажмите ОК, затем появится диалоговое окно с напоминанием о количестве выбранных ячеек. См. скриншот:

A screenshot of the dialog reminding the number of selected cells after selecting unique values

4. Нажмите ОК, затем нажмите Ctrl + C, чтобы скопировать выбранные ячейки, и выберите ячейку и нажмите Ctrl + V, чтобы разместить результат.

A screenshot of the copied unique list being pasted into a new location in Excel

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

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

Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Совершенно новый подход к анализу данных благодаря: Интеллектуальное выполнение |  Генерация кода  |  Создание пользовательских формул |  Анализ данных и построение диаграмм  |  Вызов Kutools Functions
Популярные функции: Поиск, выделение или отметка дубликатов | Удалить пустые строки | Объединить столбцы или адреса без потери данных | Округлить ...
Супер ПОИСК: VLOOKUP по нескольким критериям | VLOOKUP по нескольким значениям | Многолистовой поиск | Распознавание нечетких соответствий ...
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ...
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгой и листами | Библиотека автотекста | Выбор даты | Объединить данные | Зашифровать/расшифровать ячейки | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр жирный/курсив/зачеркнутый...) ...
Топ15 наборов инструментов:12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...) |50+ типов диаграмм (Диаграмма Ганта, ...) |40+ полезных формул (Расчет возраста на основе даты рождения, ...) |19 инструментов для вставки (Вставить QR-код, Вставить изображение по пути, ...) |12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...) |7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...) | ... и многое другое
Используйте Kutools на предпочитаемом вами языке — поддерживает Английский, Испанский, Немецкий, Французский, Китайский и более40 других языков!

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


Office Tab добавляет вкладки в Office и делает вашу работу намного проще

  • Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
  • Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!

Все надстройки Kutools. Один установщик

Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.

Excel Word Outlook Tabs PowerPoint
  • Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
  • Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
  • Совместная работа — максимальная эффективность между приложениями Office
  • 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
  • Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек