excel保留唯一值 A列有重复值 保留唯一值 B列数值 都不相同要求! 删除A列重复数据!

excel保留唯一值 A列有重复值 保留唯一值 B列数值 都不相同 !要求: 删除A列重复数据!并把A列重复值对应的B列行一起删除!

此问题可以通过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、代码运行后实现效果截图


温馨提示:答案为网友推荐,仅供参考
第1个回答  2016-11-02

工具版本——excel2003

步骤方法:

    打开一个A列包含有重复值的excel表格,点击含有数据的任意单元格,点击数据——筛选——高级筛选。


    在高级筛选里,选择将筛选结果复制到其它位置,列表区域选择A1:A19,复制到选择E2(这个可以任意选),最后勾选选择不重复的记录(这一步最重要)。

3.点击确定以后,重复值就被删除了,只保留唯一值。

第2个回答  2016-10-31

在【数据】下面有【删除重复项】按钮,点一下就可以,注意点之前不要选中A列,只要在区域内的任意单元格就可以。按钮位置见下图:

本回答被网友采纳
第3个回答  2016-10-31

如图,首先选中AB两列的数据,然后点菜单数据-->删除重复项,如图设置,确认就可以了。

相似回答