excel保留唯一值 A列有重复值 保留唯一值 B列数值 都不相同要求! 删除A列重复数据!
excel保留唯一值A列有重复值保留唯一值B列数值都不相同!要求:删除A列重复数据!并把A列重复值对应的B列行一起删除!...
excel保留唯一值 A列有重复值 保留唯一值 B列数值 都不相同 !要求: 删除A列重复数据!并把A列重复值对应的B列行一起删除!
展开
4个回答
展开全部
此问题可以通过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、代码运行后实现效果截图
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询