我想清除重复的单元格值

我想清除重复的内容，而不是删除整个行。 我试图从堆栈溢出删除行macros，但我无法正确编码。 在哪里我发现删除行我改变，以清除内容。 以下是我的例子。 我正在寻找一些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