删除重复/怀疑行

我试图设置一个VBA代码来打开名为“数据”的工作表，如果列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) 2，3，4，5 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