Как удалить дубликаты, но оставить первое вхождение в Excel?
Предположим, у вас есть список значений на рабочем листе, который содержит некоторые дубликаты. Теперь вам нужно удалить дубликаты, но оставить первую строку, где найдено повторяющееся значение. В этой статье мы покажем вам два метода удаления дубликатов с сохранением первого вхождения в Excel.
Удаление дубликатов, но сохранение первого вхождения с помощью кода VBA
Удаление дубликатов, но сохранение первого вхождения с помощью Kutools для Excel
Удаление дубликатов, но сохранение первого вхождения с помощью кода VBA
Вы можете запустить следующий код VBA, чтобы удалить дубликаты, но сохранить первое вхождение в столбце.
1. Нажмите Alt + 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 Sub3. Нажмите клавишу F5, чтобы запустить код. В появившемся диалоговом окне KutoolsforExcel выберите диапазон, из которого вы хотите удалить дубликаты, а затем нажмите кнопку ОК. См. скриншот:
Теперь вы можете видеть, что все повторяющиеся строки, кроме первой записи, удалены из выбранного диапазона столбца. См. скриншот:
Удаление дубликатов, но сохранение первого вхождения с помощью Kutools для Excel
Помимо кода VBA, вы можете использовать функцию Выбрать дубликаты и уникальные ячейки надстройки Kutools для Excel, чтобы легко удалить дубликаты, но сохранить первые вхождения в Excel.
1. Выберите диапазон, из которого вы хотите удалить дубликаты, но оставить первые вхождения. Затем нажмите Kutools > Выбрать > Выбрать дубликаты и уникальные ячейки.
2. В диалоговом окне Выбрать дубликаты и уникальные ячейки выберите опцию Дубликаты (исключая первое совпадение), а затем нажмите кнопку ОК. См. скриншот:
3. В следующем диалоговом окне Выбрать дубликаты и уникальные ячейки нажмите ОК.
4. Теперь дубликаты выбраны, за исключением первых вхождений, пожалуйста, нажмите клавишу Delete, чтобы удалить выбранные дубликаты.
Примечание: Если вы хотите удалить повторяющиеся строки, вам просто нужно отметить опцию Выбрать всю строку в диалоговом окне Выбрать дубликаты и уникальные ячейки, а затем применить команду Удалить из контекстного меню правой кнопкой мыши, чтобы удалить все повторяющиеся строки.
Если вы хотите воспользоваться бесплатной пробной версией (30-день) этой утилиты, пожалуйста, нажмите, чтобы скачать её, а затем перейдите к выполнению операции согласно вышеуказанным шагам.
Удаление дубликатов, но сохранение первого вхождения с помощью Kutools для Excel
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек