excel - 如果一列中存在重复，则删除整行

Question

我有一个包含大约 60,000 行的工作表。如果单个列(批处理列)包含重复项，我想删除行中的所有数据。

其他列中的数据存在一些差异，但我只希望每批只有一行。

我尝试使用删除重复项，但由于其他列的差异，它不会删除所有内容。

我写了一个宏，但是速度很慢。

有谁知道如何加快速度？或者也许是一个更好的方法？

Sub Pull_Non_Variable()
    i = 0
    Do
        Current_Batch = Cells(i + 2, "J")

        'Cells(i + 2, "J").Select

        Next_Batch = Cells(i + 3, "J")

        'Cells(i + 3, "J").Select

        If Current_Batch = "" Then
            Exit Do
        End If

        If Current_Batch = Next_Batch Then
            Rows(i + 2).Delete
            'Range(Cells(i + 2, "A"), Cells(i + 2, "BI")).Delete
        Else
            i = i + 1
        End If

    Loop
End Sub

Answer 1

正如 SJR 所述在评论中，您可以选择范围中的哪些列指示重复条件。

ActiveSheet.Range("A:BI").RemoveDuplicates Columns:=10, Header:=xlYes