Как объединить два списка в Excel, исключив дубликаты?
На листе есть два списка, в которых встречаются повторяющиеся значения. Как объединить их, оставив только уникальные элементы, как показано на снимках экрана ниже?
 |  |  |
Объединение списков без дубликатов с помощью Удалить дубликаты в Excel
Объединение списков без дубликатов с помощью VBA
Объединение списков без дубликатов с помощью Kutools для Excel
Объединение списков без дубликатов с помощью Удалить дубликаты в Excel
Чтобы объединить два списка и удалить Дублирующиеся значения в Excel, выполните следующие действия:
1. Скопируйте один из двух списков и вставьте его в конец другого — см. снимок экрана:
| |  |
2. Выделите список и нажмите Данные > Удалить дубликаты, см. снимок экрана:
3. В диалоговом окне Удалить дубликаты, если в вашем столбце нет заголовка, снимите флажок Включить заголовки и нажмите ОК. См. снимок экрана:
4. Затем на экране появится диалоговое окно с сообщением об удалении дубликатов — нажмите ОК. См. снимок экрана:
Вы можете увидеть результат:
Объединение списков без дубликатов с помощью VBA
В Excel для объединения двух списков без дубликатов можно также воспользоваться VBA.
1. Удерживайте клавишу ALT, нажмите F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и скопируйте код VBA в модуль.
VBA: Объединение списков без дубликатов
Sub FindUniques()
'Updateby20140313
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 dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
For i = 1 To InputRng.Rows.Count
xValue = InputRng.Cells(i, j).Value
If xValue <> "" And Not dic.Exists(xValue) Then
OutRng.Value = xValue
dic(xValue) = ""
Set OutRng = OutRng.Offset(1, 0)
End If
Next
Next
End Sub
3. Нажмите кнопку Выполнить или клавишу F5, чтобы запустить код VBA.
4. На экране появится диалоговое окно, позволяющее выбрать диапазон для объединения. См. снимок экрана:
5. Нажмите ОК, после чего появится ещё одно диалоговое окно, в котором нужно выбрать ячейку для вывода объединённого результата. См. снимок экрана:
6. Нажмите ОК. Вы увидите, что списки объединились.
Совет: после выполнения приведённого выше кода VBA форматирование ячеек не сохраняется.
Объединение списков без дубликатов с помощью Kutools для Excel
После установки Kutools для Excel можно использовать функцию Выбрать дубликаты/уникальные ячейки для объединения двух списков без дубликатов.
Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней! Получить сейчас
1. Скопируйте один из двух списков и вставьте его в конец другого списка, выделите получившийся список, затем нажмите Kutools > Выделить > Выбрать дубликаты/уникальные ячейки. См. снимок экрана:
2. В диалоговом окне Выбрать дубликаты/уникальные ячейки установите флажок Все уникальные (включая первые дубликаты) и нажмите Ок.
3. Затем появится диалоговое окно с информацией о количестве выбранных уникальных значений; нажмите ОК и Отмена, чтобы закрыть два диалоговых окна. См. снимок экрана:
4. Скопируйте выделенные уникальные значения и вставьте их в новый столбец. См. снимок экрана:
Нажмите здесь, чтобы узнать больше о функции «Выбор дубликатов/уникальных ячеек».
Смежные статьи:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал 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 и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек