Как удалить все дубликаты, оставив только один в 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 Sub

3. Нажмите клавишу 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?