Как удалить всю строку, когда столбцы A1:A100000 дублированы

Question

Я должен отфильтровать довольно большие данные (102858 строк, 9 столбцов).

Идея заключается в том, что между этими строками (URL-адресами) много дубликатов. A1:A102000 содержит URL-адреса с комментариями и без них. Например, 1 строка имеет URL-адрес (A1), комментарий (B1), дату (C1) и так далее. A2 и C2 такие же, как A1 (URL), но пустые в B2, C2, B3, C3. Мне нужно получить список уникальных URL с комментариями (или без комментариев, если нет дубликатов)

Я нашел код VBA, который удаляет всю строку, когда позже A1:A100000 ячейки дублируются. Однако это работает только с небольшим количеством строк. Я просто получаю "Ошибка выполнения 1004"

Sub RemoveDupe()
Dim rCell As Range
Dim rRange As Range
Dim lCount As Long

Set rRange = Range("A1", Range("A" & Rows.Count).End(xlUp))
lCount = rRange.Rows.Count

For lCount = lCount To 1 Step -1
    With rRange.Cells(lCount, 1)
        If WorksheetFunction.CountIf(rRange, .Value) > 1 Then
            .EntireRow.Delete
        End If
    End With
Next lCount
End Sub

Есть ли у вас какие-либо предложения?

Answer 1

Я хотел бы попробовать функцию удаления дубликатов на ленте данных. Вы можете выбрать столбцы для рассмотрения, которые в вашем сценарии будут просто столбцом А.