Cách xóa toàn bộ hàng khi cột A1: A100000 bị trùng lặp

Tôi phải lọc dữ liệu khá lớn (102858 hàng, 9 cột).

Ý tưởng là giữa các hàng này (địa chỉ URL) có rất nhiều bản sao. A1: A102000 chứa địa chỉ URL có và không có nhận xét. Chẳng hạn, 1 hàng có địa chỉ URL (A1), nhận xét (B1), ngày (C1), v.v. A2 và C2 giống như A1 (URL), nhưng trống trong B2, C2, B3, C3. Tôi cần nhận danh sách URL duy nhất có nhận xét (hoặc không có nhận xét nếu không có trùng lặp)

Tôi đã tìm thấy mã VBA loại bỏ toàn bộ hàng khi các ô A1: A100000 sau đó được nhân đôi. Tuy nhiên, nó chỉ hoạt động với số lượng nhỏ hàng. Tôi chỉ nhận được "Lỗi thời gian chạy 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

Bạn có gợi ý nào không?

Tôi sẽ thử tính năng Xóa bản sao trên dải băng Dữ liệu. Bạn có thể chọn các cột để xem xét, trong đó kịch bản của bạn sẽ chỉ là cột A.