☰

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 列。

相關內容