Note: The other languages of the website are Google-translated. Back to English

Як поєднати два списки без дублікатів в Excel?

На вашому аркуші є два списки, а деякі значення у списках є дублікатами, і ви хочете об’єднати ці два списки і просто залишити унікальні значення, як показано на скріншотах нижче, як ви можете це зробити?

Поєднуйте списки без дублікатів за допомогою функції Видалити дублікати в Excel

Поєднуйте списки без дублікатів з VBA

Поєднуйте списки без дублікатів за допомогою Kutools для Excel

Вкладка Office Увімкніть редагування та перегляд вкладок в Office та значно спростіть свою роботу ...
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
  • Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
  • Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
  • Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
  • Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
  • Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
  • Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
  • Понад 300 потужних функцій; Працює з Office 2007-2021 і 365; Підтримує всі мови; Легке розгортання на вашому підприємстві чи в організації.

стрілка синя права міхур Поєднуйте списки без дублікатів за допомогою функції Видалити дублікати в Excel

Щоб об’єднати два списки та видалити дублікати значень у Excel, ви можете зробити наступне:

1. Скопіюйте один із двох списків і вставте його в кінець іншого списку, див. Знімок екрана:

2. Виберіть список і натисніть дані > Видалити дублікати, див. скріншот:


3 В Видалити дублікати , якщо у стовпці немає заголовка, зніміть прапорець Мої дані мають заголовки, А потім натисніть OK. Дивіться знімок екрана:


4. Потім на екрані відобразиться діалогове вікно з повідомленням про видалення дублікатів, натисніть OK. Дивіться знімок екрана:


Ви можете побачити результат:



стрілка синя права міхур Поєднуйте списки без дублікатів з VBA

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

1 Тримайся ALT і натисніть F11 на клавіатурі, щоб відкрити a Microsoft Visual Basic для програми вікна.

2. клацання Insert > Модуліта скопіюйте 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. клацання OK, тоді з’явиться інше діалогове вікно для вибору комірки для виведення комбінованого результату. Дивіться знімок екрана:


6. клацання OK. Ви бачите, що списки були об’єднані.


Порада: Результат не може зарезервувати форматування комірок після запуску вищевказаного VBA.


стрілка синя права міхур Поєднуйте списки без дублікатів за допомогою Kutools для Excel

З встановленим Kutools для Excel, ви можете скористатись Виберіть копії та унікальні комірки функція для вирішення проблеми, яка поєднує два списки без дублікатів.

Kutools для Excel включає більше 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень протягом 30 днів. Отримати зараз

1. Скопіюйте один із двох списків і вставте його в кінець іншого списку, виберіть новий список, а потім натисніть Кутулс > Виберіть Інструменти > Виберіть копії та унікальні комірки. Дивіться знімок екрана:


2 В Виберіть копії та унікальні комірки діалогове вікно, перевірте Усі унікальні (включаючи перші дублікати), Натисніть Ok.


3. Потім з’явиться діалогове вікно, щоб повідомити, скільки унікальних значень було вибрано, натисніть OK і Скасувати щоб закрити два діалоги. Дивіться знімок екрана:


4. І скопіюйте вибрані унікальні значення та вставте їх у новий стовпець. Дивіться знімок екрана:


Клацніть тут, щоб дізнатись більше про Вибір дублікатів та унікальних комірок.


Відносні статті:

Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL