Удалить дубликаты в одном столбце на основе даты в другом столбце

Question

У меня есть таблица Excel с двумя столбцами: столбец A содержит список имен, а столбец B. содержит даты.

Я хочу избавиться от повторяющихся записей на основе дат. Это пример

A     B

John  01/03/2020

John  01/03/2020 

Bob   01/03/2020

John  02/03/2020

Bob   02/03/2020

Bob   02/03/2020

Я хочу удалить дубликаты с одинаковой датой, поэтому конечный результат должен быть:

A     B

John  01/03/2020

Bob   01/03/2020

John  02/03/2020

Bob   02/03/2020

Answer 1

Почему вы не используете стандартную Remove duplicates функциональность?

Answer 2

Если вы решили использовать VBA, попробуйте:

Sub test()

    Dim i As Long, y As Long, Lastrow As Long
    Dim strName As String
    Dim dtDate As Date

    With ThisWorkbook.Worksheets("Sheet1")
        Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = Lastrow To 1 Step -1

            For y = i - 1 To 1 Step -1
                If (.Range("A" & i).Value = .Range("A" & y).Value) And (.Range("B" & i).Value = .Range("B" & y).Value) Then
                    .Rows(i).EntireRow.Delete
                End If

            Next y

        Next i

    End With

End Sub