Как да премахнете дубликати, но да запазите първата инстанция в Excel?
Да кажем, че във вашия работен лист има списък със стойности, който съдържа някои дубликати, сега трябва да премахнете дубликатите, но да запазите първия ред, където е намерена дублираната стойност. В тази статия ще ви покажем два метода за премахване на дубликати, но запазване на първата инстанция в Excel.
Премахнете дубликатите, но запазете първата инстанция с VBA код
Премахнете дубликатите, но запазете първата инстанция с Kutools за Excel
Премахнете дубликатите, но запазете първата инстанция с VBA код
Можете да изпълните кода на VBA по-долу, за да премахнете дубликати, но да запазите първата инстанция в колона.
1. Натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения диалогов прозорец.
2. В Microsoft Visual Basic за приложения кликнете върху Поставете > Модули. След това копирайте и поставете кода по-долу в прозореца на кода.
VBA код: премахнете дубликатите, но запазете първата инстанция
Sub TrimExcessSpaces()
Dim Rng As Range
Dim WorkRng As Range
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
For Each Rng In WorkRng.Cells
dic(Rng.Value) = ""
Next
WorkRng.ClearContents
WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub
3. Натиснете F5 ключ за изпълнение на кода. В изскачащите Kutools за Excel изберете диапазона, който искате да премахнете дубликати, и след това щракнете върху OK бутон. Вижте екранна снимка:
Сега можете да видите всички дублиращи се редове, с изключение на първите записи, които са премахнати от избрания диапазон от колони. Вижте екранна снимка:
Премахнете дубликатите, но запазете първата инстанция с Kutools за Excel
Освен VBA кода, можете да използвате Изберете Дублирани и уникални клетки полезност на Kutools за Excel добавка за лесно премахване на дубликати, но запазване на първите екземпляри в Excel.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. Изберете диапазона, който искате да премахнете дубликати, но да запазите първите екземпляри. След това щракнете Kutools > Изберете > Изберете Дублирани и уникални клетки.
2. В Изберете Дублирани и уникални клетки диалогов прозорец, изберете Дубликати (с изключение на първия) опция и след това щракнете върху OK бутон. Вижте екранна снимка:
3. В следното Изберете Дублирани и уникални клетки кликнете върху OK.
4. Сега дубликатите са избрани с изключение на първите инстанции, моля, натиснете Изтрий ключ за премахване на избраните дубликати.
Забележка: Ако искате да изтриете дублиращите се редове, просто трябва да поставите отметка Изберете цели редове опция в Изберете Дублирани и уникални клетки диалогов прозорец и след това приложете Изтрий команда от менюто с десен бутон, за да премахнете всички дублиращи се редове.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Премахнете дубликатите, но запазете първата инстанция с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!