Note: The other languages of the website are Google-translated. Back to English

Как удалить все дубликаты, но оставить в Excel только один?

В этом руководстве представлены трюки, позволяющие удалить все повторяющиеся значения из списка, но оставить только одно в Excel, прочтите подробности:

Удалите все дубликаты, но оставьте только один с помощью функции удаления дубликатов

Удалите все дубликаты, но оставьте только один с VBA

Удалите все дубликаты, но оставьте только один с помощью Kutools for Excel хорошая идея3

Объедините все повторяющиеся строки и сохраните данные с помощью Kutools for Excel хорошая идея3


В Excel функция «Удалить дубликат» может помочь вам удалить все, кроме одного повторяющегося значения.

1. Выберите нужный список данных и нажмите Данные > Удалить дубликаты. Смотрите скриншот:

документ удалить дубликат сохранить один 1

2. Затем в Удалить дубликаты диалоговое окно, проверьте имя столбца, из которого вы хотите удалить дубликаты, и если ваши данные имеют заголовок, отметьте У моих данных есть заголовки вариант тоже. Смотрите скриншот:

документ удалить дубликат сохранить один 2

3. Нажмите OK. Появится диалоговое окно, в котором сообщается, сколько дубликатов было удалено, просто закройте его. И теперь все дубликаты удалены, но в списке остался только один.

документ удалить дубликат сохранить один 3


Если вас интересует VBA, здесь я также могу представить код VBA для решения этой задачи.

1. Нажмите Alt + F11 ключи одновременно, чтобы открыть Microsoft Visual Basic для приложенийокно s.

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 ключ или щелкните Run для выполнения VBA, а дубликаты в списке в столбце A были удалены, но оставьте один.

Наконечник: В приведенном выше VBA A указывает столбец A, а A1: A указывает диапазон списка, вы можете изменить их по своему усмотрению.


Есть мощная утилита в Kutools for Excel названный Выберите повторяющиеся и уникальные ячейки можно быстро выбрать или выделить все дубликаты, кроме первого, а затем удалить их.

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите диапазон данных и нажмите Кутулс > Выберите > Выберите повторяющиеся и уникальные ячейки. Смотрите скриншот:

doc remove dulicate сохранить один 15

2. В открывшемся диалоговом окне отметьте Дубликаты (кроме 1-го) и нажмите Ok. Смотрите скриншот:

документ удалить дубликат сохранить один 5

3. Затем появится диалоговое окно, напоминающее количество выбранных ячеек. И просто нажмите OK чтобы закрыть это. Смотрите скриншот:

документ удалить дубликат сохранить один 6

4. И все дубликаты, кроме первого, выбраны, нажмите Удалить ключ, чтобы очистить их.

документ удалить дубликат сохранить один 7

Наконечник: Вы также можете удалить все дубликаты, но сохранить один с Выберите повторяющиеся и уникальные ячейки как это:

Выберите все уникальные значения, включая первые дубликаты, а затем скопируйте их, нажав Ctrl + C и вставьте в другое место с помощью Ctrl + V.

документ удалить дубликат сохранить один 8документ удалить дубликат сохранить один 9

Если у вас есть данные и вы хотите объединить повторяющиеся строки, сохраните соответствующие данные, как показано на скриншоте ниже, вы можете использовать Kutools for ExcelАвтора Расширенные ряды комбинирования функции.

документ удалить дубликат сохранить один 10

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите данные и нажмите Кутулс > Слияние и разделение > Расширенные ряды комбинирования. Смотрите скриншот:

doc remove dulicate сохранить один 16

2. в Объединить строки на основе столбца выберите столбец, из которого вы хотите удалить дубликаты, и нажмите Основной ключ чтобы сделать его столбцом первичного ключа. Смотрите скриншот:

документ удалить дубликат сохранить один 12

3. Затем выберите столбец, в котором вы просто хотите сохранить данные, и нажмите Сочетать, и выберите один разделитель из списка. Смотрите скриншот:

документ удалить дубликат сохранить один 13

4. Нажмите Ok, а повторяющиеся строки объединяются и сохраняют соответствующие данные.

документ удалить дубликат сохранить один 14


Относительные статьи:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL