Перейти до основного матеріалу

Як поєднати два списки без дублікатів в 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. І скопіюйте вибрані унікальні значення та вставте їх у новий стовпець. Дивіться знімок екрана:


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


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

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations