Как да комбинирам два списъка без дубликати в Excel?
Има два списъка във вашия работен лист и някои от стойностите в списъците са дубликати и искате да комбинирате тези два списъка и просто да оставите уникалните стойности, както е показано на екранните снимки по-долу, как можете да направите?
 |
 |
 |
Комбинирайте списъци без дубликати с Премахване на дубликати в Excel
Комбинирайте списъци без дубликати с VBA
Комбинирайте списъци без дубликати с Kutools за Excel
Комбинирайте списъци без дубликати с Премахване на дубликати в Excel
За да комбинирате два списъка и да премахнете дублирани стойности в Excel, можете да направите следното:
1. Копирайте един от двата списъка и го поставете в долната част на другия списък, вижте екранната снимка:
|
|
 |
2. Изберете списъка и щракнете Дата > Премахване на дубликати, вижте екранна снимка:
3. В Премахване на дубликати диалогов прозорец, ако колоната ви няма заглавка, премахнете отметката Данните ми имат заглавки, А след това върху OK. Вижте екранна снимка:
4. След това на екрана се показва диалогов прозорец, за да ви каже, че дубликатите са изтрити, щракнете OK. Вижте екранна снимка:
Можете да видите резултата:
Комбинирайте списъци без дубликати с VBA
В Excel VBA също може да ви помогне да комбинирате двата списъка без дубликати.
1. държа ALT бутон и натиснете F11 на клавиатурата, за да отворите a 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. кликване OK, след което се появява друг диалогов прозорец, за да изберете клетка за извеждане на комбинирания резултат. Вижте екранна снимка:
6. кликване OK. Можете да видите, че списъците са комбинирани.
Съвет: Резултатът не може да запази форматирането на клетките след изпълнение на горния VBA.
Комбинирайте списъци без дубликати с Kutools за Excel
С инсталиран Kutools за Excel, можете да използвате Изберете дубликати и уникални клетки функция за решаване на проблема, който комбинира два списъка без дубликати.
Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега
1. Копирайте един от двата списъка и го поставете в края на другия списък, изберете новия списък, след което щракнете върху Kutools > Изберете Инструменти > Изберете дубликати и уникални клетки. Вижте екранна снимка:
2. В Изберете дубликати и уникални клетки диалог, проверка Всички уникални (включително първите дубликати), Щракнете върху Ok.
3. След това се появява диалогов прозорец, за да ви каже колко уникални стойности са избрани, щракнете OK намлява Отказ за затваряне на два диалога. Вижте екранна снимка:
4. Копирайте избраните уникални стойности и ги поставете в нова колона. Вижте екранна снимка:
Щракнете тук, за да научите повече за Избор на дубликати и уникални клетки.
