删除重复/双向行

Question

我正在尝试设置VBA代码以打开名为“data”的工作表，如果A列的数据不是唯一的（已经在A列的其他行中），则删除整行。

使用下面的例子，我只保留第2,6,8和11行。当然还有标题。

Sub delete_duplicates_on_column_A()
    ' delete_duplicates_on_column_A Macro '
    Columns("A:E").Select
    ActiveSheet.Range("$A$1:$E$22").RemoveDuplicates _
        Columns:=1, Header:=xlYes
End Sub

Answer 1

此代码将：

删除列A到E 的重复项（A:E可以扩展它），
仅考虑列B到E （Array(2, 3, 4, 5)您也可以调整它）以确定您的数据中是否有双倍数据！

Sub test_Gonzalo()
    With ActiveSheet.Range("A:E")
        .Value = .Value
        .RemoveDuplicates _
            Columns:=Array(2, 3, 4, 5), _
            Header:=xlYes
    End With
End Sub