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

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

Удаление дубликатов, но сохранение первого вхождения с помощью кода VBA
Удаление дубликатов, но сохранение первого вхождения с помощью Kutools для Excel

Удаление дубликатов, но сохранение первого вхождения с помощью кода VBA

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

1. Нажмите Alt + 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 выберите диапазон, из которого вы хотите удалить дубликаты, а затем нажмите кнопку ОК. См. скриншот:

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

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

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

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

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

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

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

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

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