此问题可以通过vba来实现
解释说明如下:
1、原始数据情况:
a列数据有重复项目
2、代码位置
鼠标右键点击删除项按钮,选择指定宏
如下图输入代码
3、代码
Sub 按钮1_Click()
Application.ScreenUpdating = False '关闭刷屏
arr = [a1].CurrentRegion '将数据读入数组,提升读取效率
Set Rng = Nothing 'rng为了保存重复项
Set d = CreateObject("scripting.dictionary") '设置字典变量,用于去重
For J = 2 To UBound(arr) '循环遍历,查找重复项
If d.exists(arr(J, 1)) Then '根据字典里是否有该值,来确定是否有重复
If Rng Is Nothing Then '将重复项,使用union函数,赋值给变量rng
Set Rng = Cells(J, 1).Resize(1, 2)
Else
Set Rng = Union(Rng, Cells(J, 1).Resize(1, 2))
End If
Else
d(arr(J, 1)) = ""
End If
Next J
If Not Rng Is Nothing Then Rng.Delete '如果有重复。即删除
Application.ScreenUpdating = True
End Sub
4、代码运行后实现效果截图