Как удалить всю строку, когда столбцы 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 ячейки дублируются. Однако это работает только с небольшим количеством строк. Я просто получаю "Ошибка выполнения 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 ответ
Я хотел бы попробовать функцию удаления дубликатов на ленте данных. Вы можете выбрать столбцы для рассмотрения, которые в вашем сценарии будут просто столбцом А.