Перейти до основного матеріалу

Як видалити дублікати, але зберегти перший примірник у Excel?

Скажімо, на вашому аркуші є список значень, який містить кілька дублікатів, тепер вам потрібно видалити дублікати, але зберегти перший рядок, де знайдено дубльоване значення. У цій статті ми покажемо вам два способи видалення дублікатів, але збереження першої інстанції в Excel.

Видаліть дублікати, але зберігайте перший примірник за допомогою коду VBA
Видаліть дублікати, але збережіть перший екземпляр за допомогою Kutools для Excel


Видаліть дублікати, але зберігайте перший примірник за допомогою коду VBA

Ви можете запустити наведений нижче код VBA, щоб видалити дублікати, але зберігати перший примірник у стовпці.

1. прес інший + F11 відкрити Microsoft Visual Basic для додатків діалогове вікно.

2 В Microsoft Visual Basic для додатків діалогове вікно натисніть кнопку Insert > Модулі. Потім скопіюйте та вставте наведений нижче код у вікно коду.

Код 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 клавіша для запуску коду. У спливаючому Kutools для Excel діалоговому вікні, виберіть діапазон, який потрібно видалити, і натисніть клавішу OK кнопку. Дивіться знімок екрана:

Тепер ви можете бачити всі повторювані рядки, крім перших записів, які видаляються з вибраного діапазону стовпців. Дивіться знімок екрана:


Видаліть дублікати, але збережіть перший екземпляр за допомогою Kutools для Excel

Окрім коду VBA, ви можете використовувати Виберіть Повторювані та унікальні комірки корисність Kutools для Excel надбудова для легкого видалення дублікатів, але зберігати перші екземпляри в Excel.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

1. Виберіть діапазон, який потрібно видалити дублікатами, але зберігайте перші екземпляри. Потім клацніть Кутулс > Select > Виберіть Повторювані та унікальні комірки

2 В Виберіть Повторювані та унікальні комірки діалоговому вікні, виберіть Дублікати (крім першого) , а потім клацніть на OK кнопку. Дивіться знімок екрана:

doc видалити дублікати1

3. У наступному Виберіть Повторювані та унікальні комірки діалогове вікно натисніть кнопку OK.

doc видалити дублікати1

4. Тепер дублікати вибрані, крім перших екземплярів, натисніть кнопку видаляти клавішу, щоб видалити вибрані дублікати.

примітки: Якщо ви хочете видалити повторювані рядки, вам потрібно лише перевірити Виділіть цілі рядки опція в Виберіть Повторювані та унікальні комірки , а потім застосуйте видаляти команда меню правої клавіші, щоб видалити всі повторювані рядки.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Видаліть дублікати, але збережіть перший екземпляр за допомогою Kutools для Excel

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations