Як поєднати два списки без дублікатів в Excel?
На вашому аркуші є два списки, а деякі значення у списках є дублікатами, і ви хочете об’єднати ці два списки і просто залишити унікальні значення, як показано на скріншотах нижче, як ви можете це зробити?
Поєднуйте списки без дублікатів за допомогою функції Видалити дублікати в Excel
Поєднуйте списки без дублікатів з VBA
Об’єднайте списки без дублікатів за допомогою Kutools для Excel
Поєднуйте списки без дублікатів за допомогою функції Видалити дублікати в 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. І скопіюйте вибрані унікальні значення та вставте їх у новий стовпець. Дивіться знімок екрана:
Клацніть тут, щоб дізнатись більше про Вибір дублікатів та унікальних комірок.