excel - 我想清除重复的单元格值

Question

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

                           **Before**

44451 NEW YORK MY NAME 123456789 216611 1/11/1989 1
44451 NEW YORK MY NAME 123456789 216611 1/11/1989 1
44452 LONDON YOUR NAME 987654321 216612 9/8/1938 1
44453 NEVADA OTHERS NAME 654321 216613 3/18/2008 1
44453 NEVADA 其他姓名 654321 216613 2008 年 3 月 18 日 1

                            **After**

44451 NEW YORK 我的名字 123456789 216611 1/11/1989 1
216611 1 44452 LONDON 你的名字 987654321 216612 9/8/1938 1
216612 1 44453 NEVADA 其他名字 686 133 133 201

Answer 1

试试下面的代码

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