Як видалити повторювані рядки, але зберегти той, що має останню дату в Excel?

У мене є ряд даних, які містять деякі повторювані значення в стовпці A, а в стовпці B заповнюється деяка дата, тепер мені потрібно видалити повторювані рядки в стовпці A, але зберегти останню дату з відповідного стовпця B, як показано на наступному знімку екрана , чи є у вас якісь ідеї для того, щоб швидко та легко вирішити цю проблему в Excel?

Видаліть повторювані значення та збережіть останню дату в іншому стовпці з кодом VBA

Видаліть повторювані значення та збережіть останню дату в іншому стовпці Kutools for Excel

Видаліть повторювані значення та збережіть останню дату в іншому стовпці з кодом VBA

Наступний код VBA може допомогти вам видалити повторювані комірки та зберегти останню дату з іншого стовпця. Будь ласка, зробіть наступне:

1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модулі, а потім вставте наступний макрос у Модулі Вікно

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

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

Видаліть повторювані значення та збережіть останню дату в іншому стовпці Kutools for Excel

Якщо ви не знайомі з кодом, будь ласка, не хвилюйтеся, потужна утиліта- Розширені комбіновані ряди of Kutools for Excel може допомогти вам легко вирішити це завдання.

після установки Kutools for Excel, будь ласка, виконайте наступне:

1. Виберіть діапазон даних, для якого потрібно видалити дублікати, і збережіть останню дату з іншого стовпця.

2. Потім натисніть Кутулс > Злиття та розділення > Розширені комбіновані ряди, див. скріншот:

3, в Об'єднати рядки на основі стовпця діалоговому вікні клацніть назву стовпця, для якого потрібно видалити повторювані значення, а потім натисніть Основний ключ, див. скріншот:

4. Клацніть на іншу назву стовпця, для якої потрібно зберегти останню дату, а потім натисніть Обчислювати > Макс, див. скріншот:

5. А потім клацніть Ok , щоб закрити це діалогове вікно, і тепер ви можете побачити, що повторювані імена зі стовпця А видалено, і зберегти лише останню дату у відповідному стовпці В, див. знімок екрана:

Завантажте та безкоштовну пробну версію Kutools for Excel зараз !

Демо: видаліть повторювані значення та збережіть останню дату в іншому стовпці Kutools for Excel

---

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

Kutools for Excel Вирішує більшість ваших проблем і підвищує вашу продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

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

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...