☰

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 のリストを取得する必要があります。

後で A1:A100000 セルが重複したときに行全体を削除する VBA コードを見つけました。ただし、これは少数の行でのみ機能します。「実行時エラー 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 のみになります。

関連情報