我想清除重复的单元格值

Question

我想清除重复的内容，而不是删除整行。我尝试从堆栈溢出中删除行宏但我无法正确编码。我在哪里找到删除行我改变它以清除内容。以下是我的例子。我正在寻找一些vba代码。

                           **Before**

44451纽约我的名字123456789 216611 1/11/1989 1
44451纽约我的名字123456789 216611 1/11/1989 1
44452伦敦你的名字987654321 216612 9/8/1938 1
44453 NEVADA OTHERS NAME 654321 216613 3/18/2008 1
44453 NEVADA OTHERS NAME 654321 216613 3/18/2008 1

                            **After**

44451纽约我的名字123456789 216611 1/11/1989 1
                            216611 1 44452伦敦你的名字987654321 216612 9/8/1938 1
                            216612 1 44453 NEVADA OTHERS NAME 654321 216613 3/18/2008 1

Answer 1

尝试以下代码

Sub sample()
    Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlNo
End Sub