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

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

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

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

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

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

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

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

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

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

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

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

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

   >>>   

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

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

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

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

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

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

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

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

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