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