Как удалить дубликаты, но сохранить остальные значения строк в 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, с более чем 300 удобные функции, облегчающие вашу работу. |
После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)
Метод 1: объединение одинаковых ячеек (2 шага)
1. Выберите повторяющиеся значения, щелкните Кутулс > Слияние и разделение > Объединить одинаковые ячейки. Смотрите скриншот:
2. Затем повторяющиеся значения были объединены в одну ячейку. И нажмите Главная > Слияние и центр > Разъедините ячейки, чтобы разделить их. Смотрите скриншот:
Теперь результат был показан так:
Метод 2: выбор повторяющихся и уникальных ячеек (4 шага)
1. Выберите список данных, из которых вы хотите удалить дубликаты, и нажмите Кутулс > Выберите > Выберите повторяющиеся и уникальные ячейки. Смотрите скриншот:
2. в Выберите повторяющиеся и уникальные ячейки диалог, проверьте Дубликаты (кроме 1-го) вариант в Правило раздел. Смотрите скриншот:
3. Нажмите Ok, появится диалоговое окно, напоминающее, сколько дубликатов было выбрано, щелкните OK чтобы закрыть это. Смотрите скриншот:
4. Затем нажмите Удалить клавиша для удаления выбранных повторяющихся значений.
Удалите дубликаты, но оставьте остальную часть строки
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!