Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

Удалите дубликаты, но сохраните первый экземпляр с кодом VBA

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


Легко выделить все повторяющиеся или уникальные значения в списке

Kutools for Excel's Выбрать дубликаты и уникальные ячейки утилиту, вы можете быстро выделить все дубликаты или значения uqique в списке в Excel.

Kutools for Excel включает в себя более удобные инструменты Excel 300. Бесплатно, без ограничений, в 60-дни. Загрузите бесплатную пробную версию

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel переносит расширенные функции 300 в Excel и мгновенно повышает производительность
  • Super Formula Bar (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон ...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объединить дублирующиеся строки и сумму / среднее ... Предотвратить повторяющиеся клетки; Сравнить диапазоны ...
  • Выберите Дублировать или Уникальные строки; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих книгах; Случайный выбор ...
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставьте маркеры, флажки и многое другое ...
  • Любить и быстро вставлять формулы, диапазоны, графики и рисунки; Шифровать ячейки с помощью пароля; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев ...
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенный Сортировать по месяцу / неделе / ​​дню, частоте и многому другому; Специальный фильтр жирным шрифтом, курсив ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разбить данные на несколько листов; Пакетное конвертирование xls, xlsx и PDF ...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.

Удалите дубликаты, но сохраните первый экземпляр с кодом 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 : с более чем 300 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни.

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

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

doc удалить дубликаты1

3. В следующих Выбрать дубликаты и уникальные ячейки диалоговое окно, нажмите OK.

doc удалить дубликаты1

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

Внимание: Если вы хотите удалить повторяющиеся строки, вам просто нужно проверить Выбрать целые строки вариант в Выбрать дубликаты и уникальные ячейки диалоговое окно, а затем примените Удалите файл команду меню правой кнопки мыши, чтобы удалить все повторяющиеся строки.

Наконечник.Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите, чтобы применить операцию согласно вышеуказанным шагам.


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

Kutools for Excel включает в себя более удобные инструменты Excel 300. Бесплатно, без ограничений, в 60-дни. Скачайте бесплатную пробную версию прямо сейчас!


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    lelouch · 2 years ago
    I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell

    John I Red
    John I Blue
    John I Yellow

    Joe I Red
    Joe I Blue
    Joe I Yellow

    and turn it into

    John I Red
    I Blue
    I Yellow

    Joe I Red
    I Blue
    I Yellow

    Can you help on just keeping the first duplicate in a single cell only?