Как удалить все дубликаты, оставив только один в Excel?
Это руководство представляет хитрости для удаления всех повторяющихся значений из списка, оставляя только одно в Excel, читайте подробности:
Удалите все дубликаты, оставив только один с помощью функции Удалить дубликаты
Удалите все дубликаты, оставив только один с помощью VBA
Удалите все дубликаты, оставив только один с помощью Kutools для Excel 
Объедините все повторяющиеся строки и сохраните данные с помощью Kutools для Excel
Удалите все дубликаты, оставив только один с помощью функции Удалить дубликаты
В Excel функция Удалить дубликаты может помочь вам удалить все, но оставить одно повторяющееся значение.
1. Выберите список данных, который вам нужен, и нажмите Данные > Удалить дубликаты. См. скриншот:
2. Затем в диалоговом окне Удалить дубликаты отметьте имя столбца, из которого вы хотите удалить дубликаты, и если ваши данные содержат заголовки, отметьте также опцию Данные содержат заголовки. См. скриншот:
3. Нажмите ОК. Появится диалоговое окно, сообщающее вам, сколько дубликатов было удалено, просто закройте его. Теперь все дубликаты удалены, но остался только один в списке.
Удалите все дубликаты, оставив только один с помощью VBA
Если вас интересует VBA, здесь я могу представить код VBA для решения этой задачи.
1. Одновременно нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модуль и вставьте следующий VBA в новое окно Модуля.
VBA: Удалить все дубликаты, оставив один.
Sub RemoveAllDeplicateButOne()
Dim LR As Long: LR = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A1:A" & LR).RemoveDuplicates Columns:=1, Header:=Name
End Sub3. Нажмите клавишу F5 или нажмите Выполнить, чтобы выполнить VBA, и дубликаты в списке в столбце A будут удалены, но останется один.
Совет: В приведенном выше VBA A обозначает столбец A, а A1:A — диапазон списка, вы можете изменить их по мере необходимости.
Удалите все дубликаты, оставив только один с помощью Kutools для Excel
В Kutools для Excel есть мощная утилита под названием Выбрать повторяющиеся и уникальные ячейки, которая может быстро выбрать или выделить все дубликаты, кроме первого, а затем вы можете их удалить.
После бесплатной установки Kutools для Excel выполните следующие действия:
1. Выберите диапазон данных и нажмите Kutools > Выбрать > Выбрать повторяющиеся и уникальные ячейки. См. скриншот:
2. В появившемся диалоговом окне отметьте опцию Дубликаты (исключая первое совпадение) и нажмите Ok. См. скриншот:
3. Затем появится диалоговое окно, напоминающее вам количество выбранных ячеек. Просто нажмите OK, чтобы закрыть его. См. скриншот:
4. И все дубликаты, кроме первого, выбраны, нажмите клавишу Delete, чтобы очистить их.
Совет: Вы также можете удалить все дубликаты, оставив один с помощью Выбрать повторяющиеся и уникальные ячейки следующим образом:
Выберите все уникальные значения, включая первые дубликаты, а затем скопируйте их, нажав Ctrl + C и вставьте в другое место с помощью Ctrl + V.
Демонстрация: Удалить все дубликаты, оставив только один
Объедините все повторяющиеся строки и сохраните данные с помощью Kutools для Excel
Если у вас есть некоторые данные, и вы хотите объединить повторяющиеся строки, затем сохранить соответствующие данные, как показано на скриншоте ниже, вы можете использовать функцию Расширенное объединение строк в Kutools для Excel.
После бесплатной установки Kutools для Excel выполните следующие действия:
1. Выберите данные и нажмите Kutools > Объединить и разделить > Расширенное объединение строк. См. скриншот:
2. В диалоговом окне Объединение строк на основе столбца выберите столбец, из которого вы хотите удалить дубликаты, и нажмите Ключевой столбец, чтобы сделать его ключевым столбцом. См. скриншот:
3. Затем выберите столбец, в котором вы хотите сохранить данные, затем нажмите Объединить и выберите один разделитель из списка. См. скриншот:
4. Нажмите Ok, и повторяющиеся строки объединены и сохранены с соответствующими данными.
Демонстрация: Объединить дубликаты, но сохранить соседние данные
Связанные статьи:
- Как объединить несколько ячеек с ведущими нулями в одну ячейку в Excel?
- Как создать случайное число без дубликатов в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек