☰

当 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 单元格重复时删除整行。但是它只适用于少量行。我只收到“运行时错误 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

我会尝试数据功能区上的“删除重复项”功能。您可以选择要考虑的列，在您的场景中，这仅仅是 A 列。

相关内容