Як видалити дублікати, але зберегти перший примірник у Excel?
Скажімо, на вашому аркуші є список значень, який містить кілька дублікатів, тепер вам потрібно видалити дублікати, але зберегти перший рядок, де знайдено дубльоване значення. У цій статті ми покажемо вам два способи видалення дублікатів, але збереження першої інстанції в Excel.
Видаліть дублікати, але зберігайте перший примірник за допомогою коду VBA
Видаліть дублікати, але збережіть перший екземпляр за допомогою Kutools для Excel
Видаліть дублікати, але зберігайте перший примірник за допомогою коду VBA
Ви можете запустити наведений нижче код VBA, щоб видалити дублікати, але зберігати перший примірник у стовпці.
1. прес інший + F11 відкрити Microsoft Visual Basic для додатків діалогове вікно.
2 В Microsoft Visual Basic для додатків діалогове вікно натисніть кнопку Insert > Модулі. Потім скопіюйте та вставте наведений нижче код у вікно коду.
Код 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. Виберіть діапазон, який потрібно видалити дублікатами, але зберігайте перші екземпляри. Потім клацніть Кутулс > Select > Виберіть Повторювані та унікальні комірки.
2 В Виберіть Повторювані та унікальні комірки діалоговому вікні, виберіть Дублікати (крім першого) , а потім клацніть на OK кнопку. Дивіться знімок екрана:
3. У наступному Виберіть Повторювані та унікальні комірки діалогове вікно натисніть кнопку OK.
4. Тепер дублікати вибрані, крім перших екземплярів, натисніть кнопку видаляти клавішу, щоб видалити вибрані дублікати.
примітки: Якщо ви хочете видалити повторювані рядки, вам потрібно лише перевірити Виділіть цілі рядки опція в Виберіть Повторювані та унікальні комірки , а потім застосуйте видаляти команда меню правої клавіші, щоб видалити всі повторювані рядки.
Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Видаліть дублікати, але збережіть перший екземпляр за допомогою Kutools для Excel
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!