Как удалить дублирующиеся строки, сохранив запись с самой свежей датой в Excel?
У меня есть диапазон данных, в котором в столбце A содержатся дублирующиеся значения, а в столбце B — соответствующие даты. Мне нужно удалить дублирующиеся строки в столбце A, сохранив при этом самую свежую (последнюю) дату из столбца B, как показано на снимке экрана. Есть ли у вас простой и быстрый способ решить эту задачу в Excel?
Удаление Дублирующиеся значения и сохранение самой свежей даты в другом столбце с помощью кода VBA
Удаление Дублирующиеся значения и сохранение самой свежей даты в другом столбце с помощью Kutools для Excel
Удаление Дублирующиеся значения и сохранение самой свежей даты в другом столбце с помощью кода VBA
Следующий код VBA поможет вам удалить повторяющиеся ячейки, сохранив при этом самую свежую дату из другого столбца. Выполните следующие действия:
1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль, затем вставьте следующий макрос в окно Модуля.
Код VBA: удаление Дублирующиеся значения и сохранение самой свежей даты
Sub test()
'updateby Extendoffice
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count < 2) Or (xRng.Rows.Count < 2) Then
MsgBox "the used range is invalid", , "Kutools for Excel"
Exit Sub
End If
xRng.Sort key1:=xRng.Cells(1, 1), Order1:=xlAscending, key2:=xRng.Cells(1, 2), Order2:=xlDescending, Header:=xlGuess
xRng.RemoveDuplicates Columns:=1, Header:=xlGuess
End Sub
3. Затем нажмите клавишу F5, чтобы выполнить этот код. Появится диалоговое окно с запросом выбрать диапазон данных, который вы хотите использовать (см. снимок экрана):
4. Затем нажмите кнопку ОК — дублирующиеся значения в столбце A будут удалены, а самая свежая дата в столбце B сохранена именно так, как вам нужно. См. снимок экрана:
Примечание: Чтобы успешно применить приведённый выше код, столбец с дублирующимися значениями должен находиться слева от столбца с датами.
Удаление Дублирующиеся значения и сохранение самой свежей даты в другом столбце с помощью Kutools для Excel
Если вы не знакомы с кодом, не беспокойтесь — мощная утилита Расширенное объединение строк из состава Kutools для Excel поможет вам легко справиться с этой задачей.
После установки Kutools для Excelвыполните следующие действия:
1. Выделите диапазон данных, для которого нужно удалить дубликаты, сохранив самую свежую дату из другого столбца.
2. Затем нажмите Kutools > Объединить и разделить > Расширенное объединение строк (см. снимок экрана):
3. В диалоговом окне Объединить строки на основе столбца щёлкните имя столбца, в котором нужно удалить дублирующиеся значения, затем нажмите кнопку Первичный ключ (см. снимок экрана):
4. Затем щёлкните имя другого столбца, в котором нужно сохранить самую свежую дату, и нажмите Вычислить > Максимум (см. снимок экрана):
5. Затем нажмите кнопку ОК, чтобы закрыть это диалоговое окно. Теперь вы увидите, что дублирующиеся имена в столбце A удалены, а в соответствующем столбце B осталась только самая свежая дата (см. снимок экрана):
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: удаление Дублирующиеся значения и сохранение самой свежей даты в другом столбце с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек