☰

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

tag-icon • tag-icon microsoft-excel duplicate
Как удалить всю строку, если столбцы A1:A100000 дублируются

Мне нужно отфильтровать довольно большой объем данных (102858 строк, 9 столбцов).

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

Я нашел код VBA, который удаляет всю строку, когда последующие ячейки A1:A100000 дублируются. Однако это работает только с небольшим количеством строк. Я просто получаю "Run-time error 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

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

решение1

Я бы попробовал функцию Remove Duplicates на ленте Data. Вы можете выбрать, какие столбцы учитывать, которые в вашем сценарии будут просто столбцом A.

Связанный контент