Как удалить дубликаты, но сохранить остальные значения строк в Excel?

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

Удалите дубликаты, но сохраните остальные значения строк с помощью фильтра (3 шага)

Удалите дубликаты, но сохраните остальные значения строк с помощью VBA (4 шага)

Удалите дубликаты, но сохраните остальные значения строк с помощью Kutools for Excel (2 шага)

Удалите дубликаты, но сохраните остальные значения строк с помощью фильтра

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

1. Выберите пустую ячейку рядом с диапазоном данных, например D2, введите формулу = A3 = A2перетащите дескриптор автозаполнения в нужные ячейки. Смотрите скриншот:

2. Выберите весь диапазон данных, включая ячейку формулы, и щелкните Данные > Фильтр включить Фильтр функция. Смотрите скриншот:

3. Нажмите на Значок фильтра в столбце D (столбец формул) и отметьте TURE из раскрывающегося списка, см. Снимок экрана:

4. Нажмите OK, а затем все дубликаты будут перечислены, и выберите все повторяющиеся значения, нажмите Удалить ключ, чтобы удалить их. Смотрите скриншот:

5. Нажмите Данные > Фильтр отключить Фильтри удалите формулы по мере необходимости. Вы можете видеть, что все дубликаты удалены, а остальные значения сохранены в строке.

Удалите дубликаты, но сохраните остальные значения строк с помощью VBA

В Excel есть код VBA, который также может удалять дубликаты, но сохранять остальные значения строк.

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

2. Нажмите Вставить > модульe и вставьте код ниже в Модули.

VBA: удалить дубликаты, но сохранить остальные значения строк

Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918

    Dim xRow As Long
    Dim xCol As Long
    Dim xrg As Range
    Dim xl As Long
    On Error Resume Next
    Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

    xRow = xrg.Rows.Count + xrg.Row - 1
    xCol = xrg.Column
    'MsgBox xRow & ":" & xCol
    Application.ScreenUpdating = False
    For xl = xRow To 2 Step -1
        If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
            Cells(xl, xCol) = ""
        End If
    Next xl
    Application.ScreenUpdating = True
    
End Sub

3. Нажмите F5 нажмите клавишу для запуска кода, появится диалоговое окно, напоминающее вам о выборе диапазона, из которого нужно удалить повторяющиеся значения. Смотрите скриншот:

4. Нажмите OK, теперь повторяющиеся значения удалены из выборки и оставляют пустые ячейки.

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

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

После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)

Метод 1: объединение одинаковых ячеек (2 шага)

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

2. Затем повторяющиеся значения были объединены в одну ячейку. И нажмите Главная > Слияние и центр > Разъедините ячейки, чтобы разделить их. Смотрите скриншот:

Теперь результат был показан так:

Метод 2: выбор повторяющихся и уникальных ячеек (4 шага)

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

2. в Выберите повторяющиеся и уникальные ячейки диалог, проверьте Дубликаты (кроме 1-го) вариант в Правило раздел. Смотрите скриншот:

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

4. Затем нажмите Удалить клавиша для удаления выбранных повторяющихся значений.

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

Наконечник: с Kutools for ExcelАвтора Расширенные ряды комбинирования утилиты, вы можете объединить повторяющиеся значения, а затем выполнить некоторые вычисления в другом столбце, как показано ниже. Это полная функция без ограничений в 30 дней,пожалуйста, скачайте и получите бесплатную пробную версию сейчас.

---

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

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

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

Больше информации... Скачать бесплатно... Покупка ... 

---

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

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...